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每 一 位 严肃 的 计算 机 科学 家 都 应 该 阅读 这 本 书 。 由 于 本 书 清 晰 、 简 洁 和 富 于 才智 ， 
我 们 强烈 推荐 本 书 ， 它 适合 所 有 希望 深刻 理解 计算 机 科 尝 的 人 们 。 © 
—Mitchell Wand 
(美国 科学 家 ) 杂志 





本 书 1984 年 出 版 ， 成 型 于 美国 麻 省 理工 学 院 (MIT) 多 年 使 用 的 一 本 教材 ，1996 年 修订 为 第 
2 版 。 在 过 去 的 二 十 多 年 里 ， 本 书 对 于 计算 机 科学 的 教育 计划 产生 了 深刻 的 影响 。 

第 2 版 中 大 部 分 重要 程序 设计 系统 都 重新 修改 井 做 过 测试 ， 包 括 各 种 解释 器 和 编译 玄 。 作 者 
根据 其 后 十 余年 的 教学 实践 ， 还 对 其 他 许多 细节 做 了 相应 的 修改 。 

本 书目 出 版 以 来 ， 世 界 各 地 已 有 100 多 所 院 校 采 用 本 书 做 教材 ， 其 中 包括 美国 斯 坦 福 大 学 、 
EE 

相关 网 站 有 本 书 产 代码 及 其 他 教 辅 资料 ， 网 址 为 : www-mitpress.mit.edu/sicp/ 
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本 书 从 1980 年 开始 就 是 美国 麻 省 理工 学 院 计算 机 科学 专业 的 入 门 课程 教材 之 一 ， 从 
理论 上 讲解 计算 机 程序 的 创建 、 执 行 和 研究 。 主 要 内 容 包括 : 构造 过 程 抽象 ， 构 造 数据 
抽象 ， 模 块 化 、 对 象 和 状态 ， 元 语言 抽象 ， 寄 存 器 机 器 里 的 计算 等 。 本 书 描述 生动 有 趣 ， 
分 析 清 晰 透彻 ， 是 计算 机 专业 学 生 入 门 必 读 教材 ， 也 是 计算 机 专业 大 士 不 可 或 缺 的 参考 
这 | oe . / | 


Harold Abelson, et al: Structure and Interpretation of Computer Programs, Second 
Edition (ISBN 0-262-01553-0). | 


Original English language edition copyright © 1996 Py The Massachusetts Institute of So 


| Technology. 
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出 版 者 的 话 


文艺 复兴 以 降 ， 源 远 流 长 的 科学 精神 和 逐步 形成 的 学 术 规 范 ， 使 西方 国家 在 自然 科学 的 
各 个 领域 取得 了 蕉 断 性 的 优势 ， 也 正 是 这 样 的 传统 ， 使 美国 在 信息 技术 发 展 的 六 十 多 年 间 名 
家 辈出 、 独 领 风 骚 。 在 商业 化 的 进程 中 ， 美 国 的 产业 曾 与 教育 界 越 来 越 紧 密 地 结合 ， 计 算 机 
学 科 中 的 许多 泰山 北斗 同时 身 处 科研 和 教学 的 最 前 线 ， 由 此 而 产生 的 经 典 科学 著作 ， 不 仅 壁 
划 了 研究 的 范畴 ， 还 揭 更 了 学 术 的 源 变 ， 既 遵循 学 术 规 范 ， 又 自 有 学 者 个 性 ， 其 价值 并 不 会 
因 年 月 的 流逝 而 减退 。 | 

近年 FES ER E(t, RAO Ro RRR, SULA AK H 
益 迫 切 。 这 对 计算 机 教育 界 和 出 版 界 都 既是 机 遇 ， 也 是 挑战 ， 而 专业 教材 的 建设 在 教育 战略 
上 显得 举足轻重 。 在 我 国信 息 技术 发 展 时 间 较 短 、 从 业 人 员 较 少 的 现状 下 ， 美 国 等 发 达 国 家 
在 其 计算 机 科学 发 展 的 几 十 年 闻 积 淀 的 经 典 教 材 仍 有 许多 值得 借鉴 之 处 。 因 此 ，35| 进 一 批 国 
外 优秀 计算 机 教材 将 对 我 国 计 算 机 教育 事业 的 发 展 起 积极 的 推动 作用 ， 也 古 与 世界 接轨 、 建 
设 真正 的 世界 一 流 大 学 的 必由之路 。 

机 械 工业 出 版 社 华章 图 文 信息 有 限 公 司 较 早 意识 到 “出 版 要 为 教育 服务 ”。 自 1938 年 开始 ， 
华章 公司 就 将 工作 重点 放 在 了 避 选 、 移 译 国外 优秀 教材 上 。 经 过 几 年 的 不 懈 努 力 ， 我 们 与 
Prentice Hall, Addison-Wesley, McGraw-Hill, Morgan Kaufmann 等 世界 车 名 出 版 公司 建立 了 
良好 的 合作 关系 ， 从 它们 现 有 的 数 百 种 教材 中 王选 出 Tanenbaum,，Stroustrup，Kernighan ， 
Jim Gray 等 大 师 名 家 的 一 批 经 典 作 品 ， 以 “计算 机 科学 丛书 ”为 总 称 出 版 ， 供 读者 学 习 、 研 
究 及 雇 藏 。 大 理 石 纹理 的 封面 ， 也 正体 现 了 这 套 欠 书 的 品位 和 格调 。 

“计算 机 科学 丛书 ”的 出 版 工作 得 到 了 国内 外 学 者 的 电力 囊 助 ， 国 内 的 专家 不 仅 提 供 了 中 
肯 的 选 题 指导 ， 还 不 辞 劳 苦 地 担任 了 翻译 和 审 校 的 工作 ， 而 原 书 的 作者 也 相当 关 福 其 作品 在 
中 国 的 传播 ， 有 的 还 专 诚 为 其 书 的 中 译本 作 序 。 记 今 , “计算 机 科学 从 书 ” 已 经 出 版 了 近 百 个 
品种 ， 这 些 书 籍 在 读者 中 树立 了 良好 的 口碑 ， 并 被 许多 高 校 采用 为 正式 教材 和 参考 书 藉 ， 为 
进一步 推广 与 发 展 打 下 了 坚实 的 基础 。 l 

随 着 学 科 建 设 的 初步 完善 和 教材 改革 的 逐渐 深化 ， 教 育 界 对 国外 计算 机 教材 的 需求 和 应 
用 都 步 入 一 个 新 的 阶段 。 为 此 ， 华 章 公司 将 加 大 引进 教材 的 力度 ， 在 “华章 教育 ”的 总 规划 
之 下 出 版 三 个 系列 的 计算 机 教材 : 除 “ 计 算 机 科学 丛书 ”之 外 ， 对 影印 版 的 教材 ， 则 单独 开 
胖 出 “经 典 原版 书库 ”， 同 时 ， 引 进 全 美 通行 的 教学 辅导 书 “?chaum s Outlines ”系列 组 成 
“全 美 经 典 学 习 指 导 系 列 ”"。 为 了 保证 这 三 套 从 书 的 权威 性 ， 同 时 也 为 了 更 好 地 为 学 校 和 老师 
们 服务 ， 华 章 公 司 聘 请 了 中 国 科学 院 、 北 京 大 学 、 清 华 大 学 、 国 防 科技 大 学 、 复 旦 大 学 、 上 
海 交 通 大 学 、 南 京 大 学 、 浙 江 大 学 、 中 国 科 技 大 学 、 哈 尔 滨 工业 大 学 、 西 安 交 通 大 学 、 中 国 
人 人 民 大 学 、 北 京 航空 航天 大 学 、 北 京 邮电 大 学 、 中 出 大 学 、 解 放 军 理工 大 学 、 郑 州 大 学 、 削 
北 工学 院 、 中 国 国 家 信息 安全 测评 认证 中 心 等 国内 重点 大 学 和 科研 机 构 在 计算 机 的 各 个 领域 
的 著名 学 者 组 成 “专家 指导 委员 会 ”， 为 我 们 提供 选 题 意见 和 出 版 监督 。 

这 三 套 从 书 是 响应 教育 部 提出 的 使 用 外 版 教材 的 号 召 ， 为 国内 高 校 的 计算 机 及 相关 专业 
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的 教学 度 身 订 造 的 。 其 中 许多 教材 均 已 为 M. 1. T., Stanford, U.C. Berkeley, C. M. U. 等 世界 
名 牌 大 学 所 采用 。 不 仅 涵 盖 了 程序 设计 、 数 据 结构 、 操 作 系 统 、 计 算 机 体系 结构 、 数 据 库 、 
编译 原理 、 软 件 工程 、 图 形 学 、 通 信和 与 网 络 、 离 散 数学 等 国内 大 学 计算 机 专业 普遍 开设 的 核 
心 课程 ， 而 且 各 具 特 色 一 一 有 的 出 自 语言 设计 者 之 手 、 有 的 历经 三 十 年 而 不 豪 、 有 的 已 被 全 
世界 的 几 百 所 高 校 采 用 。 在 这 些 圆 熟 通 博 的 名 师 大 作 的 指引 之 下 ， 读 者 必 将 在 计算 机 科学 的 
Sich ee A. | 

权威 的 作者 、 经 典 的 教材 、 一 流 的 译 者 、 严 格 的 审 校 、 精 细 的 编辑 ， 这 些 因素 使 我 们 的 
图 书 有 了 质量 的 保证 ， 但 我 们 的 目标 是 尽善尽美 ， 而 反馈 的 意见 正 是 我 们 达到 这 一 终极 目标 
的 重要 帮助 。 教 材 的 出 版 只 是 我 们 的 后 续 服务 的 起 点 。 华 章 公 司 欢迎 老师 和 读者 对 我 们 的 工 
作 提出 建议 或 给 予 指正 ， 我 们 的 联系 方法 如 下 : 


电子 邮件 : hzedu@hzbook.com 

联系 电话 : (010) 68995264 

联系 地 址 ;北京 市 西城 区 百 万 庄 南 街 1 号 
邮政 编码 :100037 . 
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机 器 的 责任 。 我 不 认为 我 们 可 以 做 到 这 些 。 我 认为 我 们 的 贵 任 是 去 拓展 这 一 领域 ,将 其 发 展 
到 新 的 方向 ， 并 在 自己 的 家 里 保持 趣味 性 。 我 希望 计算 机 科学 的 领域 绝 不 要 次 失 其 趣味 意识 。 
最 重要 的 是 ， 我 希望 我 们 不 要 变 成 传道 士 ， 不 要 认为 你 是 完 售 圣经 的 人 人， 世界 上 这 种 人 已 经 
ABT, UR ROR KH BORD, ， 其 他 人 也 都 能 学 到 。 绝 不 要 认为 似乎 成 功 计 算 的 钼 择 
就 掌握 在 你 的 手 里 。 你 所 掌握 的 ,也 是 我 认为 并 希望 的 ， 也 就 是 智 意 :; 那 种 看 到 这 一 机 器 比 
你 第 一 次 站 在 它 面前 时 能 做 得 更 多 的 能 力 ， 这样 你 才能 特 它 向 前 推进 。 


Alan J. Perlis ( 1922 年 4 月 1 日 一 1990 年 1 月 7 日 ) 


教育 者 、 将 军 、 减 肥 专 家 、 心 理学 家 和 父母 做 规划 (program ), 而 军人 、 学 生 和 另 一 些 
社会 阶层 则 被 人 规划 (are programmed )。 解 决 大 规模 问题 需要 经 过 一 系列 规划 ， 其 中 的 大 部 
分 东西 只 有 在 工作 进程 中 才能 做 出 来 ， 这 些 规划 中 充满 着 与 手头 问题 的 特殊 性 相关 的 情况 。 
如 果 想 要 把 做 规划 这 件 事情 本 身 作 为 一 种 智力 活动 来 欣赏 ， 你 就 必须 转 到 计算 机 的 程序 设计 
(programming) ， 你 需要 读 或 者 写 计 算 机 程序 一 一 而 且 要 大 量 地 做 。 有 关 这 些 程序 具体 是 关于 
什么 的 、 服 务 于 哪 类 应 用 等 等 的 情况 常常 并 不 重要 ， 重 要 的 是 它们 的 性 能 如 何 ， 在 用 于 构造 
更 大 的 程序 时 能 否 与 其 他 程序 平滑 衔接 。 程 序 员 们 必须 同时 追求 具体 部 分 的 完美 和 汇合 的 适 
家 性 。 在 这 部 书 里 使 用 “程序 设计 ”一 词 时 ， 所 关注 的 是 程序 的 创建 、 执 行 和 研究 ， 这 些 程 
序 是 用 一 种 Lisp 方 言 书写 的 ， 为 了 在 数字 计算 机 上 执行 。 采 用 Lisp 并 没有 对 我 们 可 以 编程 的 范 
围 施 以 任何 约束 或 者 限制 ， 而 只 不 过 确定 了 程序 描述 的 记 法 形式 。 | 

本 书 中 要 讨论 的 各 种 问题 都 牵涉 到 三 类 需要 关注 的 对 象 : 人 的 大 脑 、 计 算 机 程序 的 集合 
以 及 计算 机 本 身 。 每 一 个 计算 机 程序 都 是 现实 中 的 或 者 精神 中 的 某 个 过 程 的 一 个 模型 ， 通 过 
人 的 头脑 解 化 出 来 。 这 些 过 程 出 现在 人 们 的 经 验 或 者 思维 之 中 ， 数 量 上 数不胜数 ， 详 情 琐碎 
繁杂 ， 任 何 时 候 人 们 都 只 能 部 分 地 理解 它们 。 我 们 很 少 能 通过 自己 的 程序 将 这 种 过 程 模拟 到 
永远 令 人 满意 的 程度 。 正 因为 如 此 ， 即 使 我 们 写 出 的 程序 是 一 集 经 过 仔细 雕琢 的 离散 符号 ， 
是 交织 在 一 起 的 一 组 函数 ， 它 们 也 需要 不 断 地 演化 : 当 我 们 对 于 模型 的 认识 更 深入 、 更 扩大 、 
更 广泛 时 ， 就 需要 去 修改 程序 ， 直 至 这 一 模型 最 终 到 达 了 一 种 亚 稳定 状态 。 而 在 这 时 ， 程 序 
中 就 又 会 出 现 另 一 个 需要 我 们 去 为 之 奋斗 的 模型 。 计 算 机 程序 设计 领域 之 令 人 兴奋 的 源泉 ， 
就 在 于 它 所 引起 连绵 不 绝 的 发 现 ， 在 我 们 的 头脑 之 中 ， 在 由 程序 所 表达 的 计算 机 制 之 中 ， 以 
及 在 由 此 所 导致 的 认识 爆炸 之 中 。 如 果 说 艺术 解释 了 我 们 的 梦想 ， 那 么 计算 机 就 是 以 程序 的 
名 义 执 行 着 它们 。 

就 其 本 身 的 所 有 能 力 而 言 ， 计 算 机 是 一 位 -- 丝 不 苟 的 工匠 : 它 的 程序 必须 正确 ， 我 们 希 
望 说 的 所 有 东西 ， 都 必须 表述 得 准确 到 每 一 点 细节 。 就 像 在 其 他 所 有 使 用 符号 的 活动 中 一 样 ， 
我 们 需要 通过 论证 使 自己 相信 程序 的 真 。 可 以 为 Lisp 本 身 赋予 一 个 语义 (可 以 说 是 另 一 个 模 
型 ) ， 假 如 说 ， 一 个 程序 的 功能 可 以 在 (例如 ) 谓词 演算 里 描述 ,那么 就 可 以 用 逻辑 方法 做 出 
一 个 可 接受 的 正确 性 论证 。 不 幸 的 是 ， 随 着 程序 变 得 更 大 更 复杂 (实际 上 它们 几乎 总 是 如 此 )， 
这 种 描述 本 身 的 适宜 性 、 一 致 性 和 正确 性 也 都 变 得 非常 值得 怀疑 了 。 因 此 ， 很 少 能 够 看 到 有 
关 大 程序 正确 性 的 完全 形式 化 的 论证 。 因 为 大 的 程序 是 从 小 东西 成 长 起 来 的 ， 开 发 出 一 个 标 
准 化 的 程序 结构 的 武器 库 ， 并 保证 其 中 每 种 结构 的 正确 性 一 一 我 们 称 它们 为 惯用 法 ， 再 学 会 
如 何 利用 一 些 已 经 证 明 很 有 价值 的 组 织 技 术 ， 将 这 些 结构 组 合成 更 大 的 结构 ， 这 些 都 是 至 关 
重要 的 。 本 书 中 将 详尽 地 讨论 这 些 技术 。 理 解 这 些 技术 ， 对 于 参与 这 种 被 称 为 程序 设计 的 具 
有 创造 性 的 事业 是 最 最 本 质 的 。 特 别 值得 提出 的 是 ， 发 现 并 掌握 强 有 力 的 组 织 技 术 ， 将 提升 
我 们 构造 大 型 的 重要 程序 的 能 力 。 反 过 来 说 ， 因 为 写 大 程序 非常 耗 时 费力 ， 这 也 推动 着 我 们 
去 发 明 新 方法 ， 减 轻 由 于 大 程序 的 功能 和 细节 而 引起 的 沉重 负担 。 


VIH 


SEPAAR, AIAI FURE., aR ENERET JLA A dE 
换 一 一 那么 就 必须 在 很 短 的 距离 内 传导 电子 (至 多 1.5 英 尺 ) 。 必 须 消 除 由 于 大 量 元 件 而 产生 的 
热量 集中 。 人 们 已 经 开发 出 了 一 些 巧 妙 的 工程 艺术 ， 用 于 在 功能 多 样 性 与 元 件 密度 之 间 求 得 
一 种 平衡 。 在 任何 情况 下 ,硬件 都 是 在 比 我 们 编程 时 所 需要 关心 的 层次 更 低 的 层次 上 操作 的 。 
将 我 们 的 Lisp 程 序 变换 到 “机 器 ”程序 的 过 程 本 身 也 是 抽象 模型 ， 是 通过 程序 设计 做 出 来 的 。 
研究 和 构造 它们 ， 能 使 人 更 加 深刻 地 理解 与 任何 模型 的 程序 设计 有 关 的 程序 组 织 问题 。 当 然 ， 
计算 机 本 身 也 可 以 这 样 模拟 。 请 想 一 想 : 最 小 的 物理 开关 元 件 在 量子 力学 里 建 模 ， 而 量子 力 
学 又 由 一 组 微分 方程 描述 ， 微 分 方程 的 细节 行为 可 以 由 数值 去 近似 ， 这 种 数值 又 由 计算 机 程 
序 所 描述 ， 计 算 机 程序 的 组 成 …… | oe | 

区 分 出 上 述 三 类 需要 关注 的 对 象 ， 并 不 仅仅 是 为 了 策略 上 的 便利 。 即 使 有 人 说 它 不 过 是 
人 头脑 里 的 东西 ， 这 种 逻辑 区 分 也 引起 了 这 些 关 注 焦点 之 间 符 号 流动 的 加 速 ， 它 们 在 人 们 经 
验 中 的 丰富 性 、 活 力 和 潜力 ， 只 能 由 现实 生活 中 的 不 断 演化 去 超越 。 我 们 至 多 只 能 说 ， 这 些 
关注 焦点 之 间 的 关系 是 基本 稳定 的 。 计 算 机 未 远 都 不 够 大 也 不 够 快 。 硬 件 技术 的 每 一 次 突破 
都 带 来 了 更 大 规模 的 程序 设计 事业 ， 新 的 组 织 原理 ， 以 及 更 加 丰富 的 抽象 模型 。 每 个 读者 都 
应 该 反复 地 问 自己 “到 哪里 才 是 头 儿 ， 到 哪里 才 是 头 儿 ? ”一 一 但 是 不 要 问 得 过 于 频繁 ， 以 
免 忽 略 了 程序 设计 的 乐趣 ， 使 自己 陷入 一 种 喜忧参半 的 呆 灌 状态 中 。 | 

在 我 们 写 出 的 程序 里 ， 有 些 程序 执行 了 某 个 精确 的 数学 函数 (但 是 绝 不 够 精确 )， 例 如 排 
序 ， 或 者 找 出 一 系列 数 中 的 最 大 元 ， 确 定 素数 性 ， 或 者 找 出 平方 根 。 我 们 将 这 种 程序 称 为 算 
法 ， 关 于 它们 的 最 佳 行为 已 经 有 了 许多 认识 ， 特 别 是 关于 两 个 重要 的 参数 : 执行 的 时 间 和 对 
数据 存储 的 需求 。 程 序 员 应 该 追求 好 的 算法 和 惯用 法 。 即 使 某 些 程序 难以 精确 地 描述 EF 
员 也 有 责任 去 估计 它们 的 性 能 ， 并 要 继续 设法 去 改进 之 。 

Lisp 是 一 个 幸存 者 ， 已 经 使 用 了 四 分 之 一 个 世纪 。 在 现存 的 活 语言 里 ， 只 有 Fortran 比 它 
的 寿命 更 长 些 。 这 两 种 语言 都 支持 着 一 些 重 要 领域 中 的 程序 设计 需要 ，Fortran 用 于 科学 与 工 
程 计算 ，Lisp 用 于 人 工 智 能 。 这 两 个 领域 现在 仍然 很 重要 ， 它们 的 程序 员 都 如 此 倾心 于 这 两 
种 语言 ， 因 此 ，Lisp 和 Fortran 都 还 可 能 继续 生存 至 少 四 分 之 一 个 世纪 。 | | 

Lisp 一 直 在 改变 着 。 这 本 教科 书 中 所 用 的 Scheme 方言 就 是 从 原来 的 Lisp 里 演化 出 来 的 ， 并 
在 若干 重要 方面 与 之 相 异 ,包括 变量 约束 的 静态 作用 域 ， 以 及 允许 函数 产生 出 函数 作为 值 。 
在 语义 结构 上 ，Scheme 更 接近 于 Algol 60 而 不 是 早期 的 Lisp。Algol 60 已 经 不 可 能 再 变 为 活 的 
语言 了 ， 但 它 还 活 在 Scheme 和 Pascal 的 基因 里。 很 难 找到 这 样 的 两 种 语言 ， 它 们 能 如 此 清晰 地 
代表 着 围绕 这 两 种 语言 而 京 集 起 来 的 两 种 差异 巨大 的 文化 。Pascal 是 为 了 建造 金字 塔 一 一 壮丽 
辉煌 、 令 人 震 憾 ， 是 由 各 就 其 位 的 沉重 巨石 筑 起 的 静态 结构 。 而 Lisp 则 是 为 了 构造 有 机 体 一 一 
同样 的 壮丽 辉煌 并 令 人 震 懂 ， 由 各 就 其 位 但 却 永 不 静止 的 无 数 简单 的 有 机 体 片段 构成 的 动态 
疆 构 。 在 两 种 语言 里 都 采用 了 同样 的 组 织 原 则 ， 除 了 其 中 特别 重要 的 一 点 不 同 之 外 : 托付 给 
Lisp 程 序 员 个 人 可 用 的 自由 支配 权 ， 要 远 远 超过 在 Pascal 社 团 里 可 找到 的 东西 。Lisp 程 序 大 大 
抬 襄 了 函数 库 的 地 位 , 使 其 可 用 性 超越 了 催生 它们 的 那些 具体 应 用 。 作 为 Lisp 的 内 在 数据 结构 ， 
表 对 于 这 种 可 用 性 的 提升 起 着 最 重要 的 作用 。 表 的 简单 结构 和 自然 可 用 性 反应 到 函数 里 ， 束 
使 它们 具有 了 一 种 奇异 的 普 适 性 。 而 在 Pascal 里 ， 数 据 结 构 的 过 度 声明 导致 函数 的 专用 性 ， 阻 
碍 并 惩罚 临时 性 的 合作 。 采 用 100 个 函数 在 一 种 数据 结构 上 操作 ， 远 远 优 于 用 10 个 函数 在 10 个 
数据 结构 上 操作 。 作 为 这 些 情 况 的 必然 后 果 ， 金 字 塔 喜 立 在 那里 千年 不 变 ， 而 有 机 体 则 必须 


演化 ， 否 则 就 会 死亡 。 

为 了 看 消 楚 这 种 差异 ， 请 将 本 书 中 给 出 的 材料 和 练习 与 任何 第 一 门 Pascal 课 程 的 教科 书 中 
的 材料 做 一 个 比较 。 请 不 要 费力 地 去 想象 ， 说 这 不 过 是 一 本 在 MIT 采 用 的 教科 书 ， 其 特异 性 
仅仅 是 因为 它 出 县 那个 地 方 。 准 确 地 说 ， 任 何 一 本 严肃 的 关于 Lisp 程 序 设计 的 书 都 应 该 如 此 ， 
无 论 其 学 生 是 谁 ， 在 什么 地 方 使 用 。 

请 注意， 这 是 一 本 有 关 程 序 设计 的 教科 书 ， 它 不 像 大 部 分 关于 Lisp 的 书 ， 因 为 那些 书 多 
半 是 为 人 们 在 人 工 智 能 领域 工作 做 准备 。 当 然 ， 无 论 如 何 ， 在 研究 工作 规模 不 断 增 长 的 过 程 
中 ， 软 件 工 程 和 人 工 智能 所 关心 的 重要 程序 设计 工作 正 趋 于 相互 结合 。 这 也 解释 了 为 什么 在 
人 工 智 能 领域 之 外 的 人 们 对 Lisp 的 兴趣 在 不 断 增加 。 

正如 由 其 目标 可 以 预见 到 的 ， 人 工 智 能 的 研究 产生 出 许多 重要 的 程序 设计 问题 。 在 其 他 
程序 设计 文化 中 ， 问 题 的 洪水 钙化 出 一 种 又 一 种 新 的 语言 。 确 实 ， 在 任何 非常 大 的 程序 设计 
工作 中 ,一 条 有 用 的 组 织 原则 就 是 通过 发 明 新 语言 ， 去 控制 和 隔离 作业 模块 之 间 的 信息 流动 。 
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的 地 方 。 作 为 这 一 情况 的 结果 ， 在 这 种 系统 里 包含 着 大 量 重复 的 复杂 的 语言 处 理 功能 。Lisp 
有 着 如 此 简单 的 语法 和 语义 ， 程 序 的 语法 分 析 可 以 看 作 一 种 很 简单 的 工作 。 这 样 ， 语 法 分 析 
技术 对 于 Lisp 程 序 几 乎 就 没有 价值 ， 语 言 处 理 器 的 构造 对 于 大 型 Lisp 系 统 的 成 长 和 变化 不 会 成 
为 阻碍 。 最 后 ， 正 是 这 种 语法 和 语义 的 极端 简单 性 ， 产 生出 了 所 有 Lisp 程 序 员 的 负担 和 有 目 由 。 
任何 规模 的 Lisp 程 序 ， 除 了 那 种 窄 究 几 行 的 程序 外 ， 都 饱含 着 考虑 周到 的 各 种 功能 。 发 明 并 
调整 ， 调 整 恰当 后 再 去 发 明 ! 让 我 们 举 起 杯 ， 祝 福 那些 将 他 们 的 思想 镶 伐 在 重重 括号 之 加 的 
Lisp 程 序 员 。 


Alan J. Perlis 
LL, AFAKA 


第 2 版 前 言 


软件 候 可 能 确实 与 其 他 任何 东西 都 不 同 ， 它 的 本 意 就 是 被 抛 育 : 这 一 观点 的 全 部 
就 是 总 将 它 看 作 一 个 肥皂 泡 吗 ? 


—- Alan J. Per lis 


自 1980 年 以 来 ， 本 书 的 材料 就 一 直 在 MIT 作 为 计算 机 科学 学 科 入 门 课程 的 基础 。 在 本 书 
第 1 版 出 版 之 前 ， 我 们 已 经 用 这 一 材料 教 了 4 年 课 ， 而 到 这 个 第 2 版 出 版 ， 时 间 又 过 去 了 12 年 。 
我 们 非常 高 兴 地 看 到 这 一 工作 被 广泛 接受 ， 并 被 结合 到 其 他 一 些 教材 中 。 我 们 已 经 看 到 自己 
的 学 生 掌握 了 本 书 中 的 思想 和 程序 ， 并 将 它们 构筑 到 新 的 计算 机 系统 或 者 语言 的 核心 里 。 这 
就 在 文字 上 实现 了 一 个 古 犹太 教 法 典 的 双关 语 ， 我 们 的 学 生 已 经 变 成 了 我 们 的 创造 者 。 我 们 
非常 幸运 能 有 如 此 有 能 力 的 学 生 和 如 此 有 建树 的 创造 者 。 / 

在 准备 这 一 新 版 本 的 过 程 中 ， 我 们 结合 进 了 成 百 条 澄清 性 建议 ， 它 们 来 自我 们 自己 的 教 
学 经 验 ， 也 来 自 MIT 和 其 他 地 方 的 同行 们 的 评述 。 我 们 重新 设计 了 本 书 里 主要 的 程序 设计 系 
统 中 的 大 部 分 ， 包 括 通用 型 算术 系统 、 解 释 器 、 寄 存 器 机 器 模拟 器 和 编译 器 ， 也 重 写 了 所 有 
的 程序 实例 ， 以 保证 任何 符合 IEEE 的 Scheme 标准 (IEEE 1990) 的 Scheme 实现 都 能 运行 这 些 
代码 。 

这 一 版 本 中 强调 了 几 个 新 闻 题 ， 其 中 最 重要 的 是 有 关 在 不 同 的 途径 中 ,计算 模 型 里 对 于 
时 间 的 处 理 所 起 的 中 心 作用 : 带 有 状态 的 对 象 、 并 发 程序 设计 、 函 数 式 程序 设计 、 情 性 求 什 
和 非 确定 性 程序 设计 。 这 里 为 并 发 和 非 确 定性 新 增加 了 几 节 ， 我 们 也 设法 将 这 一 论题 集成 到 
整 本 书 里 ， 人 贯穿 始终 。 

”本 书 第 1 版 基本 上 是 按照 我 们 在 MIT 一 学 期 课程 的 教学 大 纲 撰写 的 。 由 于 有 了 第 2 版 中 增 
加 的 这 些 新 材料 ， 在 一 个 学 期 里 覆盖 所 有 内 容 已 经 不 可 能 了 ， 所 以 教师 需要 从 中 做 一 些 选 择 。 
在 我 们 自己 的 教学 里 ， 有 时 会 跳 过 有 关 逻 辑 程序 设计 的 一 节 (4.4 节 ) ， 让 学 生 使 用 寄存 器 机 
器 模拟 器 ， 但 并 不 去 讨论 它 的 实现 (5.247) ， 对 于 编译 器 则 只 给 出 一 个 粗略 的 概述 (5.5 节 )。 
即使 如 此 ， 这 还 是 一 个 内 容 非 常 多 的 课程 。 一 些 教师 可 能 希望 只 覆盖 前 面 的 三 章 或 者 四 章 ， 
而 将 其 他 内 容留 给 后 续 课程 。 

万 维 网 站 点 www-mitpress.mit.edu/sicp 为 本 书 的 使 用 者 提供 支持 。 其 中 包含 了 取 自 本 书 的 
程序 ， 示 例 程 序 作 业 、 辅 助 材料 和 Lisp 的 Scheme 方 言 的 可 下 载 实 现 。 


第 1 版 前 言 


一 合计 算 机 就 像 是 一 把 小 提 稚 。 你 可 以 想象 一 个 新 手 试 了 一 个 音符 并 去掉 了 它 ， 
后 来 他 说 ， 听 起 来 真 难 听 。 我 们 已 经 从 大 众 和 我 们 的 大 部 分 计算 机 科学 家 那里 反复 
听 到 这 种 说 法 。 他 们 说 ， 计 算 机 程序 对 个 别 具 体 用 泛 而 言 确 实 是 好 东西 ， 但 它们 太 
缺乏 弹性 。 一 把 小 提 登 或 者 一 台 打 字 机 也 同样 缺 夭 弹性 ， 那 是 你 学 会 了 如 何 去 使 用 
ONAK a 


— Marvin Minsky, ”为 什么 说 程序 设计 很 容易 成 为 一 种 媒介 ， 
用 于 表述 理解 浮 浅 、 和 草率 而 就 的 思想 


本 书 是 麻 省 理工 学 院 (MIT) 计算 机 科学 的 入 门 教材 。 在 MIT 主 修 电子 工程 或 者 计算 机 科 
学 的 所 有 学 生 都 必须 学 这 门 课 ， 作 为 “公共 核心 课程 计划 ”的 四 分 之 一 。 这 里 还 包含 两 个 关 
于 电路 和 线性 系统 的 科目 ， 还 有 一 个 关于 数字 系统 设计 的 科目 。 我 们 从 1978 年 开始 涉足 这 些 
科目 的 开发 ， 从 1980 年 秋季 以 后 ， 我 们 就 一 直 按 照 现 在 这 种 形式 教授 这 个 课程 ， 每 年 600 到 
700 个 学 生 。 大 部 分 学 生 此 前 没有 或 者 很 少 有 计算 方面 的 正式 训练 ， 虽 然 许 多 人 玩 过 计算 机 ， 
也 有 少数 人 有 许多 程序 设计 或 者 硬件 设计 的 经 验 。 

我 们 所 设计 的 这 门 计算 机 科学 导 引 课程 反映 了 两 方面 的 主要 考虑 。 首 先 ， 我 们 希望 建立 
起 一 种 看 法 : 一 个 计算 机 语言 并 不 仅仅 是 让 计算 机 去 执行 操作 的 一 种 方式 ， 更 重要 的 ， 它 是 
-- 种 表述 有 关 方 法 学 的 思想 的 新 颖 的 形式 化 媒介 。 因 此 ， 程 序 必 须 写 得 能 够 供 人 们 阅读 ， 偶 
尔 地 去 供 计 算 机 执行 。 其 次 ， 我 们 相信 ， 在 这 一 层次 的 课程 里 ， 景 基本 的 材料 并 不 是 特定 程 
序 设计 语言 的 语法 ， 不 是 有 效 计算 某 种 功能 的 巧妙 算法 ， 也 不 是 算法 的 数学 分 析 或 者 计算 的 
本 质 基础 ， 而 是 一 些 能 够 用 于 控制 大 型 软件 系统 的 智力 复杂 性 的 技术 。 

我 们 的 目标 是 ， 使 完成 了 这 一 科目 的 学 生 能 对 程序 设计 的 风格 要 素 和 审美 观 有 一 种 很 好 
的 感觉 。 他 们 应 该 掌握 了 控制 大 型 系统 中 的 复杂 性 的 主要 技术 。 他 们 应 该 能 够 去 读 50 页 长 的 
程序 ， 只 要 该 程序 是 以 一 种 值得 模仿 的 形式 写 出 来 的 。 他 们 应 该 知道 在 什么 时 候 哪 些 东 西 不 
需要 去 读 ， 哪 些 东 西 不 需要 去 理解 。 他 们 应 该 很 有 把 握 地 去 修改 一 个 程序 ， 同 时 又 能 保持 原 
来 作者 的 精神 和 风格 。 

这 些 技能 并 不 仅仅 适用 于 计算 机 程序 设计 。 我 们 所 教授 和 提炼 出 来 的 这 些 技术 ， 对 于 所 
有 的 工程 设计 都 是 通用 的 。 我 们 在 适当 的 时 候 隐 藏 起 一 些 细节 ， 通 过 创建 抽象 去 控制 复杂 性 。 
我 们 通过 建立 约定 的 界面 ， 以 便 能 以 一 种 “混合 与 匹配 ”的 方式 组 合 起 一 些 标准 的 、 已 经 很 
好 理解 的 片段 ， 去 控制 复杂 性 。 我 们 通过 建立 一 些 新 的 语言 去 描述 各 种 设计 ， 每 种 语言 强调 
设计 中 的 一 个 特定 方面 并 降低 其 他 方面 的 重要 性 ， 以 控制 复杂 性 。 

设计 这 门 课 程 的 基础 是 我 们 的 一 种 信念 , “计算机 科学 ”并 不 是 一 种 科学 ， 而 且 其 重要 性 
也 与 计算 机 本 身 并 无 太 大 关系 。 计 算 机 革命 是 有 关 我 们 如 何 去 思 车 的 方式 ， 以 及 我 们 如 何 去 
表达 自己 的 思考 的 一 个 革命 。 在 这 个 变化 里 最 基本 的 东西 ， 就 是 出 现 了 这 样 一 种 或 许 最 好 是 
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称 为 过 程 性 认识 论 的 现象 一 一 这 就 是 如 何 从 一 种 命令 式 的 观点 去 研究 知识 的 结构 ， 这 一 观点 
是 与 经 典 数学 领域 中 所 采用 的 更 具 说 明 性 的 观点 完全 不 同 的 。 数 学 为 精确 处 理 “ 是 什么 ” 提 
供 了 一 种 框架 ， 而 计算 则 为 精确 处 理 “ 怎 样 做 ”的 概念 提供 了 一 种 框架 。 

在 教授 这 里 的 材料 时 ， 我 们 采用 的 是 Lisp 语 言 的 一 种 方言 。 我 们 绝 没 有 形式 化 地 教授 这 
一 语言 ， 因 为 完全 不 必 那 样 做 。 我 们 只 是 使 用 它 ， 学 生 可 以 在 几 天 之 内 就 学 会 它 。 这 也 古 类 
Lisp 语 言 的 重要 优点 ; 它们 只 有 不 多 几 种 构造 复合 表达 式 的 方式 ， 几 乎 没有 语法 结构 。 所 有 
的 形式 化 性 质 都 可 以 在 一 个 小 时 里 讲 完 ， 就 像 下 象棋 的 规则 似 的 。 在 很 短 时 间 之 后 ， 我 们 就 
可 以 不 再 去 管 语言 的 语法 细节 (因为 这 里 根本 就 没有 )， 而 进入 真正 的 问题 一 一 弄 清 楚 我 们 需 
要 去 计算 什么 ， 怎 样 将 问题 分 解 为 一 组 可 以 控制 的 部 分 ， 如 何 对 这 样 的 部 分 开展 工作 。Lisp 
的 另 一 优势 在 于 ， 与 我 们 所 知 的 任何 其 他 语言 相 比 ， 它 可 以 支持 〈 但 并 不 是 强制 性 的 ) 更 多 
的 能 用 于 以 模块 化 的 方式 分 解 程序 的 大 规模 策略 。 我 们 可 以 做 过 程 性 抽象 和 数据 抽象 ， 可 以 
通过 高 阶 函数 抓 住 公共 的 使 用 模式 ， 可 以 用 赋值 和 数据 操作 去 模拟 局 部 状态 ， 可 以 利用 将 和 
延 时 求 值 连接 起 一 个 程序 里 的 各 个 部 分 ， 可 以 很 容易 地 实现 三 入 性 语言 。 所 有 这 些 都 融合 在 
一 个 交互 式 的 环境 里 ， 带 有 对 递增 式 程序 设计 、 构 造 、 测 试 和 排除 错误 的 绝 佳 支 持 功 能 。 我 
们 要 感谢 一 代 又 一 代 的 Lisp 大 师 ， 从 John McCarthy 开 始 ， 是 他 们 铸造 起 了 这 样 一 个 具有 空前 
威力 的 如 此 优美 的 好 工具 。 

作为 我 们 所 用 的 Lisp 方 言 ，Scheme 试 图 将 Lisp 和 Algol 的 威力 和 优雅 集成 到 一 起 。 我 们 从 
Lisp 那 里 取 来 了 元 语言 的 威力 ， 它 来 自 简 单 的 语法 形式 ， 程 序 与 数据 对 象 的 统一 表示 ， 以 及 
带 有 废料 收集 的 堆 分 配 数据 。 我 们 从 Algol 那 里 取 来 了 词法 作用 域 和 块 结构 ， 这 是 当年 参加 
Algol 委 员 会 的 那些 程序 设计 语言 先驱 者 们 的 礼物 。 我 们 想 特别 提出 John Reynolds 和 Peter 
Landin， 为 了 他 们 对 丘 奇 的 lambda 演 算 与 程序 设计 语言 的 结构 之 间 关 系 的 真知 灼 见 。 我 们 也 
认识 到 应 该 感谢 那些 数学 家 们 ， 他 们 在 计算 机 出 现 之 前 ， 就 已 经 在 这 一 领域 中 探索 了 许多 年 。 
这 些 先 驱 者 包括 丘 奇 (Alonzo Church )、 罗 塞 尔 (Barkley Rosser ) 、 克 里 尼 (Stephen Kleene ) 
#0442 (Haskell Curry ) 。 
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我 们 希望 感谢 许多 在 这 本 书 和 这 一 教学 计划 的 开发 中 帮助 过 我 们 的 人 们 。 

可 以 把 这 门 课 看 做 是 课程 “6.231” 的 后 继 者 。 “6.231” 是 20 世 纪 60 年 代 后 期 由 Jack 
Wozencraft 和 Arthur Evans, Jr. 在 MIT 教 授 的 有 关 程 序 设计 语言 学 和 lambda 演 算 的 一 门 美妙 课程 。 

我 们 由 Robert Fano 那 里 受 惠 恨 多 。 是 他 组 织 了 MII 电 子 工程 和 计算 机 科学 的 教学 计划 ， 
强调 工程 设计 的 原理 。 他 领 着 我 们 开始 了 这 一 事业 ， 并 为 此 写 出 了 第 一 批 问题 往 记 。 本 书 就 
是 从 那里 演化 出 来 的 。 

我 们 试图 去 教授 的 大 部 分 程序 设计 风格 和 艺术 都 是 与 Guy Lewis Steele JIT. 一 起 开发 的 ， 他 
与 Gerald Jay Sussman 在 Scheme 语言 的 初始 开发 阶段 合作 工作 。 此 外 | David Turner Peter 
Henderson 、Dan Friedman 、David Wise 和 Will Clinger 也 教 给 我 们 许多 函数 式 程序 设计 社团 所 
掌握 的 技术 ， 它 们 出 现在 本 书 的 许多 地 廊 。 

Joel Moses 教 我 们 如 何 考虑 大 型 系统 的 构造 。 他 在 Macsyma 符 号 计算 系统 上 的 经 验 中 得 到 
的 真知 灼 见 是 ， 应 该 避免 控制 中 的 复杂 性 ， 将 精力 集中 到 数据 的 组 织 上 ， 以 反 映 所 模拟 世界 
里 的 真实 结构 。 

这 里 的 许多 有 关 程 序 设计 及 其 在 我 们 的 智力 活动 中 位 置 的 认识 是 Marvin Minsky $ 
Seymour Papert 提 出 的 。 从 他 们 那里 我 们 理解 了 ,计算 是 一 种 探索 各 种 思想 的 表达 方式 的 手段 ， 
如 果 不 这 样 做 ， 这 些 思想 将 会 因为 太 复杂 而 无 法 精确 地 处 理 。 他 们 更 强调 说 ， 学 生 编写 和 修 
改 程序 的 能 力 可 以 成 为 一 种 威力 强大 的 工具 ， 使 这 种 探索 变 成 一 种 自然 的 话 动 。 

我 们 也 完全 同意 Alan Perlis 的 看 法 ， 程 序 设计 有 着 许多 乐趣 ， 我 们 应 该 认真 地 支持 程序 设 
计 的 趣味 性 。 这 种 趣味 性 部 分 来 源 于 观看 大 师 们 的 工 作 。 我 们 非常 幸运 曾经 在 Bill Gosper 和 
Richard Greenblatt 手 下 学 习 程 序 设 it. 

ABE HH Bi Ay BE eh 5 — BA RUE R ah RA AT. RR Fae BLS HES 
我 们 一 起 工作 过 ， 并 在 此 科目 上 付出 时 间 和 心血 的 所 有 教师 、 答 疑 老 师 和 辅导 员 们 ， 特 别 古 
Bill Siebert. Albert Meyer, Joe Stoy, Randy Davis, Louis Braida, Eric Grimson, Rod Brooks 、 
Lynn Stein 和 Peter Szolovits 。 我 们 想 特 别 向 Franklyn Turbak (现在 在 Wellesley ) 在 教学 上 的 特 
殊 贡 献 表 示 谢 意 ， 他 在 本 科 生 指导 方面 的 工作 为 我 们 的 努力 设 定 了 一 个 标准 。 我 们 还 要 感谢 
Jerry Saltzer 和 Jim Miller 帮 助 我 们 克服 并 发 性 中 的 难点 ，Peter Szolovits 和 David McAliester 对 于 

第 4 章 里 非 确定 性 求 值 讨论 的 页 献 。 

许多 人 在 他 们 自己 的 大 学 里 讲授 本 书 时 付出 了 极 大 努力 ， 其 中 与 我 们 密切 合作 的 有 Technion 
的 Jacob Katzenelson Irvine 加 州 大 学 的 Hardy Mayer、 牛 津 大 学 的 Joe Stoy 、 普 度 大 学 的 Ellsha 
Sacks 以 及 挪威 科技 大 学 的 Jan Komorowski。 我 们 特别 为 那些 在 其 他 大 学 改制 这 一 课程 ， 并 由 
此 获得 重要 教学 奖 的 同行 们 感到 骄傲 ， 包 括 耶 鲁 大 学 的 Kenneth Yip、 加 州 大 学 伯克利 分 校 的 
Brian Harvey 和 康 乃 尔 大 学 的 Dan Huttenlocher , 

Al Moyé 安 排 我 们 到 惠普 公司 为 工程 师 教授 这 一 课程 ， 并 为 这 些 课程 制作 了 录像 市 。 我 们 
感谢 有 那些 才干 的 教师 一 一 特别 是 Jim Miller, Bill Siebert 和 Mike Eisenberg 一 一 他 们 设计 了 结 
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合 这 些 录 像 带 的 继续 教育 课程 ， 并 在 全 世界 的 许多 大 学 和 企业 讲授 。 

其 他 国家 的 许多 教育 工作 者 也 在 翻译 本 书 的 第 1 版 方面 做 了 许多 工作 。Michel Briand, 
Pierre Chamard 和 André Pic 做 出 了 法 文 版 ，Susanne Daniels-Herold 做 了 德 文 版 ，Fumio Motoyoshi 
做 了 日 文 版 。 

要 列举 出 所 有 为 我 们 用 于 教学 的 Scheme 系 统 做 出 过 贡献 的 人 是 非常 困难 的 。 除 了 Guy 
Steele 之 外 ， 主 要 的 专家 还 包括 Chris Hanson, Joe Bowbeer, Jim Miller, Guillermo Rozas 和 
Stephen Adams。 在 这 项 工作 中 付出 许多 了 时间 的 还 有 Richard Stallman, Alan Bawden, Kent 
Pitman, Jon Taft, Neil Mayle , John Lamping, Gwyn Osnos, Tracy Larrabee 、 George Carrette. 
Soma Chaudhuri, Bill Chiarchiaro, Steven Kirsch, Leigh Klotz, Wayne Noss, Todd Cass, 
Patrick O’Donnell . Kevin Theobald, Daniel Weise, Kenneth Sinclair, Anthony Courtemanche 、 
Henry M. Wu Andrew Berlin 和 和 Ruth Shyu 。 

除了 MIT 实 现 之 外 ， 我 们 还 应 该 感谢 那些 在 IEEE Scheme 标准 方面 工 作 的 大 们 ， 包 括 
William Clinger 和 Jonathan Rees ， 他 们 编写 了 RRS， 以 及 Chris Haynes, David Bartley, Chris 
Hanson pim Miller， 他 们 撰写 了 IEEE 标 准 。 

Dan Friedman 多 年 以 来 一 直 是 Scheme 社团 的 领袖 。 这 一 社团 的 工作 范围 已 经 从 语言 设计 
问题 ， 扩 展 到 围绕 着 重要 的 教育 创新 问题 ， 例 如 基于 Schemer's Inc. 的 EdScheme 的 高 中 教学 
计划 ， 以 及 由 Mike Eisenberg #7 Brian Harvey 和 Matthew Wright 撰写 的 绝妙 著作 。 

我 们 还 要 感谢 那些 为 本 教材 的 成 书 做 出 贡献 的 人 们 ， 特 别 是 MIT 出 版 社 的 Terry Ehling, 
Larry Cohen 和 Paul Bethge 。Ella Mazel 为 本 书 找到 了 最 美妙 的 封面 图 画 。 对 于 第 2 版 ， 我 们 要 
特别 感谢 Bernard 和 Ela Mazel 对 本 书 设计 的 帮助 ， 以 及 David Jones 作 为 EX 专家 的 非 几 能 力 。 
我 们 还 要 感谢 下 面 的 读者 ， 他 们 对 于 这 个 新 书稿 提出 了 深刻 的 意见 : Jacob Katzenelson, 
Hardy Mayer, Jim Miller， 特 别 是 Brian Harvey， 他 对 于 本 书 所 做 的 也 就 像 Julie 对 于 Harvey 的 
著作 Simply Scheme 所 做 的 那样 。 

最 后 我 们 还 想 对 资助 组 织 表示 感谢 ， 它 们 多 年 来 一 直 支 持 这 项 工作 的 进行 。 包 括 来 目 惠 
普 公 司 的 支持 (由 Ira Goldstein 和 Joel Birnbaum 促 成 )， 还 有 来 自 DARPA 的 支持 (得 到 了 Bob 
Kahn 的 帮助 )。 
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第 1 章 构造 过 程 抽 象 


心智 SED, RI 尽力 产生 各 种 简单 的 认识 之 外 ， 主 要 表现 在 如 下 三 个 方面 : 1) 
将 若干 篇 单 认识 组 合 为 一 个 复合 认识 ， 申 此 产生 出 各 种 复杂 的 认识 。2 ) 将 两 个 认识 
放 在 一 起 对 照 ， 不 管 它们 如 何 简单 或 者 复杂 ,在 这 样 做 时 并 不 特 它们 合 而 为 一 。 由 
此 .得 到 有 关 它们 的 相互 关系 的 认识 。3 ) 将 有 关 认 识 与 那些 在 实际 中 和 它们 同 在 的 所 
有 其 他 认识 隔离 开 ， 这 就 是 抽象 ， 所 有 具有 普遍 性 的 认识 都 是 这 样 得 到 的 。 


John Locke, tn Cuag Concerning Aman Vadersianding 
( 有 关 人 类 理解 的 随笔 ，1690 ) 


我 们 淮 备 学 习 的 是 有 关 计 算 过 程 的 知识 。 计 算 过 程 是 存在 于 计算 机 里 的 一 类 抽象 事物 ， 
在 其 演化 进程 中 ， 这 些 过 程 会 去 操作 一 些 被 称 为 数据 的 抽象 事物 。 人 们 创建 出 一 些 称 为 程序 
的 规则 模式 ， 以 指导 这 类 过 程 的 进行 。 从 作用 上 看 ， 就 像 是 我 们 在 通过 目 己 的 写作 魔力 去 控 
制 计算 机 里 的 精灵 似 的 。 

一 个 计算 过 程 确实 很 像 一 种 神灵 的 恶 术 ， 它 看 不 见 也 摸 不 到 ， 根 本 就 不 是 由 物质 组 成 的 。 
然而 它 却 又 是 非常 真实 的 ， 可 以 完成 某 些 智力 性 的 工作 。 它 可 以 回答 提问 ， 可 以 通过 在 银行 
人 我 们 用 于 指挥 这 种 过 程 的 程序 
就 像 是 巫师 的 8 咒语， 它们 是 用 一 些 诡秘 而 深奥 的 程序 设计 语言 ， 通 过 符号 表达 式 的 形式 精心 
二 排 而 成 ， 它 们 换 壕 了 我 们 项 望 相应 的 计算 过 程 去 完成 的 工作 

在 正常 工作 的 计算 机 里 ， 一 个 计算 过 程 将 精密 而 准确 地 执行 相应 的 程序 。 这 样 ， 初 学 程 
序 设计 的 人 们 就 像 巫 师 的 徒弟 们 那样 ， 必 须 学 习 如 何 去 理 解 和 预期 他 们 所 发 出 的 死 语 的 效果 。 
程序 里 即使 有 一 点 小 错误 (常常 被 称 为 程序 错误 (bug) 或 者 故障 (glitch))， 也 可 能 产生 复 
杂 而 无 法 预料 的 后 果 。 

幸运 的 是 ， 学 习 程 序 的 危险 性 还 远 小 于 学 汪 刺 术 ， 因为 我 们 要 去 控制 的 神灵 以 一 种 很 安 
全 的 方式 被 约束 着 。 而 真实 的 程序 设计 则 需要 极度 细心 ， 需 要 经 验 和 管 车 。 例 如 ， 在 一 个 计 
算 机 辅助 设计 系统 里 的 一 点 小 毛病 ， 就 可 能 导致 一 架 飞 机 或 者 一 座 水 坝 的 灾难 性 损毁 ， 或 者 
一 个 工业 机 器 人 的 自我 破坏 。 

软件 工程 大 师 们 能 组 织 好 自己 的 程序 ， 使 自己 能 合理 地 确信 这 些 程序 所 产生 的 计算 过 程 
将 能 完成 预期 的 工作 。 他 们 可 以 事先 看 到 自己 系统 的 行为 方式 ， 知 道 如 何 去 构 造 这 些 程序 ， 
使 其 中 出 现 的 意外 问题 不 会 导致 灾难 性 的 后 果 。 而 且 ， 在 发 生 了 这 种 问题 时 ， 他 们 也 能 排除 
程序 中 的 错误 。 设 计 良 好 的 计算 系统 就 像 设 计 良 好 的 汽车 或 者 核反应 堆 一 样 ， 具有 某 种 模块 
化 的 设计 ， 其 中 的 各 个 部 分 都 可 以 独立 地 构造 、 替 换 、 排 除 错 误 。 

用 Lisp 编 程 

为 了 描述 这 类 计算 过 程 ， 我 们 需要 有 一 种 适用 的 语言 。 我 们 将 为 此 使 用 程序 设计 语言 
Lisp 。 正 如 人 们 每 天 用 自然 语言 (如 英语 、 法 语 或 日 语 等 ) 表述 自己 的 想法 ， 用 数学 形式 的 


2 过 过 相亲 


记 法 描述 定量 的 现象 一 样 ， 我 们 将 要 用 Lisp 表 述 过 程 性 的 思想 。Lisp 是 20 世 纪 50 年 代 后 期 发 明 
的 一 种 记 法 形 去 ， 是 为 了 能 对 某 种 特定 形式 的 逻辑 表达 式 ( 称 为 递归 方程 ) 的 使 用 做 推理 。 
递归 方程 可 以 作为 计算 的 模型 。 这 一 语言 是 由 John McCarthy 设 计 的 ， 基 于 他 的 论文 
“Recursive Functions of Symbolic Expressions and Their Computation by Machine” ”( 符 号 表达 
AMA AAAA LRT A, McCarthy 1960). 

虽然 在 开始 时 ，MecCarthy 是 想 以 Lisp 作为 一 种 数学 记述 形式 ， 但 它 确 实 是 一 种 实用 的 程 
序 设计 语言 。 一 个 Lisp 解释 器 就 像 是 一 台 机 器 ， 它 能 实现 用 Lisp 语 言 描述 的 计算 过 程 。 第 一 个 
Lisp 解 释 器 是 McCarthy 在 MIT 电 子 研究 实验 室 的 人 工 智能 组 和 MIT 计 算 中 心里 他 的 同事 和 学 生 
的 帮助 下 实现 的 。Lisp 的 名 字 来 自 表 处 理 (LISt Processing ) ， 其 设计 是 为 了 提供 符号 计算 的 
能 力 ， 以 便 能 用 于 解决 一 些 程序 设计 间 题 ， 例 如 代数 表达 式 的 符号 微分 和 积分 。 它 包含 了 返 
用 于 这 类 目的 的 一 些 新 数据 对 象 ， 称 为 原子 和 表 ， 这 是 它 与 那 一 时 代 的 所 有 其 他 语言 之 间 最 
明显 的 不 同 之 处 。 

Lisp 并 不 是 一 个 刻意 的 设计 努力 的 结果 ， 它 以 一 种 试验 性 的 非 正式 的 方式 不 断 演化 ， 以 
满足 用 户 的 需要 和 实际 实现 的 各 种 考虑 。Lisp 的 这 种 非 官 方 演化 持续 了 许多 年 ，Lisp 用 书社 团 
具有 抵制 制定 这 一 语言 的 “官方 ”定义 企图 的 传统 。 这 种 演化 方式 以 及 语言 初始 概念 的 灵活 
和 优美 ， 使 得 Lisp 成 为 今天 还 在 广泛 使 用 的 历史 第 二 悠久 的 语言 (只 有 Fortran 比 它 更 老 )。 这 
一 语言 还 在 不 断 调整 ， 以 便 去 包容 有 关 程 序 设计 的 最 新 思想 。 正 因为 这 样 ， 今 天 的 Lisp 已 经 
形成 了 一 族 方 言 ， 它 们 共享 着 初始 语言 的 大 部 分 特征 ， 也 可 能 有 这 样 或 那样 的 重要 差异 。 用 
于 本 书 的 Lisp 方 言 名 为 Scheme“。 

由 于 Lisp 的 试验 性 质 以 及 强调 符号 操作 的 特 丘 ， 开始 时 的 这 个 语言 对 于 数值 计算 而 过 言 是 
很 低 效 的 ， 至 少 与 Fortran 比较 时 是 这 样 。 经 过 这 么 多 年 的 发 展 ， 人 们 已 经 开发 出 了 LIsp 编译 
器 ， 它 们 可 以 将 程序 翻译 为 机 器 代码 ， 这 样 的 代码 能 相当 高 效 地 完成 各 种 数值 计算 。Lisp 已 
经 可 以 非常 有 效 地 用 于 一 些 特殊 的 应 用 领域 ;。 虽 然 Lisp 还 设 有 完全 战胜 有 关 CR al (RRR 
绩 ， 但 它 现在 已 被 用 于 许多 性 能 并 不 是 最 重要 考虑 因素 的 应 用 领域 。 例 如 ，Lisp 已 经 成 为 操 
作 系 统 外 过 语言 的 一 种 选择 ， 作 为 编辑 器 和 计算 机 辅助 设计 系统 的 扩充 语言 等 等 。 

既然 Lisp 并 不 是 一 种 主流 语言 ， 我 们 为 什么 要 用 它 作为 讨论 程序 设计 的 基础 呢 ? 这 是 因 
为 ， 这 一 语言 具有 许多 独 有 的 特征 ， 这 些 特 征 使 它 成 为 研究 重要 程序 的 设计 、 构 造 ， 以 及 各 
种 数据 结构 ， 并 将 其 关联 于 支持 它们 的 语言 特征 的 一 种 极 佳 媒介 。 这 些 特 征 之 中 最 重要 的 就 


| Lisp 1 Programmer's Manual £1960 8, Lisp 1.5 Programmer’ s Manual (McCarthy 1965) 在 1962 年 发 表 。 
有 关 Lisp 的 早期 历史 见 McCarthy 1978 , 

2 在 20 世 纪 70 年 代 ， 最 主要 的 两 个 Lisp 方 言 是 MIT 的 MAC 项 目 中 开发 的 MacLisp (Moon 1978; Pitman 1983), LA 
及 在 Bolt Beranek and Newman Inc. 和 Xerox Palo Alto Research Center 开 发 的 Interlisp (Teitelman 1974), ， 那 时 
主要 的 Lisp 程 序 都 是 用 它们 写 的 Portable Standard Lisp (Hearn 1969; Griss 1981) 是 另 一 种 Lisp 方 言 ， 其 设计 
就 是 为 能 更 容易 地 移植 到 不 同 的 计算 机 上 。MacLisp 又 发 展 出 一 些 子 方言 ， 例 如 加 州 大 学 伯克利 分 校 开发 的 
Franz Lisp， 还 有 ZetaLisp (Moon 1981) ， 它 基于 MIT 人 工 智 能 实验 室 设 计 的 一 种 专用 处 理 器 ， 这 一 处 理 器 可 以 
非常 高 效 地 运行 Lisp 。 本 书 所 用 的 Lisp 方 言 称 为 Scheme (Steele 1975), 是 1975 年 由 MIT 人 工 智 能 实验 室 的 Guy 
Lewis Steele Jr. 和 Gerald Jay Sussman 设计 的 ， 后 来 在 MIT 为 了 教学 使 用 而 重新 实现 。 在 1990 年 Scheme 变 成 了 
IEEE 标 准 (IEEE 1990), Common Lisp 方 言 (Steele 1982, Steele 1990) 是 由 Lisp 社 团 综 合 了 早 前 各 种 Lisp 方 言 
的 特征 而 开发 出 来 的 ， 希 望 能 做 成 Lisp 的 工业 标准 。Common Lisp 在 1994 Æ R HANSIE (ANSI 1994), 

; 这 方面 有 一 个 应 用 是 科学 计算 的 重要 突破 一 有关 太阳 系统 运动 的 整合 ， 它 将 以 前 的 结果 提高 了 两 个 数量 级 ， 
并 显示 出 太阳 系统 动力 学 的 混沌 性 。 完 成 这 一 计算 依靠 了 一 种 新 的 整合 算法 、 一 个 特殊 的 编译 器 以 及 一 台 专 用 
计算 机 ， 所 有 这 些 都 是 在 用 Lisp 写 的 软件 工具 的 帮助 下 实现 的 (Abelson et al. 1992; Sussman 和 Wisdom 1992), 


是 ， 计 算 过 程 的 Lisp 描 述 ( 称 为 过 程 ) 本 身 又 可 以 作为 Lisp 的 数据 来 表示 和 操作 。 这 一 事实 的 
重要 性 在 于 ， 现 存 的 许多 威力 强大 的 程序 设计 技术 ， 都 依赖 于 填 平 在 “被 动 的 ”数据 和 “ 主 
动 的 ”过 程 之 间 的 传统 划分 。 正 如 我 们 将 要 看 到 的 ，Lisp 可 以 将 过 程 作为 数据 进行 处 理 的 灵 
活性 ， 使 它 成 为 探索 这 些 技术 的 最 方便 的 现存 语言 之 一 。 能 将 过 程 表示 为 数据 的 能 力 ， 也 使 
Lisp 成 为 编写 那些 必须 将 其 他 程序 当 作 数据 去 操作 的 程序 的 最 佳 语言 ， 例 如 支持 计算 机 语言 
的 解释 器 和 编译 器 。 除 了 这 些 考虑 之 外 ， 用 Fisp 编程 本 身 也 是 极其 有 趣 的 。 


1.1 程序 设计 的 基本 元 素 


一 个 强 有 力 的 程序 设计 语言 ， 不 仅 是 一 名 指控 计算 机 执 和 子 任务 的 方式 ， 它 还 应 该 成 为 一 
种 框架 ， 使 我 们 能 够 在 其 中 组 织 自 己 有 关 计 算 过 程 的 思想 。 这 样 ， 当 我 们 描述 一 个 语言 时 ， 
就 需要 将 注意 力 特别 放 在 这 一 汪 村 所 昌 优 的， 能 夏 将 简单 的 认识 组 全 起 来 形成 更 复 末 认识 的 
方法 方面 。 每 一 种 强 有 力 的 语言 都 为 此 提供 了 三 种 机 制 : 

。 基本 表达 形式 ， 用 于 表示 语言 所 关心 的 最 简单 的 个 体 。 

。 组 合 的 方法 ， 通 过 它们 可 以 从 较 简 单 的 东西 出 发 构造 出 复合 的 元 素 。 

* 抽象 的 方法 ， 通 过 它们 可 以 为 复合 对 象 命名 ， 并 将 它们 当 作 单元 去 操作 。 

在 程序 设计 中 ， 我 们 需要 处 理 两 类 要 素 ， 过 程 和 数据 (以 后 读者 将 会 发 现 ， 它 们 实际 上 
并 不 是 这 样 严格 分 离 的 ) 。 非 形式 地 说 ， 数 据 是 一 种 我 们 希望 去 操作 的 “东西 >， 而 过 程 就 是 
有 关 操 作 这 些 数据 的 规则 的 描述 。 这 样 ， 任 何 强 有 力 的 程序 设计 语言 都 必须 能 表述 基本 的 数 
据 和 基本 的 过 程 ， 还 需要 提供 对 过 程 和 数据 进行 组 合 和 抽象 的 方法 。 

本 章 只 处 理 简单 的 数值 数据 ， 这 就 使 我 们 可 以 把 注意 力 集中 到 过 程 构造 的 规则 方面 4。 在 
随后 几 章 里 我 们 将 会 看 到 ， 用 于 构造 过 程 的 这 些 规 则 同样 也 可 以 用 于 操作 各 种 数据 。 


1.1.1 RAK 


开始 做 程序 设计 ， 最 简单 方式 就 是 去 观看 一 些 与 Lisp 方 言 Scheme 解 释 器 交互 的 典型 实例 。 
设想 你 坐 在 一 台 计算 机 的 终端 前 ， 用 键盘 输入 了 TR A, MSIE DNE 
表达 式 的 求 值 结果 显示 出 来 。 

你 可 以 键入 的 一 种 基本 表达 式 就 是 数 CRE ARE 你 键入 的 是 由 数字 组 成 的 表达 式 ， 


它 表示 的 是 以 10 作 为 基数 的 数 )。 如 果 你 给 Lisp 一 个 数 


486 


解释 器 的 响应 是 打印 出 * 


4 将 数值 作为 “简单 数据 ”看 待 实际 上 完全 是 一 种 虚 张 声势 。 事 实 上 ， 对 于 数值 的 处 理 是 任何 程序 设计 语言 里 
最 错综复杂 而 且 也 最 迷惑 人 的 事项 之 一 ， 其 中 涉及 的 典型 问题 包括 ， 某 些 计算 机 系统 区 分 了 整数 《例如 2) 和 
实数 (例如 2.71) 。 那 么 实数 2.00 和 整数 2 不 同 吗 ? 用 干 整数 的 算术 运算 是 否 与 用 于 实数 的 运算 相同 呢 ? 用 6 除 
以 2 的 结果 是 3 还 是 3.0? 我 们 可 以 表示 的 最 大 的 数 是 多 少 ? 最 多 能 表示 的 精度 包含 了 多 少 个 十 进 制 位 ?整数 的 
表示 范围 与 实数 一 样 吗 ? 显然 ， 上 述 这 些 问 题 以 及 许多 其 他 问题 ， 都 会 带 来 有 关 舍 人 和 截断 误差 的 一 系列 问 
题 一 -这 就 是 数值 分 析 的 整个 科学 领域 。 因为 我 们 在 本 书 中 主要 关心 的 是 大 规模 程序 的 设计 ,而 不 是 数值 技术 ， 
因此 将 忽略 对 这 些 问 题 的 讨论 。 本 章 中 有 关 数 值 的 实例 将 没有 常规 的 舍 入 动作 ， 而 如果 对 非 整 数 使 用 具有 有 
限 的 十 进 制 位 数 精 度 的 算术 运算 ， 就 会 看 到 这 方面 的 情 次 。 

5 在 这 本 书 里 的 任何 地 方 ， 当 我 们 希望 强调 用 户 键入 的 输入 和 解释 器 的 陶 应 之 间 的 差异 时 ， 就 用 斜体 的 形式 显 


示 后 者 。 


4 eee HAE 


486 ‘3 | : 

可 以 用 表示 基本 过 程 的 表达 形式 (例如 + 或 者 *) ， 将 表示 数 的 表达 式 组 合 起 来 ， 形 成 复 
合 表达 式 ， 以 表示 求 要 把 有 关 过 程 应 用 于 这 些 数 。 例 如 : 

(+ 137 349) 

486 

(~ 1000 334) id 

666 


(* 5 99) 
495 


(/ 10 5) 
2 


(+ 2.7 190) 
12.7 


像 上 面 这 样 的 表达 式 称 为 组 合式 ， 其 构成 方式 就 是 用 一 对 括号 括 起 一 些 表达 式 ， 形 成 一 
个 表 ， 用 于 表示 一 个 过 程 应 用 。 在 表 里 最 左 的 元 素 称 为 运算 罕 ， 其 他 元 素 都 称 为 运算 对 象 。 
要 得 到 这 种 组 合式 的 值 ， 采 用 的 方式 就 是 将 由 运算 符 所 刻画 的 过 程 应 用 于 有 关 的 实际 参数 ， 
而 所 谓 实际 参数 也 就 是 那些 运算 对 象 的 值 。 

将 运算 符 放 在 所 有 运算 对 象 左边 ， 这 种 形式 称 为 前 组 表示 。 刚 开始 看 到 这 种 表示 时 会 感 
到 有 些 不 习惯 ， 因 为 它 与 常规 数学 表示 差别 很 大 。 然 而 前 级 表示 也 有 一 些 优点 ， 其 中 之 一 就 
是 它 完全 适用 于 可 能 带 有 任意 个 实 参 的 过 程 ， 例 如 在 下 面 实 例 中 的 情况 : 

(+ 21 35 12 7) | 

75 


(* 25 4 12) 
1200 


在 这 里 不 会 出 现 歧 义 ， 因 为 运算 符 总 是 最 左边 的 元 素 ， 而 整个 表达 式 的 范围 也 由 括号 界定 。 
前 绥 表 示 的 第 二 个 优点 是 它 可 以 直接 扩充 CHAKRA, BRAN, t 
许 组 合式 的 元 素 本 身 又 是 组 合式 : 
(+ (* 3 5) (- 10 6)) 
19 
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没有 任何 限制 。 倒 是 我 们 自己 有 可 能 被 一 些 并 不 很 复杂 的 表达 式 摘 糊涂 ， 例 如 : 
(+ (*3 (+ (* 2 4) (+35))) (+ (- 10 7) 6)) 


对 于 这 个 表达 式 ， 解 释 器 可 以 马上 求 值 出 57 。 将 上 述 表达 式 写 成 下 面 的 形式 有 助 于 阅读 : 


(+ (* 3 
(+ (* 2 4) 
(+ 3 5))) 
(+ (- 10 7) 


6)) 
这 就 是 遵循 一 种 称 为 美观 打印 的 格式 规则 。 按 照 这 种 规则 ， 在 写 一 个 很 长 的 组 合式 时 ， 我 们 


令 其 中 的 各 个 运算 对 象 垂直 对 齐 。 这 样 缩 格 排列 的 结果 能 很 好 地 显示 出 表达 式 的 结构 5。 

即使 对 于 非常 复杂 的 表达 式 ， 解 释 器 也 总 是 按 同 样 的 基本 循环 运作 :从 终端 读 入 一 个 表 
达 式 ， 对 这 个 表达 式 求 值 ， 而 后 打印 出 得 到 的 结果 。 这 种 运作 模式 常常 被 人 们 说 成 是 解释 器 
运行 在 一 个 读 入 一 求 值 一 打印 循环 之 中 。 请 特别 注意 ， 在 这 里 完全 没有 必要 显 式 地 去 要 求解 
释 器 打印 表达 式 的 值 7。 


1.1.2 命名 和 环境 


程序 设计 语言 中 一 个 必 不 可 少 的 方面 ， 就 是 它 需 要 提供 一 种 通过 名 字 去 使 用 计算 对 角 的 
方式 。 我 们 将 名 字 标 识 符 称 为 变量 ， 它 的 值 也 就 是 它 所 对 应 的 那个 对 象 。 

在 Lisp 方 言 Scheme 里 ， 给 事物 命名 通过 define (定义 ) 的 方式 完成 ， 输 入 : 

(define size 2) 
会 导致 解释 器 将 值 2 与 名 字 size 相 关联 *。 一 旦 名 字 size 与 2 关联 之 后 ， 我 们 就 可 以 通过 这 个 
名 字 去 引用 值 2 了 : 


size 
2 





(* 5 size) 

10 

下 面 是 另外 几 个 使 用 aefine 的 例子 : 
(define pi 3.14159) 

(define radius 10) 

(* pi (* radius radius) ) 

314.159. 

(define circumference (* 2 pi radius)) . 


circumference 
62.8318 


define 是 我 们 所 用 的 语言 里 最 简单 的 抽象 方法 ， 它 允许 我 们 用 一 个 简单 的 名 字 去 引用 一 
个 组 合 运算 的 结 朱 ， 例如 上 面 算 出 的 circumference。 一 般 而 言 ， 计 算得 到 的 对 象 完全 可 
以 具有 非常 复杂 的 结构 ， 如 果 每 次 需要 使 用 它们 时 ， 都 必须 记 住 并 重复 地 写 出 它们 的 细节 ， 
那 将 是 极端 不 方便 的 事情 。 实 际 上 ， 构 造 一 个 复杂 的 程序 ， 也 就 是 为 了 去 一 步 步 地 创建 出 越 
类 起 复杂 :的 计算 性 对 象 。 解 释 器 使 这 种 逐步 的 程序 构造 过 程 变 得 非常 方便 ， 因 为 我 们 可 以 通 

一 系列 交互 式 动作 ， 逐 步 创 建 起 所 需要 的 名 字 -对 象 关联 。 这 种 特征 鼓励 和 人们 采用 递增 的 
RIE RAIE. 在 很 大 程度 上 ， 这 一 情况 也 出 于 另 一 个 事实 ， 那 就 是 ， 一 个 Lisp 程 
序 通 常 总 是 由 一 大 批 相对 简单 的 过 程 组 成 的 。 


5Lisp 系 统 通常 都 为 用 户 提供 了 一 些 对 表达 式 进行 格式 化 的 特征 。 其 中 包含 两 个 最 有 用 的 特征 ， 其 一 是 在 开始 一 
个 新 行 时 ， 自 动 缩 格 到 美观 打印 形式 的 准确 位 置 ， 另 一 特征 是 在 输入 右 括号 时 自动 加 亮 显示 与 之 对 应 的 左 括号 。 
7 Lisp 遵 循 一 种 约定 ， 规 定 每 个 表达 式 都 有 一 个 值 。 这 一 约定 和 有 关 Lisp 是 一 个 低 效 语言 的 中 人 旧 说 法 一 起 ， 形 成 
了 Alan Perlis 的 妙语 (由 Oscar Wilde 释 义 ) : “Lisp 程 序 员 知 道 所 有 东西 的 值 (value ， 价 值 )， 但 却 不 知道 任何 


东西 的 代价 (cost) 。 
s 本 书 中 将 不 给 出 解释 器 在 对 定义 求 值 时 的 响应 ， 因 为 这 依赖 于 具体 实现 。 


应 该 看 到 ， 我 们 可 以 将 值 与 符号 关联 ， 而 后 又 能 提取 出 这 些 值 ， 这 意味 着 解释 器 必须 维 
护 某 种 存储 能 力 ， 以 便 保持 有 关 的 名 字 - 值 对 侦 的 轨迹 。 这 种 存储 被 称 为 环境 (更 精确 地 说 ， 
是 全 局 环境 ， 因 为 我 们 以 后 将 看 到 ， 在 一 个 计算 过 程 中 完全 可 能 涉及 者 于 不 同 环 境 )“。 


1.1.3 组 合式 的 求 值 


本 章 的 一 个 目标 ， 就 是 要 把 与 过 程 性 思维 有 关 的 各 种 问题 隔离 出 来 。 现 在 让 我 们 考虑 组 
合式 的 求 值 问题 。 解 释 器 本身 就 是 按照 下 面 过 程 工作 的 。 

* 要求 值 一 个 组 合式 ， 做 下 面 的 事情 

1) 求 值 该 组 合式 的 各 个 子 表达 式 。 

2) 将 作为 最 左 子 表达 式 (运算 符 ) 的 值 的 那个 过 程 应 用 于 相应 的 实际 参数 ， 所 谓 实际 参 
数 也 就 是 其 他 子 表达 式 (运算 对 象 ) 的 值 。 

即使 是 一 条 这 样 简单 的 规则 ， 也 显示 出 计算 过 程 里 的 一 些 具有 普遍 性 的 重要 问题 。 首 先 ， 
由 上 面 的 第 一 步 可 以 看 到 ， 为 了 实现 对 一 个 组 合式 的 求 值 过 程 ， 我 们 必须 先 对 组 合式 里 的 每 
个 元 素 执行 同样 的 求 值 过 程 。 因 此 ， 在 性 质 上 ， 这 一 求 值 过 程 是 递归 的 ， 也 就 是 说 ， 它 在 自 
CM LEER, BSH MAS HEE”. 

E PB WER, RABBIS ZR RE RE. A 
递归 ， 我 们 就 需要 把 这 种 情况 看 成 相当 复杂 的 计算 过 程 。 例 如 ， 对 下 列表 达 式 求 值 : 

(* (+ 2 (* 4 6)) 

(+ 3 5 7)) 

需要 将 求 值 规则 应 用 于 4 个 不 同 的 组 合式 。 如 图 1-1 中 所 示 ， 我 们 可 以 采用 一 棵 树 的 形式 M 
图 形 表 示 这 一 组 合式 的 求 值 过 程 ， 其 中 的 每 个 组 合式 用 一 个 带 分 支 的 结 点 表示 ， 由 它 发 出 的 
分 支 对 应 于 组 合式 里 的 运算 符 和 各 个 运算 对 象 。 终 端 结 点 ( 即 那 些 不 再 发 出 分 支 的 结 点 ) 表 
示 的 是 运算 符 或 者 数值 。 以 树 的 观点 看 这 种 求 值 过 程 ， 可 以 设想 那些 运算 对 象 的 值 向 上 穿行 
从 终端 结 点 开始 ， 而 后 在 越 来 越 高 的 层次 中 组 合 起 来 。 一 般 而 言 ， 我 们 应 该 把 递归 看 做 一 种 
处 理 层 次 性 结构 的 ( 像 树 这 样 的 对 象 ) 极 强 有 力 的 技术 。 事 实 上 ,“ 值 向 上 穿行 ”形式 的 求 什 
形式 是 一 类 和 更 一 般 的 计算 过 程 的 一 个 例子 ， 这 种 计算 过 程 称 为 树 形 积累 。 

进一步 的 观察 告诉 我 们 ， 反 复 地 应 用 第 一 个 步骤 ， 总 可 以 把 我 们 带 到 求 值 中 的 某 一 点 
在 这 里 遇 到 的 不 是 组 合式 而 是 基本 表达 式 ， 例 如 数 、 内 部 运算 符 或 者 其 他 名 字 。 处 理 这 些 基 
础 情况 的 方式 如 下 规定 : 

* 数 的 值 就 是 它们 所 表示 的 数值 。 

。 内 部 运算 符 的 值 就 是 能 完成 相应 操作 的 机 器 指令 序列 。 

© 其 他 名 字 的 值 就 是 在 环境 中 关联 于 这 一 名 字 的 那个 对 象 。 
我 们 可 以 将 第 二 种 规定 看 作 是 第 三 种 规定 的 特殊 情况 ， 为 此 只 需 将 像 + 和 * 一 类 的 运算 符 也 
包含 在 全 局 环境 里 ， 并 将 相应 的 指令 序列 作为 与 之 关联 的 “ 值 "。 对 于 初学 者 ， 应 该 指出 的 关 
键 一 点 是 ， 环境 所 扮演 的 角色 就 是 用 于 确定 表达 式 中 各 个 符号 的 意义 。 在 如 1p 这 样 的 交互 


”第 3 章 将 说 明 ， a 还 是 实现 解释 器 而 言 ， 环境 的 概念 都 是 至 关 重要 的 。 

0 这 一 求 值 规则 说 ， 在 它 的 第 一 步 要 对 组 合式 的 最 左 元 素 求 值 ， 这 一 说 法 看 起 来 好 像 有 点 奇怪 ， 因 为 在 这 里 出 
现 的 只 是 十 和 * ewe. ENRRMAA MEAL HB, WOR MARR. 后 面 将 看 到 这 一 规则 是 有 
用 的 ， 因 为 我 们 还 需要 处 理 那 些 运 算 符 部 分 也 是 组 合 表达 式 的 情况 。 
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图 1-1 树 形 表 示 方 法 ， 其 中 显示 了 每 个 子 表达 式 的 值 


式 语言 里 ， 如 果 没 有 关于 有 关 环 境 的 任何 信息 ， 那 么 说 例如 表达 式 (+ x 1) 的 值 是 毫 无 意 
义 的 ， 因 为 需要 有 环境 为 符号 x 提供 意义 (甚至 需要 它 为 符号 + 提供 意义 )。 正 如 我 们 将 要 在 
第 3 章 看 到 的 ， 环 境 是 具有 普遍 性 的 概念 ， 它 为 求 值 过 程 的 进行 提供 了 一 种 上 下 文 ， 对 于 我 们 
理解 程序 的 执行 起 着 极其 重要 的 作用 。 

请 注意 ， 上 面 给 出 的 求 值 规则 里 并 没有 处 理 定义 。 例 如 ， 对 (define x 3) 的 求 值 并 
不 是 将 aefine 应 用 于 它 的 两 个 实际 参数 : 其 中 的 一 个 是 符号 x 的 值 ， 另 一 个 是 3。 这 是 因为 
define 的 作用 就 是 为 x 关联 一 个 值 (HRA, (define x 3) 并 不 是 一 个 组 合式 )。 

一 般 性 求 值 规 则 的 这 种 例外 称 为 特殊 形式 ，define 是 至 今 我 们 已 经 看 到 的 惟一 的 一 种 特 
殊 形式 ， 下 面 还 将 看 到 另外 一 些 特殊 形式 。 每 个 特殊 形式 都 有 其 自身 的 求 值 规则 ， 各 种 不 同 
种 类 的 表达 式 (每 种 有 着 与 之 相关 联 的 求 值 规则 ) 组 成 了 程序 设计 语言 的 语法 形式 。 与 大 部 
分 其 他 程序 设计 语言 相 比 ，Lisp 的 语法 非常 简单 。 也 就 是 说 ， 对 各 种 表达 式 的 求 值 规则 可 以 
描述 为 一 个 简单 的 通用 规则 和 一 组 针对 不 多 的 特殊 形式 的 专门 规则 "。 


1.1.4 复合 过 程 


我 们 已 经 看 到 了 Lisp 里 的 某 些 元 素 ， 它 们 必然 也 会 出 现在 任何 一 种 强 有 力 的 程序 设计 倩 
言 里 。 这 些 东 西 包括 : 

* 数 和 算术 运算 是 基本 的 数据 和 过 程 。 

* 组 合式 的 修 套 提供 了 一 种 组 织 起 多 个 操作 有 的 方法 。 

* 定义 是 一 种 受 限 的 抽象 手段 ， 它 为 名 字 关 联 相 应 的 值 。 

现在 我 们 来 学 习 过 程 定义 ， 这 是 一 种 威力 更 加 强大 的 抽象 技术 ， 通 过 它 可 以 为 复合 操作 


u 这 里 的 特殊 语法 形式 ， 只 不 过 是 为 那些 完全 可 以 采用 统一 形式 描述 的 东西 给 出 的 另 一 种 表面 结构 ， 通 常 被 称 
为 语法 的 糖衣 ， 这 个 术语 源 自 Peter Landin。 与 其 他 语言 相 比 ，Lisp 程 序 员 更 少 关心 语法 的 问题 (与 此 相对 应 ， 
查看 一 下 Pascal 的 手册 ， 就 可 以 看 到 它 将 多 少 篇 幅 用 于 描述 语法 )。Lisp 对 语法 的 获 视 情况 ， 部 分 地 归 因 于 它 

”的 灵活 性 ， 因 此 使 它 很 容易 改变 表面 的 语法 形式 。 此 外 还 源 自 对 许多 “方便 的 ”语法 结构 的 看 法 ， 认 为 那样 
做 产生 出 的 语言 更 少 统一 性 ， 在 程序 变 得 更 大 更 复杂 时 ， 最 终 带 来 的 麻烦 比 它 们 的 价值 更 大 。 按 照 Alan Perlis 
的 说 法 ,，“ 语 法 的 糖衣 会 导致 分 号 的 癌症 ”。 
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提供 名 字 ， 而 后 就 可 以 将 这 样 的 操作 作为 一 个 单元 使 用 了 。 
现在 我 们 要 考察 如 何 表述 “平方 ”的 想法 。 我 们 可 能 想 说 “ 求 某 个 东西 的 平方 ， 就 是 用 
它 目 秧 去 乘 以 它 自 里 。 在 这 个 语言 里 ， 这 件 事情 应 该 表述 为 : 
(define (square x) (* x x)) 
可 以 按 如 下 方式 理解 这 一 描述 : 
{define (Square x) (* X 
| | | | 1 | 
去 平方 蘑 个 东西 RE CF 和 CAF 
这 样 我 们 就 有 了 一 个 复 会 过程， 给 它 取 的 名 字 是 square。 这 一 过 程 表示 的 是 将 一 个 东西 乘 以 
它 自 身 的 操作 。 被 乘 的 东西 也 给 定 了 一 个 局 部 名 字 X， 它 扮演 着 与 自然 语言 里 代词 同样 的 角色 。 
求 值 这 一 定义 的 结果 是 创建 起 一 个 复合 过 程 ， 并 将 它 关 联 于 名 字 square“。 
过 程 定义 的 一 般 形 式 是 : 
(define (<name> <formal parameters>) <body>) 
其 中 <name> 是 一 个 符号 ， 过 程 定义 将 在 环境 中 关联 于 这 个 符号 5 。<formal parameters> (BAS 
数 ) 是 一 些 名 字 ， 它 们 用 在 过 程 体 中 ， 用 于 表示 过 程 应 用 时 与 它们 对 应 的 各 个 实际 驳 数 。 
<body> 是 一 个 表达 式 ， 在 应 用 这 一 过 程 时 ， 这 一 表达 式 中 的 形式 参数 将 用 与 之 对 应 的 实际 参 
数 取 代 ， 对 这 样 取代 后 的 表达 式 的 求 值 ， 产 生出 这 个 过 程 应 用 的 值 *。<name> 和 <formal 
parameters> 被 放 在 一 对 括号 里 ， 成 为 一 组 ， 就 像 实 际 调用 被 定义 过 程 时 的 写法 。 
定义 好 square 之 后 ， 我 们 就 可 以 使 用 它 了 : 


(square 21) 
441 


(square (+ 2 5)) 
49 


(square (square 3)) 
81 


我 们 还 可 以 用 square 作 为 基本 构件 去 定义 其 他 过 程 。 例 如 , 六 +》 可 以 表述 为 : 

(+ (Square x) (square y)) 
现在 我 们 很 容易 定义 一 个 过 程 sum-of -squares ， 给 它 两 个 数 作 为 实际 参数 ， 让 它 产 生 这 两 
个 数 的 平方 和 : 


(define (sum-of-squares x y) 
(+ (Square x) (Square y))) 


(sum-of-squares 3 4) 
25 


2 可 以 看 到 ， 这 里 实际 上 组 合 了 两 个 不 同 操作 :建立 了 一 个 过 程 ， 并 为 它 给 定 了 名 字 square 。 完 全 可 能 将 这 两 
个 概念 分 离开 ， 能 够 那样 做 也 是 非常 重要 的 。 我 们 可 以 创建 一 个 过 程 但 并 不 予以 命名 ， 也 可 以 给 以 前 创建 好 
的 过 程 命名 。 在 1.3.2 节 里 将 会 做 这 些 事情 。 

3 在 本 书 里 描述 表达 式 的 语法 形式 时 , 用 尖 括 号 括 起 的 斜体 符号 (例如 <name>) 表示 表达 式 中 的 一 些 “ 空 位 置 ”。 


在 实际 采用 这 种 表达 式 时 就 需要 填充 它们 。 
“更 一 般 的 情况 是 ， 过 程 体 可 以 是 一 系列 的 表达 式 。 此 时 解释 器 将 顺序 求 值 这 个 序列 中 的 各 个 表达 式 ， 并 将 最 


后 一 个 表达 式 的 值 作 为 整个 过 程 应 用 的 值 并 返回 它 。 


现在 我 们 又 可 以 用 sum-of-squares 作 为 构件 ， 进 一 步 去 构造 其 他 过 程 : 
(define (f a) 


(sum-of-squares (+ a 1) (* a 2))) 
(£ 5) 
136 
复合 过 程 的 使 用 方式 与 基本 过 程 完 全 一 样 。 实 际 上 ， 如 果 人 们 只 看 上 面 sum-of-squares 的 定 
义 ， 根 本 就 无 法 分 辨 出 square 究竟 是 〈 像 + 和 * 那样 ) 直接 做 在 解释 器 里 呢 ， 还 是 被 定义 为 
一 个 复合 过 程 。 


11.5 过程 应 用 的 代 换 模型 


为 了 求 值 一 个 组 合式 (其 运算 符 是 一 个 复合 过 程 的 名 字 )， 解 释 器 的 工作 方式 将 完全 按照 
1.1.3 切 中 所 描述 的 那样 ， 采 用 与 以 运算 符 名 为 基本 过 程 的 组 合式 一 样 的 计算 过 程 。 也 就 十 说 ， 
解释 器 将 对 组 合式 的 各 个 元 素 求 值 ， 而 后 将 得 到 的 那个 过 程 ( 也 就 是 该 组 合式 里 运算 符 的 值 ) 
应 用 于 那些 实际 参数 ( 即 组 合式 里 那些 运算 对 象 的 值 )。 

我 们 可 以 假定 ， 把 基本 运算 符 应 用 于 实 参 的 机 制 已 经 在 解释 项 里 做 好 T. 对 于 复合 过 程 ， 
过 程 应 用 的 计算 过 程 是 : 

。 将 复合 过 程 应 用 于 实际 参数 ， 就 是 在 将 过 程 体 中 的 每 个 形 参 用 相应 的 实 参 取代 之 后 ， 对 

这 一 过 程 体 求 值 。 | 

为 了 说 明 这 种 计算 过 程 ， 让 我 们 看 看 下 面 组 合式 的 求 值 : 

(£ 5) 

其 中 的 上 是 1.1.4 节 定义 的 那个 过 程 。 我 们 首先 提取 出 f 的 体 : 

(sum-of-squares (+ a 1) (* a 2)) 

而 后 用 实际 参数 5 代 换 其 中 的 形式 参数 ; 

(sum-of-squares (+ 5 1) (* 5 2)) 
这 样 ， 问 题 就 被 归 约 为 对 另 一 个 组 合式 的 求 值 ， 其 中 有 两 个 运算 对 象 ， 有 关 的 运算 符 龙 sum- 
of-squares 。 求 值 这 一 组 合式 牵涉 到 三 个 子 问题 : 我 们 必须 对 其 中 的 运算 符 求 值 ， 以 便 得 
到 应 该 去 应 用 的 那个 过 程 ， 还 需要 求 值 两 个 运算 对 象 ， 以 得 到 过 程 的 实际 参数 。 这 里 的 (+5 
1) 产生 出 6，(* 5 2) 产生 出 10， 因 此 我 们 就 需要 将 sum-of-squares 过 程 用 于 6 和 10。 
用 这 两 个 值 代 换 sum-~of-squares 体 中 的 形式 参数 X 和 y ， 表达 式 被 办 约 为 : 

(+ (square 6) (square 10)) 
使 用 square 的 定义 又 可 以 将 它 归 约 为 : 

(+ (* 6 6) (* 10 10)) : 
通过 乘法 又 能 将 它 进 一 步 归 约 为 : 

(+ 36 100) 

最 后 得 到 : 

136 


上 面 描述 的 这 种 计算 过 程 称 为 过 程 应 用 的 代 换 模 有 至 ， EREEREER SME LOTR 


OS 为 过 过 在 的 和 


我 们 可 以 将 它 看 作 确 定 过 程 应 用 的 “意义 ”的 一 种 模型 。 但 这 里 还 需要 强调 两 点 : 

。 代 换 的 作用 只 是 为 了 帮助 我 们 领会 过 程 调用 中 的 情况 ， 而 不 是 对 解释 部 实际 工作 方式 的 
具体 描述 。 通 常 的 解释 句 都 不 采用 直接 操作 过 程 的 正文 ， 用 值 去 代 换 形式 参数 的 方式 去 
完成 对 过 程 调用 的 求 值 。 在 实际 中 ， 它 们 一 般 采 用 提供 形式 参数 的 局 部 环境 的 方式 ， 产 
生 “ 代 换 ” 的 效果 。 我 们 将 在 第 34 章 和 第 4 章 考 察 一 个 解释 器 的 细 记 实现 ， 在 那里 更 完整 
地 讨论 这 一 问题 。 

* 随 着 本 书 讨论 的 进展 ， 我 们 将 给 出 有 关 解 释 器 如 何 工作 的 一 系列 模型 ， 一 个 比 一 个 更 精 
细 ， 并 最 终 在 第 $ 章 给 出 一 个 完整 的 解释 器 和 一 个 编译 器 。 这 里 的 代 换 模型 只 十 这 些 模 
型 中 的 第 一 个 一 一 作为 形式 化 地 考虑 这 种 求 值 过 程 的 起 点 。 一 般 来 说 ， 在 模拟 科学 研究 
或 者 工程 中 的 现象 时 ， 我 们 总 是 从 最 简单 的 不 完全 的 模型 开始 。 随 着 更 细致 地 检查 所 考 
虑 的 问题 ， 这 些 简单 模型 也 会 变 得 越 来 越 不 合适 ， 从 而 必须 用 进一步 精 化 的 模型 取代 。 
代 换 模型 也 不 例外 。 特 别 地 ， 在 第 3 章 中 ， 我 们 将 要 讨论 将 过 程 用 于 “变化 的 数据 的 
问题 ， 那 时 就 会 看 到 替换 模型 完全 不 行 了 ， 必 须 用 更 复杂 的 过 程 应 用 模型 来 代 赫 它 ” 。 

应 用 序 和 正则 序 | 

按照 1.1.3 节 给 出 的 有 关 求 值 的 描述 ， 解 释 器 首先 对 运算 符 和 各 个 运算 对 象 求 值 ， 而 后 将 

得 到 的 过 程 应 用 于 得 到 的 实际 参数 。 然 而 ， 这 并 不 是 执行 求 值 的 惟一 可 能 方式 。 另 一 种 求 值 
模型 是 先 不 求 出 运算 对 象 的 值 ， 直 到 实际 需要 它们 的 值 时 再 去 做 。 采 用 这 种 求 什 方式， 我们 
就 应 该 首先 用 运算 对 象 表达 式 去 代 换 形式 参数 ， 直 至 得 到 一 个 只 包含 基本 运算 符 的 表达 式 ， 
然后 再 去 执行 求 值 。 如 果 我 们 采用 这 一 方式 ， 对 下 面 表达 去 的 求 值 : 

(£ 5) 

将 按照 下 面 的 序列 逐步 展开 : 

(sum-of-squares (+ 5 1) (* 5 2)) 

(+ (square (+ 5 1)) (square (* 5 2)) ) 

(+ (* (+ 5 1) (+ 5 1)) (* (* 5 2) (* 5 2))) 

而 后 是 下 面 归 约 : | 
(+ (* 6 6) (* 10 10)) 
(+ 36 100) 
136 
这 给 出 了 与 前 面 求 值 模型 同样 的 结果 ,但 其 中 的 计算 过 程 却 是 不 一 样 的 。 特 别 地 ， 在 对 下 面 
表达 式 的 归 约 中 ， 对 于 (+5 1) 和 (* 5 2) 的 求 值 各 做 了 两 次 : 
(* x X) 
其 中 的 x 分 别 被 代 换 为 (+5 1) 和 (* 5 2), 
这 种 “完全 展开 而 后 归 约 ”的 求 值 模型 称 为 正则 序 求 值 ， 与 之 对 应 的 是 现在 解释 器 里 实 
际 使 用 的 “ 先 求 值 参数 而 后 应 用 ”的 方式 ， 它 称 为 应 用 序 求 值 。 可 以 证 明 ， 对 那些 可 以 通过 


5 虽然 代 换 模型 看 起 来 似乎 非常 简单 ， 但 令 人 吃惊 的 是 ， 给 出 代 换 过 程 的 严格 数学 定义 却 异 常 复杂 。 问 题 在 于 ， 
用 作 过 程 中 形式 参数 的 和 名字， 可 能 会 与 该 过 程 可 能 应 用 的 那些 表达 式 中 的 (同样 ) APRA. EE A 
程序 设计 的 语 义学 文献 里 ， 关于 代 换 的 充 满 错误 的 定义 有 一 个 很 长 的 历史 。 请 参考 Stoy 1977 中 有 关 代 换 的 详 
细 讨 论 。 
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巷 换 去 模拟 ， 并 能 产生 出 合 车 值 的 过 程 应 用 (包括 本 书 前 两 章 中 的 所 有 过 程 ) ， 正 则 序 和 应 用 
序 求 值 将 产生 出 同样 的 值 (参见 练习 1.5 中 一 个 “非法 ” 值 的 例子 ， 其 中 正则 序 和 应 用 序 将 给 
出 不 同 的 结果 ) 。 

Lisp 采 用 应 用 序 求 值 ， 部 分 原因 在 于 这 样 做 能 避免 对 于 表达 式 的 重复 求 值 (例如 上 面 的 
(+5 1) 和 (* 5 2) 的 情况 )， 从 而 可 以 提高 一 些 效率 。 更 重要 的 是 ， 在 超出 了 可 以 采用 
替换 方式 模拟 的 过 程 范围 之 后 ， 正 则 序 的 处 理 将 变 得 更 复杂 得 多 。 而 在 另 一 些 方面 ， 正 则 序 
也 可 以 成 为 特别 有 价值 的 工具 ， 我 们 将 在 第 3 章 和 第 4 章 研究 它 的 某 些 内 在 性 质 !。 


1.1.6 条 件 表达 式 和 谓 记 


至 此 我 们 能 定义 出 的 过 程 类 的 表达 能 力 还 非常 有 限 ， 因 为 还 没 办 法 去 做 某 些 检测 ， 而 后 
依据 检测 的 结果 去 确定 做 不 同 的 操作 。 例 如 ， 我 们 还 无 法 定义 一 个 过 程 ， 使 它 能 计算 出 一 个 
数 的 绝对 值 。 完 成 此 事 需 要 先 检 查 一 个 数 是 正 的 、 负 的 或 者 零 ， 而 后 依据 遇 到 的 不 同情 况 ， 
按照 下 面 规则 采取 不 同 的 动作 : | 

x WR x> 0 
|x|=4 0 Wx = 0 
-x Wx <0 


这 种 结构 称 为 一 个 分 情况 分 析 ， 在 LisP 里 有 着 一 种 针对 这 类 分 情况 分 析 的 特殊 形式 RA 
cond (表示 “条 件 ”)。 其 使 用 形式 如 下 : 


(define (abs x) 
(cond ‘(> x 0) xX) 
(f= x 0) 0) 
((< x 0) (- *)))) 
(cond (<p> <el> ) 
(<P2> <e) 


(<p,> <e> ) ) 


这 里 首先 包含 了 一 个 符号 cond， 在 它 之 后 跟着 一 些 称 为 子 身 的 用 括号 括 起 的 表达 式 对 候 
(<p> <e>), 在 每 个 对 偶 中 的 第 一 个 表达 式 是 一 个 谓词 ， 也 就 是 说 ， 这 是 一 个 表达 式 ， 它 的 
值 将 被 解释 为 真 或 者 假 "。 

条 件 表 达 式 的 求 值 方式 如 下 ; 首先 求 值 谓词 <pi> ， 如 果 它 的 值 是 Ealse ， 那 么 就 去 求 什 
<p;> ， 如 果 <px> 的 值 是 Ealse 就 去 求 值 <pa> 。 这 一 过 程 将 继续 做 下 去 ， 直 到 发 现 了 某 个 谓词 
的 值 为 真 为 止 。 此 时 解释 器 就 返回 相应 子 句 中 的 序列 表达 式 <e> 的 值 ， 以 这 个 值 作为 整个 条 件 
表达 式 的 值 。 如 果 无 法 找到 值 为 真 的 <p> ，cond 的 值 就 没有 定义 。 


is 第 3 章 将 引进 流 处 理 的 概念 ， 这 是 一 种 采用 了 正则 序 的 受 限 形式 去 处 理 明显 的 “无 限 ”数据 结 构 的 方式 。 在 
4.2 节 将 修 必 Scheme 解释 器 ， 做 出 Scheme 的 一 种 采用 正则 序 求 值 的 变形 。 
O D “解释 为 真 或 者 假 ”的 意思 如 下 ， 在 Scheme 里 存在 这 两 个 特殊 的 值 ， 它 们 分 别 用 常量 #t 和 禁 表 示 。 当 解释 器 
检查 一 个 谓词 的 值 时 ， 它 将 村 解释 为 假 ， 而 将 所 有 其 他 的 值 都 作为 真 〈 这 样 ， 提 供 MAR 上 就 是 不 必要 的 ， 
只 是 为 了 方便 )。 在 本 书 中 将 使 用 true 和 false ， 令 它们 分 别 关联 于 机 和 村。 
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我 们 用 术语 谓词 指 那些 返回 真 或 假 的 过 程 ， 也 指 那 种 能 求 出 真 或 者 假 的 值 的 表达 式 。 求 
绝对 值 的 过 程 abs 使 用 了 基本 谓词 >、< 和 = ， 这 几 个 谓词 都 以 两 个 数 为 参数 ， 分 别 检查 第 
一 个 数 是 否 大 于 、 小 于 或 者 等 于 第 二 个 数 ， 并 据 此 分 别 返回 真 或 者 假 。 

写 绝对 值 函数 的 另 一 种 方式 是 : 

(define (abs x) 

(cond ((< x 0) (- x)) 
(else x))) | | 
用 目 然 语 言 来 说 ， 就 是 “如 果 X 小 于 4 就 返回 -X， 否 则 就 返回 XK"”。e1lse 是 一 个 特殊 符号 ， 可 
以 用 在 cond 的 最 后 一 个 子 句 中 <p> 的 位 置 , 这 样 做 时 , 如 果 该 cond 前 面 的 所 有 子 句 都 被 跳 过 ， 
它 就 会 返回 最 后 子 句 中 <e> 的 值 。 事 实 上 ， 所 有 永远 都 求 出 真 值 的 表达 式 都 可 以 用 在 这 个 <p> 
的 位 置 上 。 
下 面 是 又 一 种 写 绝对 值 函数 的 方式 
(define (abs x) 
(if (< x 0) 
(~ xX) 
X)) 
这 里 采用 的 是 特殊 形式 1f ， 它 是 条 件 表 达 式 的 一 种 受 限 形式 ， 适 用 于 分 情况 分 析 中 只 有 两 个 
情况 的 需要 。if REKRY- RÉRE: 

(if | <predicate> <consequent> <alternative> ) 

在 求 值 一 个 1f 表 达 式 时 ， 解 释 器 从 求 值 其 <predicate> 部 分 开始 ， 如 果 <predicate> 得 到 真 值 ， 
解释 器 就 去 求 值 <consequent> 并 返回 其 值 ， 否 则 它 就 去 求 值 <alternative> 并 返回 其 值 ”。 

除了 一 批 基本 谓词 如 <、= 和 > 之 外 ， 还 有 一 些 逻 辑 复合 运算 符 ， 利 用 它们 可 以 构造 出 各 
种 复合 谓词 。 最 常用 的 三 个 复合 运算 符 古 : 

e (and <e> 。。。 <e,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e>， 如 果 某 个 <e> 求 值得 到 假 这 一 and 表 达 式 的 值 就 
是 假 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 前 面 所 有 的 <e> 痢 求 出 真 值 ， 这 一 and 表 达 式 的 值 
就 是 最 后 那个 <e> 的 值 。 

© (Or <el> 。。。 <€,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e> ， 如 果 某 个 <e> 求 值得 到 真 ，or 表 达 式 就 以 这 个 表达 
式 的 值 作为 值 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 BOAR BA <e> AER 出 假 值 ， 这 一 or 表达 式 的 
值 就 是 假 。 

e (not <e>) 

如 果 <e> 求 出 的 值 是 假 , net 表达 式 的 值 就 是 真 ， 否 则 其 值 为 假 。 

注意 ，and 和 or 都 是 特殊 形式 而 不 是 普通 的 过 程 ， 因 为 它们 的 子 表达 式 不 一 定 都 求 值 。 
not 则 是 一 个 普通 的 过 程 。 : : 

作为 使 用 这 些 逻 辑 复 合 运算 符 的 例子 ， 数 x 的 值 位 于 区 间 3 < x< 10 之 中 的 条 件 可 以 写 为 : 


8 abs 还 用 到 负 号 运算 符 “ 一 ”"， 这 个 运算 符 作 用 于 一 个 对 象 时 (例如 写 (一 x))， 表 示 求 出 其 负 值 。 

9 在 if 和 cond 之 间 的 另 一 个 小 差异 是 每 个 conG 子 名 的 <e> 部 分 可 以 是 一 个 表达 式 的 序列 ， 如 果 对 应 的 <p> 确定 
HR, ，<e> 中 的 表达 式 就 会 顺序 地 求 值 ， 并 将 其 中 最 后 一 个 表达 式 的 值 作为 整个 cond 的 值 返 回 。 而 在 1 表达 
式 里 ，<consequent> 和 <alternative> 都 只 能 是 单个 表达 式 。 
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(and (> x 5) (< x 10)) 


作为 另 一 个 例子 ， 下 面 定义 了 一 个 谓词 ， 它 检测 某 个 数 是 否 大 于 或 者 等 于 另 一 个 数 ， 
(define (>= x y) 
(or (> x y) (= x y))) 


或 者 也 可 以 定义 为 : 
(define (>= x y) 
(not (< x y))) 


练习 1.1 Rie RING, WRT RIAN, MA IT Aa RR? 假定 这 一 系 
列表 达 式 是 按照 给 出 的 顺序 逐个 求 值 的 。 

10 

(+ 5 3 4) 

(~ 9 1) 

(/ 6 2) 

(+ (* 2 4) (- 4 6)) 

(define a 3) 

(define b (+ a 1)) 

(+ a b (* a b)) 

(= a b) 


(if (and (> b a) (< b (* a D))) 
b 
a) 


(cond ((= a 4) 6) 
((= b 4) (+ 6 7 a)) 
(else 25)) 


(+ 2 (if (> b a) b a)) 


(* (cond ((> ab) a) 
((< a b) b) 
(else -1)) 
(+ a l1)) 


练习 1.2 请 将 下 面 表达 式 变换 为 前 级 形式 : 
4 
5+4+(2-(3-(6+3)) 
3(6 - 2)(2-7) 
”练习 1.3 请 定义 一 个 过 程 ， 它 以 三 个 数 为 参数 ， 返 回 其 中 较 大 的 两 个 数 之 和 。 
练习 1.4 ”请 仔细 考察 上 面 给 出 的 允许 运算 符 为 复合 表达 式 的 组 合式 的 求 值 模型 ， 根 据 对 这 
一 模型 的 认识 描述 下 面 过 程 的 行为 : 


(define (a-plus-abs-b a b) 
((if (> b 0) + -) a b)) 


练习 1.5 Ben Bitdiddle 发 明了 一 种 检测 方法 ， 能 够 确定 解释 器 究竟 采用 哪 种 序 求 值 ， 征 
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采用 应 用 序 ， 还 是 采用 正则 序 。 他 定义 了 下 面 两 个 过 程 : 
(define (p) (p)) 


(define (test x y) 
(if (= x 0) 
0 
y)) 


而 后 他 求 值 下 面 的 表达 式 : 


(test 0 (p)) 


如 果 某 个 解释 器 采用 的 是 应 用 序 求 值 , Ben 会 看 到 什么 样 的 情况 ?如 果 解 释 器 采用 正则 序 求 值 ， 
他 又 会 看 到 什么 情况 ? 请 对 你 的 回答 做 出 解释 。( 无 论 采 用 正则 序 或 者 应 用 序 ， 假 定 特殊 形式 
if 的 求 值 规则 总 是 一 样 的 。 其 中 的 谓词 部 分 先行 求 值 ， 根 据 其 结果 确定 随后 求 值 的 子 表达 式 
部 分 。) 


1.1.7 实例 : 采用 牛顿 法 求 平方 根 


上 面 介 绍 的 过 程 都 很 像 常规 的 数学 函数 ， 它 们 描述 的 是 如 何 根 据 一 个 或 者 几 个 参数 去 确 
定 一 个 值 。 然 而 ， 在 数学 的 函数 和 计算 机 的 过 程 之 间 有 一 个 重要 差异 ， 那 就 是 ， 这 一 过 程 还 
必须 是 有 效 可 行 的 

作为 目前 情况 下 的 一 个 实例 ， 现 在 我 们 来 考虑 求 平 方 根 的 问题 。 我 们 可 以 将 平方 根 国 数 

Vx = 那样 的 y， 使 得 y 之 0 而 且 y = 
这 就 描述 出 了 一 个 完全 正统 的 数学 函数 ， 我 们 可 以 利用 它 去 判断 某 个 数 是 否 为 另 一 个 数 的 平 
方 根 ， 或 根据 上 面 叙 述 ， 推 导出 一 些 有 关 平 方 根 的 一 般 性 事实 。 然 而 ， 在 另 一 方面 ， 这 一 定 
义 并 没有 描述 一 个 计算 过 程 ， 因 为 它 确实 没有 告诉 我 们 ， 在 给 定 了 一 个 数 之 后 ， 如 何 实 际 地 
找到 这 个 数 的 平方 根 。 即 使 将 这 个 定义 用 类 似 Lisp 的 形式 重 写 一 遍 也 完全 无 济 于 事 : 

(define (sqrt x) 

(the y (and (>= y 0) 
(= (square y) x)))) 
这 只 不 过 是 重新 提出 了 原来 的 问题 。 

函数 与 过 程 之 间 的 矛盾 ， 不 过 是 在 描述 一 件 事 情 的 特征 ， 与 描述 如 何 去 做 这 件 事情 乙 间 
的 普遍 性 差异 的 一 个 具体 反映 。 换 一 种 说 法 ， 人 们 有 时 也 将 它 说 成 是 说 明 性 的 知识 与 行动 性 
的 知识 之 间 的 差异 。 在 数学 里 ， 人 们 通常 关心 的 是 说 明 性 的 描述 (是 什么 )， 而 在 计算 机 科学 
里 ， 人 们 则 通常 关心 行动 性 的 描述 (怎么 做 ) ”。 

计算 机 如 何 算出 平方 根 呢 ? 最 常用 的 就 是 牛顿 的 逐步 逼 进 方法 。 这 一 方法 告诉 我 们 ， 如 


2 说 明 性 描述 和 行动 性 描述 有 着 内 在 的 联系 ， 就 像 数 学 和 计算 机 科学 有 着 内 在 联系 一 样 。 举 个 例子 ， 说 一 个 程 
序 产生 的 结果 “正确 "， 就 是 给 出 了 一 个 有 关 该 程序 性 质 的 说 明 性 语句 。 存 在 着 大 量 的 研究 工作 ， 其 目标 就 是 
创建 起 一 些 技 术 ， 设 法 证 明 一 个 程序 是 正确 的 。 在 这 一 领域 中 有 许多 技术 性 困难 ， 究 其 根源 ， 都 出 日 需要 在 
行动 性 语句 ( 程序 是 由 它们 构造 起 来 的 ) 和 说 明 性 语句 (它们 可 以 用 于 推导 出 某 些 结 果 ) 之 间 转 来 转 去 。 在 
与 此 相关 的 研究 分 支 里 ， 有 一 个 当前 在 程序 设计 语言 设计 领域 中 很 重要 的 问题 Met eh Ae Rk ee 
在 这 种 语言 里 编程 就 是 写 说 明 性 的 语句 。 这 里 的 想法 是 将 解释 器 做 得 足够 复杂 ， 程 序 员 描 述 了 需要 做 什么 
的 知识 之 后 ， 这 种 解释 器 就 能 自动 产生 出 “怎样 做 ”的 知识 。 一 般 而 言 这 是 不 可 能 做 到 的 ， 但 在 这 一 领域 已 
经 取得 了 巨大 进步 。 第 4 章 我 们 将 再 来 考虑 这 一 想法 。 


琳 对 x 的 平方 根 的 值 有 了 一 个 猜测 y， 那 么 就 可 以 通过 执行 一 个 简单 操作 去 得 到 一 个 更 好 的 猜 
测 : 只 需要 求 出 ?和 xi7 的 平均 值 《 它 更 接近 实际 的 平方 根 值 ) 。 例如 ， 可 以 用 这 种 方式 去 计 
算 2 的 平方 根 ， 假 定 初 始 值 是 1 ，… | : 
猜测 商 平均 值 


2 (2+1) 
2 


l — = 2 =1.5 


2 (1.3333 + 1.5) 


1.5 — = 1.3333 = 1.4167 
1.5 


1.4167 ——— =1.4118 = 1.4142 


1.4167 
14142. ... 


继续 这 一 计算 过 程 ， 我 们 就 能 得 到 对 2 的 平方 根 的 越 来 越 好 的 近似 值 。 

现在 ， 让 我 们 设法 用 过 程 的 语言 来 描述 这 一 计算 过 程 。 开 始 时 ， 我们 有 了 被 开 方 数 的 值 
(现在 需要 做 的 就 是 算出 它 的 平方 根 ) 和 一 个 猜测 值 。 如 果 猜 油 值 已 经 足够 好 了 ， 有 关 工 作 也 
就 完成 了 。 如 若 不 然 ， 那 么 就 需要 重复 上 述 计算 过 程 去 改进 猜测 值 。 我 们 可 以 将 这 一 基本 策 
略 写 成 下 面 的 过 程 : | 


(define (sqrt-iter guess x) 


2 (1.4167 + 1.4118) 
2 


(if (good-enough? guess Xx) 
guess | 
(sqrt-iter (improve guess x) 


X))) 
改进 猜测 的 方式 就 是 求 出 它 与 被 开 方 数 除 以 上 一 个 猜测 的 平均 值 : 


{define (improve guess x) 
(average guess (/ x guess.))) 


其 中 


(define (average x y) 
(/ (+ x Y) 2)) 


我 们 还 必须 说 明 什 么 叫做 “足够 好 ”。 下 面 的 做 法 只 是 为 了 说 明 问 题 ， 它 确实 不 是 一 个 很 好 的 
检测 方法 (参见 练习 1.7) 。 这 里 的 想法 是 ， 不 断 改进 答案 直至 它 足 够 接近 平方 根 ， 使 得 其 平 
方 与 被 开 方 数 之 差 小 于 茶 个 事先 确定 的 误差 值 (这 里 用 的 是 0.001) 7, 


(define (good- enough? guess x) 
(< (abs (~ (square guess) x)) 0.001)) 


最 后 还 需要 一 种 方式 来 启动 整个 工作 。 例 如 ， 我 们 可 以 总 用 1 作为 对 任何 数 的 初始 猜测 值 ”: 


21 这 一 平方 根 算法 实际 上 是 牛顿 法 的 一 个 特例 ,牛顿 法 是 一 种 寻找 方程 的 根 的 通用 技术 。 平 方 根 算 靶 本 身 是 由 

亚历山大 的 Heron 在 公元 一 世纪 提出 的 。 我 们 将 在 1.3.4 节 看 到 如 何 用 Lisp 描 述 一 般 性 的 牛顿 法 。 

” 我们 将 在 谓词 名 字 的 最 后 用 一 个 问号 ， 以 大人 注意 到 它们 是 谓词 。 这 不 过 是 一 种 风格 二 的 约定 。 对 于 解释 器 
而 言 ， 问 号 也 就 是 一 个 普通 的 字符 。 

3 请 注意 ， 这 里 所 用 的 初始 猜测 是 1.0 而 不 是 1。 在 许 多 Lisp 实 现 中 ， 这 样 做 并 不 会 遗 成 任何 不 同 。 MIT Scheme 
区 分 了 精确 的 整数 和 十 进 制 数值 ， 两 个 整数 的 商 是 一 个 有 理 数 而 不 是 十 进 制 数值 。 例 如 ， 用 6 去 除 10 将 得 到 
5/3 ， 而 用 6.0 去 除 10.0 得 到 的 是 1.6666666666666667 (我 们 将 在 2.1.1 节 学 习 怎样 实现 有 理 数 的 算术 运算 )。 如 
果 我 们 用 1 作为 平方 根 程序 的 初始 猜测 ，x 就 会 是 一 个 精确 的 整数 ， 随 后 在 平方 根 过 程 里 算出 的 所 有 值 都 将 是 
有 理 数 而 不 是 十 进 制 数值 。 对 有 理 数 和 十 进 制 数值 的 混合 运算 总 是 产生 十 进 制 数值 。 所 以 ， 开 始 时 采用 初始 
猜测 1.0， 将 迫使 随后 的 所 有 结果 都 得 到 十 进 制 的 数值 。 


_16 得 闽 攀 坦 过程 和 象 


(define (sqrt x) 
(sqrt-iter 1.0 x)) 
如 果 把 这 些 定义 都 送 给 解释 器 ， 我 们 就 可 以 使 用 sqzt 了 ， 就 像 可 以 使 用 其 他 过 程 一 样 : 
(sqrt 9) 
3.00009155413138 


(sqrt (+ 100 37)) 
11.704699917758145 


(sqrt (+ (sqrt 2) (sqrt 3))) 
1.7739279023207892 


(square (sqrt 1000)) 
1000.000369924366 


这 个 sqrt 程序 也 说 明 ， 在 用 于 写 纯粹 的 数值 计算 程序 时 ， 至 今 已 介绍 的 简单 程序 设计 语 
言 已 经 足以 写 出 可 以 在 其 他 语言 (例如 CC 或 者 Pascal) 中 写 出 的 任何 东西 了 。 这 看 起 来 很 让 人 
吃惊 ， 因 为 这 一 语言 中 甚至 还 没有 包括 任何 欠 代 结构 〈 和 循环) ， 它 们 用 于 指挥 计算 机 去 一 过 过 
地 做 某 些 事情 。 而 在 另 一 方面 ，sGzt-iter 展 示 了 如 何不 用 特殊 的 达 代 结构 来 实现 寺 代 ， 其 
中 只 需要 使 用 常规 的 过 程 调 用 能 力 ”。 

练习 1.6 Alyssa P. Hacker 看 不 出 为 什么 需要 将 if 提供 为 一 种 特殊 形式 ， 她 问 ， “为 什么 
我 不 能 直接 通过 cond 将 它 定 义 为 一 个 常规 过 程 昵 ? ”Alyssa 的 朋友 Eva Lu Ator 断 言 确实 可 以 
这 样 做 ， 并 定义 了 if 的 一 个 新 版 本 : 


(define (new-if predicate then-clause else-clause) 
(cond (predicate then-clause) 
(else else-clause)})}) 


Eva 给 Alyssa 演 示 她 的 程序 : 
(new-if (= 2 3) 0 5) 
5 
(new-if (= 11) 0 5) 
0 和 
她 很 高 兴 地 用 自己 的 new-if 重 写 了 求 平方 根 的 程序 : 
(define (sqrt-iter guess x) 
(new-if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
| | x))) 


当 Alyssa 试 着 用 这 个 过 程 去 计算 平方 根 时 会 发 生 什 么 事情 呢 ? 请 给 出 解释 。 

练习 1.7 ”对 于 确定 很 小 的 数 的 平方 根 而 言 ， 在 计算 平方 根 中 使 用 的 检测 go0od-enough? 
是 很 不 好 的 。 还 有 ， 在 现实 的 计算 机 里 ， 算 术 运 算 总 是 以 一 定 的 有 限 精度 进行 的 。 这 也 会 合 
我 们 的 检测 不 适合 非常 大 的 数 的 计算 。 请 解释 上 述 论断 ， 用 例子 说 明 对 很 小 和 很 大 的 数 ， 这 
种 检测 都 可 能 失败 。 实 现 good-enough? 的 另 一 种 策略 是 监视 猜测 值 在 从 一 次 迭代 到 下 一 次 
的 变化 情况 ， 当 改变 值 相 对 于 猜测 值 的 比率 很 小 时 就 结束 。 请 设计 一 个 采用 这 种 终止 测试 方 
式 的 平方 根 过 程 。 对 于 很 大 和 很 小 的 数 ， 这 一 方式 都 能 工作 吗 ? 


2 关心 通过 过 程 调用 来 实现 迭代 时 的 效率 问题 的 读者 ， 可 以 去 看 1.2.1 节 里 有 关 “ 尾 递归 “的 说 明 。 
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练习 1.8 求 立方 根 的 牛顿 法 基于 如 下 事实 ， 如 采 ? 征 x 的 立方 根 的 一 个 近似 什 ， ABA PSX 
将 给 出 一 个 更 好 的 近似 值 : 
x/y +2y 
3 
请 利用 这 一 公式 实现 一 个 类 似 平方 根 过 程 的 求 立 方 根 的 过 程 。( 在 1.3.4 节 里 ,我 们 将 看 到 如 何 
实现 一 般 性 的 牛顿 法 ， 作 为 这 些 求 平方 根 和 立方 根 过 程 的 抽象 。) 


1.1.8 过程 作 为 黑箱 抽象 


sqrt 是 我 们 用 一 组 手工 定义 的 过 程 来 实现 一 个 计算 过 程 的 第 一 个 例子 。 请 注意 ， 在 这 里 
sqrt-iter 的 定义 是 递归 的 ， 也 就 是 说 ， 这 一 过 程 的 定义 基于 它 自身 。 能 够 基于 一 个 过 程 自 
身 来 定义 它 的 想法 很 可 能 会 令 人 感到 不 安 ， 人 们 可 能 觉得 它 不 够 清晰 ， 这 种 “循环 ”定义 怎 
么 能 有 意义 呢 ? 是 不 是 完全 刻画 了 一 个 能 够 由 计算 机 实现 的 计算 过 程 呢 ?在 1.2 节 里 ,我们 将 
更 细致 地 讨论 这 一 问题 。 现 在 首先 来 看 看 sqrt 实例 所 显示 出 的 其 他 一 些 要 后 。 

可 以 看 到 ， 对 于 平方 根 的 计算 问题 可 以 自然 地 分 解 为 若干 子 问题 : 怎样 说 一 个 猜测 是 足 
够 好 了 ， 怎 样 去 改进 一 个 猜 负 ， 等 等 。 这 些 工作 中 的 每 一 个 都 通过 一 个 独立 的 过 程 完 成 ， 整 
个 sqrt 程序 可 以 看 做 一 族 过 程 (如 图 1-2 所 示 ) ， 它 们 直接 反应 了 从 原 问 题 到 子 问题 的 分 解 。 


sqrt 





sqrt-iter 


ZX 





good-enough improve 
square average 


图 1-2 sqrt 程 序 的 过 程 分 解 


这 一 分 解 的 重要 性 ， 并 不 仅仅 在 于 它 将 一 个 问题 分 解 成 了 几 个 部 分 。 当 然 ， 我 们 总 可 以 
拿 来 一 个 大 程序 ， 并 将 它 分 割 成 若干 部 分 一 一 最 前 面 10 行 、 后 面 10 行 、 再 后 面 10 行 等 等 。 这 
里 最 关键 的 问题 是 ， 分 解 中 的 每 一 个 过 程 完 成 了 一 件 可 以 清楚 标明 的 工作 ， 这 使 它们 可 以 被 
用 作 定 义 其 他 过 程 的 模块 。 例 如 ， 当 我 们 基于 square 定 义 过 程 good-enough? 之 时 ， 就 是 
将 square 看 做 一 个 “黑箱 ”。 在 这 样 做 时 ， 我 们 根本 无 须 关 注 这 个 过 程 是 如 何 计 算出 它 的 结 
果 的 ， 只 需要 注意 它 能 计算 出 平方 值 的 事实 。 关 于 平方 是 如 何 计算 的 细 市 被 隐 去 不 提 了， 可 
以 推迟 到 后 来 再 考虑 。 情 况 确实 如 此 ， 如 果 只 看 good-enough? 过 程 ， 与 其 说 square 是 一 
个 过 程 ， 不 如 说 它 是 一 个 过 程 的 抽象 ， 即 所 谓 的 过 程 抽象 。 在 这 一 抽象 层次 上 ， 任 何 能 计算 


出 平方 的 过 程 都 同样 可 以 用 。 
这 样 ， 如 果 我 们 只 考虑 返回 值 ， 那 么 下 面 这 两 个 求 平方 的 过 程 就 是 不 可 区 分 的 。 它 们 中 


的 每 一 个 都 取 一 个 数值 参数 ， 产 生出 这 个 数 的 平方 作为 值 ”。 

(define (square x) (* x X)) 

(define (square x) 

(exp (double (log x)))) 

(define (double x) (+ x x)) | | 

由 此 可 见 ， 一 个 过 程 定 义 应 该 能 隐藏 起 一 些 细节 。 这 将 使 过 程 的 使 用 者 可 能 不 必 上 自己 去 
写 这 些 过 程 ， 而 是 从 其 他 程序 员 那 里 作为 一 个 黑箱 而 接受 了 它 。 有 用户 在 使 用 一 个 过 程 时 ， 应 
该 不 需要 去 弄 消 它 是 如 何 实 现 的 。 

局 部 名 : l | 

过 程 用 户 不 必 去 关心 的 实现 细节 之 一 ， 就 是 在 有 关 的 过 程 里 面 形 式 参 数 的 名 字 ， 这 是 由 
实现 者 所 选用 的 。 也 就 是 说 ， 下 面 两 个 过 程 定 义 应 该 是 无 法 区 分 的 : 

{define (square x) (* x X)) 

(define (square y) (* y ¥)) 

这 一 原则 (过程 的 意义 应 该 不 依赖 于 其 作者 为 形式 参数 所 选用 的 名 字 ) 从 表面 看 起 来 很 明显 ， 
但 其 影响 却 非常 深远 。 最 直接 的 影响 是 ， 过 程 的 形式 参数 名 必须 局 部 于 有 关 的 过 程 体 。 例 如 ， 
我 们 在 前 面 平方 根 程序 中 的 good-enough? 定 义 里 使 用 了 了 square: 

(define (good-enough? guess x) 

(< (abs (- (Square guess) x)) 0.001)) 
good-enough? 作 者 的 意图 就 是 要 去 确定 ， 函 数 的 第 一 个 参数 的 平方 是 否 位 于 第 二 个 参数 附 
近 一 定 的 误差 范围 内 。 可 以 看 到 ，9ood-enough? 的 作者 用 名 字 guess 表示 其 第 一 个 参数 ， 
用 x 表示 第 二 个 参数 ， 而 送 给 square 的 实际 参数 就 是 gquess。 如 果 square 的 作者 也 用 x (上 
面 确实 如 此 ) BARB, PARAL Ai, good-enough? Hryx Haj square HHY Hp 
个 x 不 同 。 在 过 程 square 运 行 时 ， 绝 不 应 该 影响 good-enough? 里 所 用 的 那个 x 的 值 ， 因 为 
在 Square 完成 计算 之 后 ，900d-enough? 里 可 能 还 需要 用 x 的 值 。 

如 果 参 数 不 是 它们 所 在 的 过 程 体 里 局 部 的 东西 ， 那 么 square 里 的 x 就 会 与 900d- 
enough? 里 的 参数 x 相 混 淆 。 如 果 这 样 ，good-enough? 的 行为 方式 就 将 依赖 于 我 们 所 用 的 
square 的 不 同 版 本 。 这 样 ，sguare 也 就 不 是 我 们 所 希望 的 过 箱 了 。 

过 程 的 形式 参数 在 过 程 体 里 扮演 着 一 种 非常 特殊 的 角色 ， 在 这 里 ， 形 式 参 数 的 具体 名 字 
是 什么 ， 其 实 完全 没有 关系 。 这 样 的 名 字 称 为 约束 变量 ， 因 此 我 们 说 ， 一 个 过 程 的 定义 约束 
了 它 的 所 有 形式 参数 。 如 果 在 一 个 完整 的 过 程 定义 里 将 某 个 约束 变量 统一 换 名 ， 这 一 过 程 定 
义 的 意义 将 不 会 有 任何 改变 *。 如 果 一 个 变量 不 是 被 约束 的 ， 我 们 就 称 它 为 自由 的 。 一 个 名 字 
的 定义 被 约束 于 的 那 一 集 表达 式 称 为 这 个 名 字 的 作用 域 。 在 一 个 过 程 定 义 里 ， 被 声明 为 这 个 
过 程 的 形式 参数 的 那些 约束 变量 ， 就 以 这 个 过 程 的 体 作为 它们 的 作用 域 。 

在 上 面 good-enough? 的 定义 中 ， guess 和 x 是 约束 变量 ， 而 <、-、 abs 和 square 则 
是 自由 的 。 要 想 保 证 good-enough? 的 意义 与 我 们 对 guess 和 x 的 名 字 选 择 无 关 ， 只 要 求 它 


5 至 于 这 两 个 过 程 中 哪 一 个 实现 更 有 效 ， 这 一 问题 并 不 很 明确 ， 依 赖 于 所 使 用 的 硬件 。 确 实 存 在 这 样 的 机 器 ， 
对 于 它们 ， 其 中 那个 “最 明显 的 ”实现 效率 更 低 一 些 。 例 如 ， 考 虑 一 种 机 器 ， 它 有 一 些 范围 很 广 的 对 数 和 反 
对 数 表 ， 以 某 种 非常 有 效 的 方式 存放 着 。 

26 统一 换 名 的 概念 实际 上 也 是 很 微妙 的 ， 很 难 形式 地 定义 好 。 一 些 著名 的 逻辑 学 家 也 在 这 里 犯 过 错误 。 


们 的 名 字 与 <、~、abs 和 square 都 不 同 就 可 以 了 (如 果 将 guess 重 新 命名 为 abs ， 我 们 就 会 
因为 捕获 了 变量 名 abs 而 引进 了 一 个 错误 ， 因 为 这 样 做 就 把 一 个 原本 自由 的 名 字 变 成 约束 的 
了 )。good-enough? 的 意义 当然 与 其 中 的 自由 变量 有 关 ， 显 然 它 的 意义 依赖 于 (在 这 一 定 
义 之 外 的 ) 一 些 事实 : 要 求 符 号 abs 是 一 个 过 程 的 名 字 ， 该 过 程 能 求 出 一 个 数 的 绝对 值 。 如 
REA Hegood-enough? 的 定义 里 的 abs 换 成 cos ， 它 计算 出 的 就 会 是 另 一 个 不 同 国 数 了 。 


内 部 定义 和 块 结构 
至 今 我 们 才 仅 仅 分 离 出 了 一 种 可 用 的 名 字 : 过 程 的 形式 参数 是 相应 过 程 体 里 的 局 部 名 字 。 
平方 根 程序 还 展现 出 了 另 一 种 情况 ， 我 们 也 会 希望 能 控制 其 中 的 名 字 使 用 。 现 在 这 个 程序 由 
儿 个 相互 分 离 的 过 程 组 成 : 
(define (sqrt x) 
(sqrt-iter 1.0 x)) 
(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(define (good-enough? guess x) 


(< (abs (- (square guess) x)) 0.001)) 


(define (improve guess X) 
(average guess (/ x guess) ) ) 
问题 是 ， 在 这 个 程序 里 只 有 一 个 过 程 对 用 户 是 重要 的 ， 那 就 是 ， 这 里 所 定义 的 这 个 sqrt 确 实 
是 sqrt 。 其 他 的 过 程 (sqrt-iter、good-enough? 和 improve) 则 只 会 干扰 他 们 的 思维 ， 
因为 他 们 再 也 不 能 定义 另 一 个 称 为 good-enough? 的 过 程 ， 作 为 需要 与 平方 根 程序 一 起 使 用 
的 其 他 程序 的 一 部 分 了 ， 因 为 现在 sqrt 需 要 它 。 在 许多 程序 员 一 起 构造 大 系统 的 时 候 ， 这 一 
问题 将 会 变 得 非常 严重 。 举 例 来 说 ， 在 构造 一 个 大 型 的 数值 过 程 库 时 ， 许 多 数值 函数 都 需要 
计算 出 一 系列 的 近似 值 ， 因 此 我 们 就 可 能 希望 有 一 些 名 字 为 900d-enough? 和 improve 的 过 
程 作为 其 中 的 辅助 过 程 。 由 于 这 些 情况 ， 我 们 也 希望 将 这 种 子 过 程 局 部 化 ， 将 它们 隐藏 到 
sqrt 里 面 ， 以 使 Sqrt 可 以 与 其 他 采用 逐步 逼 进 的 过 程 共存 ， 让 它们 中 的 每 一 个 都 有 目 己 的 
good-enough? 过 程 。 为 了 使 这 一 方式 成 为 可 能 ， 我 们 要 允许 一 个 过 程 里 带 有 一 些 内 部 定义 ， 
使 它们 是 局 部 于 这 一 过 程 的 。 例 如 ， 在 解决 平方 根 问题 时 ， 我 们 可 以 写 : 
(define (sqrt x) 
(define (good-enough? guess x) 
(< (abs (~ (square guess) x)) 0.001)) 
(define (improve guess x) 
(average guess (/ x guess))) 
{define (sqrt-iter guess x) 
‘(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 
(sqrt-iter 1.0 x)) 
这 种 嵌 套 的 定义 称 为 块 结 构 ， 它 是 最 简单 的 名 字 包 装 问题 的 一 种 正确 解决 方式 。 实 际 上 ， 
在 这 里 还 潜藏 着 一 个 很 好 的 想法 。 除 了 可 以 将 所 用 的 辅助 过 程 定义 放 到 内 部 ,我 们 还 可 能 简 
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化 它们 。 因 为 x 在 sqrt 的 定义 中 是 受 约束 的 ， 过 程 9good-enough?、improve 和 sqrt- 
iter 也 都 定义 在 Sqrt 里 面 ， 也 就 是 说 ， 都 在 x 的 定义 域 里 。 这 样 ， 显 式 地 将 x 在 这 些 过 程 之 
间 传 来 传 去 也 就 没有 必要 了 。 我 们 可 以 让 x 作为 内 部 定义 中 的 自由 变量 ， 如 下 所 示 。 这 样 ， 在 
外 围 的 sgzt 被 调用 时 ，x 由 实际 参数 得 到 自己 的 值 。 这 种 方式 称 为 词法 作 Fae" 。 


(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(1£ (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
({sqrt-iter 1.0)) 
下 面 将 广泛 使 用 这 种 块 结构 、 以 帮助 我 们 将 大 程序 分 解 成 一 些 容 易 把 担 的 片段 ”*。 块 结构 
的 思想 来 自 程序 设计 语言 Algol 60 ， 这 种 结构 出 现在 各 种 最 新 的 程序 设计 语言 里 ， 是 帮助 我 们 


组 织 大 程序 的 结构 的 一 种 重要 工具 。 
1.2 过 程 与 它们 所 产生 的 计算 


我 们 现在 已 经 考虑 了 程序 设计 中 的 一 些 要 素 ， 使 用 过 许多 基本 的 算术 操作 ， 对 这 种 操作 
进行 组 合 ， 通 过 定义 各 种 复合 过 程 ， 对 复合 操作 进行 抽象 。 但 是 ， 即 使 是 知道 了 这 些 ， 我 们 
还 不 能 说 自己 已 经 理解 了 如 何 去 编 程序 。 我 们 现在 的 情况 就 像 是 在 学 下 象棋 的 过 程 中 的 一 个 
阶段 ， 此 时 已 经 知道 了 移动 棋子 的 各 种 规则 ， 但 却 还 不 知道 典型 的 开局 、 战 术 和 策略 。 就 像 
初学 象棋 的 人 们 那样 ， 我 们 还 不 知道 编程 领域 中 各 种 有 用 的 常见 模式 ,缺少 有 关 各 种 棋 步 的 
价值 (值得 定义 哪些 过 程 ) 的 知识 ， 缺 少 对 所 走 棋 步 的 各 种 后 果 (执行 一 个 过 程 的 效果 ) 做 
出 预期 的 经 验 。 

能 够 看 清楚 所 考虑 的 动作 的 后 果 的 能 力 ， 对 于 成 为 程序 设计 专家 是 至 关 重 要 的 ， 就 像 这 
种 能 力 在 所 有 综合 性 的 创造 性 的 活动 中 的 作用 一 样 。 要 成 为 一 个 专业 摄影 家 ， 必 须 学 习 如 何 
去 考察 各 种 有 景象， 知道 在 各 种 可 能 的 暴光 和 显影 选择 条 件 下 ， 景 象 中 各 个 区 域 在 影像 中 的 明 
暗 程 度 。 只 有 在 此 之 后 ， 人 才能 去 做 反 向 推理 ， 对 取得 所 需 效果 应 该 做 的 取景 HR. Bt 
和 显影 等 等 做 出 规划 。 在 程序 设计 里 也 一 样 ， 在 这 里 ， 我 们 需要 对 计算 过 程 中 各 种 动作 的 进 
行情 况 做 出 规划 ， 用 一 个 程序 去 控制 这 一 过 程 的 进展 。 要 想 成 为 专家 ， 我 们 就 需要 学 会 去 看 
清 各 种 不 同 种 类 的 过 程 会 产生 什么 样 的 计算 过 程 。 只 有 在 掌握 了 这 种 技能 之 后 ， 我 们 才能 学 
会 如 何 去 构 造 出 可 靠 的 程序 ， 使 之 能 够 表现 出 所 需要 的 行为 。 

一 个 过 程 也 就 是 一 种 模式 ， 它 描述 了 一 个 计算 过 程 的 局 部 演化 方式 ， 描 述 了 这 一 计算 过 
程 中 的 每 个 步骤 是 怎样 基于 前 面 的 步 又 建立 起 来 的 。 在 有 了 一 个 刻画 计算 过 程 的 过 程 描述 之 


2 词法 作用 域 要 求 过 程 中 的 自 由 变量 实际 引用 外 围 过 程 定义 中 所 出 现 的 约束 ， 也 就 是 说 ， 应 该 在 定义 本 过 程 的 
环境 中 去 寻找 它们 。 我 们 将 在 第 3 章 看 到 这 种 规定 的 细节 工作 情况 ， 在 那里 我 们 将 要 研究 环境 的 概念 和 解释 吉 
的 一 些 行为 细节 。 

2 RENE M UAH REDE AZ 如 果 我 们 运行 一 个 程序 ， 但 是 其 中 的 定义 与 使 用 混杂 在 一 起 ， 管理 程序 
将 不 负 任 何 责任 。 | 


后 ， 我 们 当然 希望 能 做 出 一 些 有 关 这 一 计算 过 程 的 整体 或 全 局 行为 的 论断 。 一 般 来 说 这 十 非 
常 困难 的 ， 但 我 们 至 少 还 是 可 以 试 着 去 描述 过 程 演化 的 一 些 典 型 模式 。 
在 这 一 节 里 ， 我 们 将 考察 由 一 些 简 单 过 程 所 产生 的 计算 过 程 的 “形状 ”"， 还 将 研究 这 些 计 
算 过 程 消 耗 各 种 重要 计算 资源 (时 间 和 空间 ) 的 速率 。 这 里 将 要 考察 的 过 程 都 是 非常 简单 的 ， 
它们 所 扮演 的 角色 就 像 是 摄影 术 中 的 测试 模式 ， 是 作为 极度 简化 的 摄影 模式 ， 而 其 自身 并 不 
是 很 实际 的 例子 。 
(factorial 6) ee 


(* 6 (factorial 5)) 












(* 6 (* 5 (factorial 4))) 

(* 6 (* 5 (* 4 (factorial 3)))) 

(* 6 (* 5 (* 4 (* 3 (factorial 2))))) 

(* 6 (* 5 (* 4 (* 3 (* 2 (factorial 1)))))) 
(* 6 (* 5 (* 4 (* 3 (* 2:1))))) 

(* 6 (* 5 (* A (* 3 2)))) 

(* 6 (* 5 4 6))) 

(* 6 (* 5°24)) | 

(* 6 120) 

720 


图 1-3 计算 9: 的 线性 递归 过 程 
1.2.1 线性 的 递归 和 选 代 
首先 考虑 由 下 面 表达 式 定义 的 阶乘 函数 ， 


ni=n-(n—1l)-(n-2) 3-2-1 | | 
LOR BTA BAC YES Ph, AA RA GR LAIR, IE Bn, nl SE F 
nF (n-1) !; | | 

ni=n- [(n—1) -(m#-2) 3-2 + lj =n -(n—1)! 
这 样 ， 我 们 就 能 通过 算出 (n -1) |, JERE RAM, WR ERR 
1， 这 些 认识 就 可 以 直接 翻译 成 一 个 过 程 了 : / 

(define (factorial n) | 

(if (=n 1) 


1 
(* n (factorial (- n 1))))) 


HATA VFN FAL. STR, WEARER RA ATA, sn l-3 
示 。 
现在 让 我 们 采用 另 一 种 不 同 的 观点 来 计算 阶乘 。 我 们 可 以 将 计算 阶乘 中 的 规则 描述 为 
先 乘 起 1 和 2， 而 后 将 得 到 的 结果 乘 以 ]， 而 后 再 乘 以 4 ， 这 样 下 去 直到 达到 ?。 更 形式 地 说 ， 我 
们 要 维持 着 一 个 变动 中 的 乘积 product， 以 及 一 个 从 1 到 n 的 计数 器 counter ， 这 一 计算 过 程 可 以 
描述 为 counter 和 product 的 如 下 变化 ， 从 一 步 到 下 一 步 ， 它 们 都 按照 下 面 规 则 改变 : 

product — counter - product | . 


counter — counter + 1 


可 以 看 到 ，n! 也 就 是 计数 器 counter 超 过 nn 时 乘积 product 的 值 。 


我 们 又 可 以 将 这 一 描述 重 构 为 一 个 计算 阶乘 的 过 程 ”: 
(define (factorial n) 
(fact-iter 1 1 n)) 


{define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
{+ counter 1) 
max-count ) )) 


与 前 面 一 样 ， 我 们 也 可 以 应 用 替换 模型 来 查看 6! 的 计算 过 程 ， 如 图 1-4 所 示 。 


{factorial 6) 
(fact-iter 1 
(fact-iter 1 
(fact-iter 2 
(fact-iter 6 
(fact-iter 24 
{fact-iter 120 
(fact-iter 720 
720 





图 1-4 计算 6! 的 线性 迭代 过 程 = 


现在 对 这 两 个 计算 过 程 做 一 个 比较 。 从 一 个 角度 看 ， 它 们 并 没有 很 大 差异 : 两 者 计算 的 
都 是 同一 个 定义 域 里 的 同一 个 数学 函数 ， 都 需要 使 用 与 x 正比 的 步 又 数目 去 计算 出 n! 。 确 实 ， 
这 两 个 计算 过 程 甚 至 采用 了 同样 的 乘 运算 序列 ， 得 到 了 同样 的 部 分 乘积 序列 。 但 在 另 一 方面 ， 
如 果 我 们 考虑 这 两 个 计算 过 程 的 “形状 ”， 就 会 发 现 它们 的 进展 情况 大 不 相同 。 

考虑 第 一 个 计算 过 程 。 代 换 模 型 揭示 出 一 种 先 逐 步 展 开 而 后 收缩 的 形状 ， 如 图 1-3 中 的 入 
头 所 示 。 在 展开 阶段 里 ， 这 一 计算 过 程 构造 起 一 个 推迟 进行 的 操作 所 形成 的 链条 《在 这 里 古 
一 个 乘法 的 链条 ) ， 收 缩 阶段 表现 为 这 些 运 算 的 实际 执行 。 这 种 类 型 的 计算 过 程 由 一 个 推迟 执 
行 的 运算 链条 刻画 ， 称 为 一 个 递归 计算 过 程 。 要 执行 这 种 计算 过 程 ， 解释 器 就 需要 维护 好 那 
些 以 后 将 要 执行 的 操作 的 轨迹 。 在 计算 阶乘 n! 时 ， 推 迟 执行 的 乘 革 链条 的 长 度 也 就 是 为 保存 
其 轨迹 需要 保存 的 信息 量 ， 这 个 长 度 随 着 n 值 而 线性 增长 (正比 于 n )， 就 像 计算 中 的 步 难 数目 
一 样 。 这 样 的 计算 过 程 称 为 一 个 线性 递归 过 程 。 

与 之 相对 应 ， 第 二 个 计算 过 程 里 并 没有 任何 增长 或 者 收缩 。 对 于 任何 一 个 mn， 在 计算 过 程 
中 的 每 一 步 ， 在 我 们 需要 保存 轨迹 里 ， 所 有 的 东西 就 是 变量 product , counter 和 max- 


2 在 实际 程序 里 ， 我 们 可 能 会 用 上 一 节 介 绍 的 块 结构 将 fact-itezr 的 定义 隐藏 起 来 ， 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n} 
product 
(iter (* counter product) 
(+ counter 1)))) 


(iter 1 1)) 。 


在 上 面 没有 这 样 做 ， 是 因为 希望 尽 可 能 减少 需要 同时 考虑 的 事项 。 
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count 的 当前 值 。 我 们 称 这 种 过 程 为 一 个 选 代 计 算 过 程 。 一 般 来 说 ， 和 迭代 计算 过 程 就 是 那 种 
其 状态 可 以 用 固定 数目 的 状态 变量 描述 的 计算 过 程 ， 而 与 此 同时 ， 又 存在 着 一 套 固定 的 规则 ， 
描述 了 计算 过 程 在 从 一 个 状态 到 下 一 状态 转换 时 ， 这 些 变量 的 更 新 方式 ;还 有 一 个 (可 能 有 
的 ) 结束 检测 ， 它 描述 这 一 计算 过 程 应 该 终止 的 条 件 。 在 计算 n! 时 ， 所 需 的 计算 步骤 随 着 n 线 
性 增长 ， 这 种 过 程 称 为 线性 迭代 过 程 。 

我 们 还 可 以 从 另 一 个 角 度 来 看 这 两 个 过 程 之 加 的 对 比 。 在 迭代 的 情况 里 ， 在 计算 过 程 中 
的 任何 一 点 ， 那 几 个 程序 变量 都 提供 了 有 关 计 算 状 态 的 一 个 完整 描述 。 如 果 我 们 令 上 述 计 算 
在 某 两 个 步骤 之 间 停 下 来 ， 要 想 重 新 唤醒 这 一 计算 ， 只 需要 为 解释 器 提供 有 关 这 三 个 变量 的 
值 。 而 对 于 递归 计算 过 程 而 言 ， 这 里 还 存在 着 另外 的 一 些 “ 隐 含 ” 信 息 ， 它 们 并 未 保存 在 程 
序 变量 里 ， 而 是 由 解释 器 维持 着 ， 指 明了 在 所 推迟 的 运算 所 形成 的 链条 里 的 漫游 中 ,，“ 这 一 计 
算 过 程 处 在 何 处 。 这 个 链条 越 长 ， 需 要 保存 的 信息 也 就 越 多 ”。 

TER EIR S38 AZ ART, FIBA, ARE ST he 计算 过 程 的 概念 和 递归 
NR. SRP AOI TR, eR AE TABLE WSR, 说明 这 个 
过 程 的 定义 中 (直接 或 者 间接 地 ) 引用 了 该 过 程 本 身 。 在 说 基 一 计算 过 程 具 有 某 种 模式 时 
例如， 线性 递归 ) ， 我 们 说 的 是 这 一 计算 过 程 的 进展 方式 ， 而 不 是 相应 过 程 书写 上 的 语法 形 
式 。 当 我 们 说 某 个 递归 过 程 (例如 fact~iter ) 将 产生 出 一 个 迭代 的 计算 过 程 时 ， 可 能 会 使 
人 感到 不 舒服 。 然 而 这 一 计算 过 程 确实 是 迭代 的 ， 因 为 它 的 状态 能 由 其 中 的 三 个 状态 变量 完 
全 刻画 ， 解 释 絮 在 执行 这 一 计算 过 程 时 ， 只 需要 保持 这 三 个 变量 的 轨迹 就 足够 了 。 

区 分 计算 过 程 和 写 出 来 的 过 程 可 能 使 人 感到 困惑 ， 其 中 的 一 个 原因 在 于 各 种 常见 语言 
(包括 Ada 、Pascal 和 C ) 的 大 部 分 实现 的 设计 中 ， 对 于 任何 递归 过 程 的 解释 ， 所 需要 消耗 的 存 
储量 总 与 过 程 调用 的 数目 成 正比 ， 即 使 它 所 描述 的 计算 过 程 从 原理 上 看 是 返 代 的 。 作 为 这 一 
事实 的 后 果 ， 要 在 这 些 语言 里 描述 迭代 过 程 ， 就 必须 借助 于 特殊 的 “循环 结构 ， 如 do 、 
repeat、until 、for 和 while 等 等 。 我 们 将 在 第 5 章 里 考察 的 Scheme 的 实现 则 没有 这 一 缺 
陷 ， 它 将 总 能 在 常量 空间 中 执行 迭代 型 计算 过 程 ， 即 使 这 一 计算 是 用 一 个 递归 过 程 描述 的 。 
具有 这 一 特性 的 实现 称 为 尾 递 归 的 。 有 了 一 个 尾 递 归 的 实现 ， 我 们 就 可 以 利用 交规 的 过 程 调 
用 机 制 表 述 迭 代 ， 这 也 会 使 各 种 复杂 的 专用 迭代 结构 变 成 不 过 是 一 些 语法 糖衣 了 ”。 

练习 1.9 下面 几 个 过 程 各 定义 了 一 种 加 起 两 个 正 整 数 的 方法 ， 它 们 都 基于 过 程 inc (€ 
将 参数 增加 1 ) 和 dec ( 它 将 参数 减少 1).。 : 

(define (+ a b) 

(if (=a 0) 
b 
{ine (+ (dec a) b)))) | 


(define (+ a b) 
(if (= a 0) 


0 ERSE, RUKE MERESTE MELEX, DH HSA PARE AE BTL “LAER A 
实现 为 一 个 机 器 ， 其 中 只 有 固定 数目 的 寄存 器 ， 无 须 任何 辅助 存储 器 。 与 这 种 情况 不 同 ， 要 实现 递归 计算 过 
程 ， 就 需要 一 种 机 器 ， 其 中 使 用 了 一 个 称 为 堆栈 的 辅助 数据 结构 。 | 

3 ease, B HAR gE Pei, ee ES ie EM Carl Hewitt (1977) 提供 ， 他 用 计算 
的 “消息 传递 ”模型 解释 尾 递 归 。 第 3 章 将 讨论 这 种 模型 。 在 该 工作 的 启发 下 ，Gerald Jay Sussman 和 Guy 
Lewis Steele Jr. ( 见 Steele 1975) 为 Scheme 构造 了 尾 递 归 的 解释 器 。Steeie 后 来 证 明了 尾 递 归 是 编译 过 程 调用 
的 自然 方式 的 推论 (Steele 1977 ) 。Scheme 的 IEEE 标 准 要 求 3cheme 解 释 器 必须 是 尾 递 VAR. 


b 
(+ (dec a) (inc b)))) 
请 用 代 换 模型 展示 这 两 个 过 程 在 求 值 (+4 5) 时 所 产生 的 计算 过 程 。 这 些 计 算 过 程 是 递归 
的 或 者 迭代 的 吗 2 
练习 1.10 下 面 过 程 计 算 一 个 称 为 Ackermanmn 邱 数 的 数学 函数 : 
(define (A x y) 
(cond ((= y 0) 0) 
((= x 0) (* 2 y)) 
((= y 1) 2) 
(else (A (- x 1) 
(A x (- y 1)))))) 
下 面 各 表达 式 的 值 是 什么 : 
(A 1 10) 
(A 2 4) 
(A 3 3) 
请 考虑 下 面 的 过 程 ， 其 中 的 R 就 是 上 面 定 义 的 过 程 : 
(define (f n) (A 0 n)) 
(define (g n) (A 1 n)) 
(define (hn) (A 2 n)) 
(define (k n) (* 5 n n)) 


请 给 出 过 程 E 、g 和 h 对 给 定 整数 值 " 所 计算 的 函数 的 数学 定义 。 例 如 ，(k n) HRS’. 
1.2.2 HELA 


ARR Rit RRA BG hs, PEARS, MEZ EK ASS (Fibonacci) 数 序列 
的 计算 ， 这 一 序列 中 的 每 个 数 都 是 前 面 两 个 数 之 和 : 

0, 1, 1, 2, 3, 5, 8, 13, 21，… 
一 般 说 ， 斐 波 那 契 数 由 下 面 规则 定义 : 


0 an n =O 
Fib(n) = /1 an n=] 
Fib(n -1)+Fib(n-2) ”否则 


我 们 马上 就 可 以 将 这 个 定义 翻译 为 一 个 计算 斐 波 那 契 数 的 递归 过 程 : 
(define (fib n) 
(cond ({= n 0) 0) 
((= n 1) 1) 
(else (+ (fib (- n 1)) 
(fib (- n 2)))))) - 
考虑 这 一 计算 的 模式 。 为 了 计算 (fib 5) ， 我 们 需要 计算 出 (fib 4) 和 (fib 3). 
而 为 了 计算 (fib 4) ， 又 需要 计算 (fib 3) 和 (fib 2)。 一 般 而 言 ， 这 一 展开 过 程 看 起 
来 像 一 棵 和 树 ， 如 图 1-5 所 示 。 请 注意 ， 这 里 的 每 层 分 裂 为 两 个 分 支 (除了 最 下 面 )， 反 映 出 对 
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图 1-5 计算 (fib 5) 中 产生 的 树 形 递归 计算 过 程 


fib 过 程 的 每 个 调用 中 两 次 递归 调用 自身 的 事实 。 

上 面 过 程 作为 典型 的 树 形 递归 具有 教育 意义 ， 但 它 却 是 一 种 很 糟 的 计算 韭 波 那 契 数 的 方 
法 ， 因 为 它 做 了 太 多 的 宛 余 计算 。 在 图 1-5 中 , R (fib 3) 差不多 是 这 里 的 一 半 工 作 ， 这 一 
计算 整个 地 重复 做 了 两 次 。 事 实 上 ， 不 难 证 明 ， 在 这 一 过 程 中 ,计算 (fib 1) 和 (fib 0) 
的 次 数 〈 一 般 说 ， 也 就 是 上 面 树 里 树叶 的 个 数 ) 正好 是 Fib(n +1)。 要 领会 这 种 情况 有 多 AN 
样 ， 我 们 可 以 证 明 Fib(n) 值 的 增长 相对 于 n 是 指数 的 。 更 准确 地 说 ( 见 练习 1.13) Fib) 就 是 
最 接近 如 / V5 的 整数 ， 其 中 : 

@=(14+ ./5)/2 =1.6180 
就 是 黄金 分 割 的 值 ， 它 满足 方程 : 
f=p+1 
这 样 ， 该 过 程 所 用 的 计算 步骤 数 将 随 着 输入 增长 而 指数 性 地 增长 。 在 另 一 方面 ， 其 空间 需求 
只 是 随 着 输入 增长 而 线性 增长 ， 因 为 ， 在 计算 中 的 每 一 点 ， 我 们 都 只 需 保 存 树 中 在 此 之 上 的 
结 点 的 轨迹 。 一 般 说 ， 鲍 形 递归 计算 过 程 里 所 需 的 步骤 数 将 正比 于 树 中 的 结 点 数 ， 其 空间 需 


SIE LL FRB RR ARE 。 
我 们 也 可 以 规划 出 一 种 计算 斐 波 那 契 数 的 迭代 计算 过 程 ， 其 基本 想法 就 是 用 一 一 对 整数 a 和 
b， 将 它们 分 别 初始 化 为 Fib(1) = 1 和 Fib(0) =0， 而 后 反复 地 同时 使 用 下 面 变 换 规则 ， 
a-a+b 


\ 


boa 
不 难 证 明 ， 在 n 次 应 用 了 这 些 变 换 后 ,a 和 4b 将 分 别 等 于 Fib(n +1) 和 Fib(n)。 因 此 ， 我 们 可 以 用 
下 面 过 程 ， 以 挝 代 方 式 计算 斐 波 那 契 数 : 
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(define (fib n) 
(fib-iter 1 0 n)) 


(define (fib-iter a b count) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (- count 1)))) 
计算 Fib(n) 的 这 种 方法 是 一 个 线性 迭代 。 这 两 种 方法 在 计算 中 所 需 的 步骤 上 差异 巨大 一 一 后 
一 方法 相对 于 n 为 线性 的 ， 前 一 个 的 增长 像 Fib(n) 一 样 快 ， 即 使 不 大 的 输入 也 可 能 造成 很 大 
的 差异 。 
但 是 我 们 也 不 应 做 出 结论 ， 说 树 形 递归 计算 过 程 根本 没有 用 。 当 我 们 考虑 的 是 在 层次 结 
构 性 的 数据 上 操作 ， 而 不 是 对 数 操作 时 ， 将 会 发 现 树 形 递归 计算 过 程 是 一 种 自然 的 、 威 力 强 
大 的 工具 ?2。 即 使 是 对 于 数 的 计算 ， 树 形 递归 计算 过 程 也 可 能 帮助 我 们 理解 和 设计 程序 。 以 计 
算 斐 波 那 契 数 的 程序 为 例 ， 虽 然 第 一 个 Eib 过 程 远 比 第 二 个 低 效 ， 但 它 却 更 加 直截了当 ， 基 
E L BRAE AERE DEIN BOY PIM ES IER aai ESEA 而 要 规划 出 那个 迭代 过 程 ， 则 需要 注 
意 到 ， 这 一 计算 过 程 可 以 重新 塑造 为 一 个 采用 三 个 状态 变量 的 迭代 。 


实例 ， 换 零钱 方式 的 统计 

要 想得到 一 个 欠 代 的 斐 波 那 契 算法 需要 一 点 点 智慧 。 与 此 相对 应 ， 现 在 考虑 下 面 的 问题 : 
给 了 半 美 元 、 四 分 之 一 美元 、10 美 分 、5 美 分 和 1 美 分 的 硬币 ， 将 1 美元 换 成 零钱 ， 一 共有 多 人 少 
种 不 同方 式 ? 更 一 般 的 问题 是 ， 给 定 了 任意 数量 的 现金 ， 我 们 能 写 出 一 个 程序 ， 计 算出 所 有 
换 零 钱 方 式 的 种 数 吗 ? 

采用 递归 过 程 ， 这 一 问题 有 一 种 很 向 单 的 解法 。 恨 定 我 们 所 考虑 的 可 用 硬币 类 型 种 类 扫 
了 某 种 顺序 ， 于 是 就 有 下 面 的 关系 : 

将 总 数 为 5 的 现金 换 成 :种 硬币 的 不 同方 式 的 数目 等 于 

。 将 现金 数 a 换 成 除 第 一 种 硬币 之 外 的 所 有 其 他 硬币 的 不 同方 式 数 上 且 ， 加 上 

。 将 现金 数 a -4d 换 成 所 有 种 类 的 硬币 的 不 同方 式 数目 ， 其 中 的 d 是 第 一 种 硬币 的 币值 。 

要 问 为 什么 这 一 说 法 是 对 的 ， 请 注意 这 里 将 换 零 钱 分 成 两 组 时 所 采用 的 方式 ， 第 一 组 里 
都 没有 使 用 第 一 种 硬币 ， 而 第 二 组 里 都 使 用 了 第 一 种 硬币 。 显 然 ， 换 成 零钱 的 全 部 方式 的 数 
目 ， 就 等 于 完全 不 用 第 一 种 硬币 的 方式 的 数目 ， 加 上 用 了 第 一 种 硬币 的 换 零 钱 方式 的 数目 。 
而 后 一 个 数目 也 就 等 于 去 掉 一 个 第 一 种 硬币 值 后 ， 剩 下 的 现金 数 的 换 零钱 方式 数目 。 

这 样 就 可 以 将 其 个 给 定 现金 数 的 换 零 钱 方式 的 问题 ， 递 归 地 归 约 为 对 更 少 现金 数 或 者 更 
少 种 类 硬币 的 同一 个 问题 。 仔 细 考 虑 上 面 的 归 约 规则 ， 设 法 使 你 确信 ， 如 果 采 用 下 面 方式 处 
理 退 化 情况 ， 我 们 就 能 利用 上 面 规 则 写 出 一 个 算法 来 ”: | 

。 如 果 a 就 是 (0， 应 该 算 作 是 有 1 种 换 零 钱 的 方式 。 

。 如 果 a 小 于 0， 应 该 算 作 是 有 0 种 换 零 铁 的 方式 。 

。 如 果 7 是 0 ， 应 该 算 作 是 有 0 种 换 零 钱 的 方式 。 

我 们 很 容易 将 这 些 描 述 翻 译 为 一 个 递归 过 程 : 


(define (count- change amount) 


2 我 们 已 经 在 1.1.3 节 里 过 到 过 这 种 情况 的 例子 。 在 求 值 表达 式 时 ， WREE AERIENE, 
3 例如 ， 仔 细 地 将 上 述 归 约 规则 用 于 将 10 分 换 成 53 分 和 1 分 零钱 的 问题 。 


(cc amount 5)) 


(define (cc amount kinds-of-coins) 
(cond ((= amount 0) 1) 
((or (< amount 0) (= kinds-of-coins 0)) 0) 
(else (+ (cc amount 
(- Kinds~of-coins 1)) 
(CC (- amount 
(first-denomination kinds-of-coins) ) 


kinds-of~coins))))) 


(define (first-denomination kinds-of-coins) 
(cond ((= kinds-of-coins 1) 1) 
((= kinds-of-coins 2) 5) 
(({= kinds-of-coins 3) 10) p 
((= kinds-of-coins 4) 25) 
((= kinds-of-coins 5) 50))) | | 
(过 程 Eirst-~denomination 以 可 用 的 硬币 种 数 作 为 输入 ， 返 回 第 一 种 硬币 的 币值 。 这 里 认 
为 硬币 已 经 从 最 大 到 最 小 排列 好 了 ， 其 实 采 用 任何 顺序 都 可 以 )。 我 们 现在 就 能 回答 开始 的 问 
题 了 ， 下 面 是 换 1 美 元 硬币 的 不 同方 式 数 目 : 
(count-change 100) 
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count-change 产 生出 一 个 树 形 的 递归 计算 过 程 ， 基 中 的 元 余 计算 与 前 面 fib 的 第 一 种 
实现 类 似 ( 它 计 算出 292 需 要 一 点 时 间 )。 在 另 一 方面 ， 要 想 设 计 出 一 个 更 好 的 算法 ， 使 乙 能 
算出 同样 结果 ， 就 不 那么 明显 了 。 我 们 将 这 一 问题 留 给 读者 作为 一 个 挑战 。 人 们 认识 到 ， 树 
形 递归 计算 过 程 有 可 能 极其 低 效 ， 但 常常 很 容易 描述 和 理解 ， 这 就 导致 人 们 提出 了 一 个 建议 ， 
希望 能 利用 世界 上 的 这 两 个 最 好 的 东西 。 人 们 和 希望 能 设计 出 一 种 “灵巧 编译 器 ， 使 之 能 将 一 
个 树 形 递归 的 过 程 翻译 为 一 个 能 计算 出 同样 结果 的 更 有 效 的 过 程 “。 | 

练习 1.11 ”函数 f 由 如 下 的 规则 定义 : 如 果 n <3, BA fn) =n; MMRn>3, MA fn) = 
fln 一 1) +2fn 一 2) +3fln 一 3)。 请 写 一 个 采用 递归 计算 过 程 计 算 了 的 过 程 。 再 写 一 个 采用 送 代 


计算 过 程 计算 了 的 过 程 。 
练习 1.12 FRR ARR MMF = BH : 
1 

1 1 

121 

13 3 1 

146 4 1 


4 对 付 宛 余 计 算 的 一 种 途径 是 通过 重新 安排 ,使 计算 过 程 能 自动 构造 出 一 个 已 经 计算 出 的 值 的 表格 。 每 次 要 求 
对 某 一 参数 调用 过 程 时 ， 首 先 去 查看 这 个 值 是 否 已 在 表 里 ， 如 果 存 在 就 可 以 避免 重复 计算 。 这 一 策略 被 称 为 
表格 技术 或 记忆 技术 ， 它 也 很 容易 实现 。 有 了 时 采用 表格 技术 可 以 将 原本 需要 指数 步骤 的 计算 过 程 ( 例 如 
count-change) 转变 成 空间 和 时 间 需 求 都 相对 于 输入 线性 增长 的 计算 过 程 。 参 见 练 习 3.27 。 
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三 角形 边界 上 的 数 都 是 1 ， 内 部 的 每 个 数 是 位 于 它 上 面 的 两 个 数 之 和 … 。 请 写 一 个 过 程 ， 它 采 
用 递归 计算 过 程 计 算出 帕斯卡 三 角形 。 

练习 1.13 证明 Fib(n) 是 最 接近 gw/ V5 的 整数 ， 其 中 $=(1 + J5)/2, ER: 利用 归纳 法 和 
斐 波 那 契 数 的 定义 ( 见 1.2.2 节 )， 证明 Fib(n) =( 久 一 /VS 。 


1.2.3 增长 的 阶 


前 面 一些 例 子 说 明 ， 不 同 的 计算 过 程 在 消耗 计算 资源 的 速率 上 可 能 存在 着 巨大 差异 M 
述 这 种 差异 的 一 种 方便 方式 是 用 增长 的 阶 的 记 法 ， 以 便 我 们 理解 在 输入 变 大 时 ， 某 一 计算 过 
程 所 需 资源 的 粗略 度量 情况 。 

令 n 是 一 个 参数 ， 它 能 作为 问题 规模 的 一 种 度量 ， 令 R(n) 是 一 个 计算 过 程 在 处 理 规模 为 n 
的 问题 时 所 需要 的 资源 量 。 在 前 面 的 例子 里 ， 我 们 取 n 为 给 定 函数 需要 计算 的 那个 数 ， 当 然 也 
存在 其 他 可 能 性 。 例 如 ， 如 果 我 们 的 目标 是 计算 出 一 个 数 的 平方 根 的 近似 值 ， 那 么 就 可 以 将 n 
取 为 所 需 精 度 的 数字 个 数 。 对 于 算 阵 乘法 ， 我 们 可 以 将 n 取 为 矩阵 的 行 数 。 一 般 而 言 ， 总 存在 
着 某 个 有 关 问 题 特性 的 数值 ， 使 我 们 可 以 相对 于 它 去 分 析 给 定 的 计算 过 程 。 与 此 类 似 ，R(n) 
也 可 以 是 所 用 的 内 部 寄存 器 数目 的 度量 值 ， 也 可 能 是 需要 执行 的 机 器 操作 数目 的 度量 值 ， 或 
者 其 他 类 似 东西 。 在 每 个 时 刻 只 能 执行 固定 数目 的 操作 的 计算 机 里 ， 所 需 的 时 间 将 正比 于 需 
要 执行 的 基本 机 器 指令 条 数 。 

我 们 称 R(n) REON) 的 增长 阶 ， 记 为 R(n) =BY(n))( 读 做 “fn) 的 theta”) ， 如 果 存 在 
与 n 无 关 的 整数 kL 和 kz2， 使 得 : 


k f(n) <R(n) <kf(n) 


对 任何 足够 大 的 n 值 都 成 立 ( 换 句 话 说 ， 对 足够 大 的 x ， 值 R(n) 总 位 于 kfn) 和 kftn) 之 间 )。 
举例 来 说 ， 在 1.2.1 节 中 描述 的 计算 阶乘 的 线性 递归 计算 过 程 里 ， 步 又 数目 的 增长 正比 于 
输入 。 也 就 是 说 ， 这 一 计算 过 程 所 需 步 又 的 增长 为 B( 几 ， 其 空间 需求 的 增长 也 是 8(]。 对 于 
迭代 的 阶乘 ， 其 步 数 还 是 8(m) 而 空间 是 8(1D) ， 即 为 一 个 常数 5 。 树 形 递归 的 斐 波 那 契 计算 需 
EOP) PAON) 空间 ， 这 里 的 $ 就 是 1.2.2 节 中 描述 的 黄金 分 割 率 。 
增长 的 阶 为 我 们 提供 了 对 计算 过 程 行为 的 一 种 很 粗略 的 描述 。 例 如 , 某 计算 过 程 需要 民 步 ， 
另 一 计算 过 程 需要 1000n? 步 ， 还 有 一 个 计算 过 程 需 要 3n? +10n +17 步 ， 它 们 增长 的 阶 都 是 
B(m?)。 但 在 另 一 方面 ， 增 长 的 阶 也 为 我 们 在 问题 规模 改变 时 ， 预 期 一 个 计算 过 程 的 行为 变化 
提供 了 有 用 的 线索 。 对 于 一 个 8@(n) (线性 ) 的 计算 过 程 ， 规 模 增 大 一 倍 大 致 将 使 它 所 用 的 次 


35 帕斯卡 三 角形 的 元 素 又 称 为 二 项 式 系数 ， 因 其 中 第 mn 行 就 是 (x+y) “的 展开 式 的 系数 。 计算 这 些 系数 的 这 一 
模式 发 表 在 布 赖 斯 - 帕斯卡 有 关 概 率 论 的 开创 性 工作 “ 论 算术 三 角形 ”(Traiié du triangle arithmétique ) 中 。 
根据 Knuth (1973), 同样 的 模式 也 出 现在 中 国 数学 家 朱 世 杰 于 1303 成 书 的 《四 元 玉 鉴 ， 还 出 现在 12 世 纪 波 
斯 诗人 和 数学 家 Omar Khayyam 的 论文 ， 以 及 12 世 纪 印 度数 学 家 Bhéscara Achirya 的 论文 中 。( 这 一 三 角形 也 称 
y “AZZAR” (AE, ， 宋 朝 960- 11274 ) 和 “杨辉 三 角形 ”( 杨辉 ，1261 )， 是 中 国 古 代数 学 的 辉煌 成 就 。 
一 一 译 者 注 ) 

% 这 些 说 法 都 是 经 过 了 很 大 简化 。 例如 ， 如 果 采 用 “机 器 操作 ”去 计算 步 数 ， 我们 实际 上 就 做 了 一 个 假定 ， 假 
定 所 需 执 行 的 各 种 机 器 操作 ， 例 如 执行 一 次 乘法 与 需要 乘 的 那 两 个 数 的 大 小 无 天 。 如 果 需 要 乘 的 数 非常 大 ， 
这 一 假定 实际 上 是 不 成 立 的 。 对 于 空间 的 估计 也 需要 做 类 似 的 说 明 。 与 计算 过 程 的 设计 和 描述 的 情况 类 亿 ， 
对 于 计算 过 程 的 分 析 也 可 以 在 不 同 的 抽象 层次 上 进行 。 
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源 增 加 了 一 倍 。 对 于 一 个 指数 的 计算 过 程 ， 问 题 规模 每 增加 1 都 将 导致 所 用 资源 按照 某 个 常数 
倍增 长 。 在 1.2 节 剩 下 的 部 分 ， 我 们 将 考察 两 个 算法 ， 其 增长 的 阶 都 是 对 数 型 增长 的 ， 因 此 ， 
当 问 题 规模 增 大 一 倍 时 ， 所 需 资源 量 只 增加 一 个 常数 。 


练习 1.14 ”请 画 出 有 关 的 树 ， 展示 1.2.2 节 的 过 程 count-change 在 将 11 美 分 换 成 硬币 时 
所 产生 的 计算 过 程 。 相 对 于 被 换 现金 量 的 增加 ， 这 一 计算 过 程 的 空间 和 步 数 增长 的 阶 各 是 什 
么 ? | 

431.15 在 角 (AIER) x 足够 小 时 ， 其 正弦 值 可 以 用 sinx 和 “x 计算 ， 而 三 角 恒 等 式 : 


x 
sin x =3 sin= -4sin — 


3 
可 以 减 小 sin 的 参数 的 大 小 (为 完成 这 一 练习 ， 我 们 认为 一 个 角 是 “足够 小 ”"， 如 果 其 数值 不 大 
于 0.1 绝 度 )。 这 些 想 法 都 体现 在 下 述 过 程 中 : 
(define (cube x) (* x x XxX)) 
(define (p x) (- (* 3 x) (* 4 (cube x)))) 
(define (sine angle) 
{if (not (> (abs angle) 0.1)) 


angle 
(p (sine (/ angle 3.0))))) 


a) 在 求 值 (sine 12.15) 时 ，P 将 被 使 用 多 少 次 ? 
b) 在 求 值 (sine a) 时 ， 由 过 程 sine 所 产生 的 计算 过 程 使 用 的 空间 和 步 数 《作为 & 的 国 
Be) 增长 的 阶 是 什么 ? 
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正 整数 的 指数 上 ， 过 程 计 算出 性 。 做 这 件 事 的 一 种 方式 十 通过 下 面 这 个 递归 定义 : 


b"=b - pr-! 
b? =1 
它 可 以 直接 翻译 为 如 下 过 程 ; 
(define (expt b n) 
(if (=n 0) 


1 
. (* b (expt b (- n 1))))) 
这 是 一 个 线性 的 递归 计算 过 程 ， 需 要 6B(n) 步 和 B(n) 空间 。 就 像 阶 乘 一 样 ， 我 们 很 容易 将 其 形 
式 化 为 一 个 等 价 的 线性 夺 代 : 
(define (expt b n) 
(expt-iter bn 1)) 
(define (expt-iter b counter product) 
(if (= counter 0) 


product 
(expt-iter b 


O > EE 


(- counter 1) 
(* b product) ))) 


这 一 版 本 需要 B(n) 步 和 6B(1) 空间 。 
我 们 可 以 通过 连续 求 平 方 ， 以 更 少 的 步 又 完成 乘 宕 计算 。 例 如 ， 不 是 采用 下 面 这 样 的 方 
NRD, 
b - (b - (b - (b - (b - (b - (b - b)))))) 
而 是 用 三 次 乘法 算出 它 来 : 
b*=b-b 
b4 — p2 . þ? 
bë =h* . bt 
这 一 方法 对 于 指数 A2 SE SBT LA. wR RAP A, RTA ET Ek E 
方 ， 去 完成 一 般 的 乘 医 计算 : | 
b" = (bY 若 n 是 偶数 
b'=b -b"-! 者 rn 是 奇数 
这 一 方法 可 以 定义 为 如 下 的 过 程 : 
(define (fast-expt b n) 
(cond ((= n 0) 1) | 
( (even? n) (square (fast-expt b (/ n 2)))) 
(else (* b (fast-expt b (- n 1)))))) 
其 中 检测 一 个 整数 是 否 偶数 的 谓词 可 以 基于 基本 过 程 xemainder 定 义 : 


(define (even? n) 
(= (remainder n 2) 0)) 


由 East-expt 演 化 出 的 计算 过 程 ， 在 空间 和 步 数 上 相对 于 mx 都 是 对 数 的 。 要 看 到 这 些 情 次 ， 
请 注意 ， 在 用 fast-expt 计 算 52 时 ， 只 需要 比 计算 放 多 做 一 次 乘法 。 每 做 一 次 新 的 来 法 ， 能 
够 计算 的 指数 值 (大 约 ) 增 大 一 倍 。 这 样 ， 计 算 指数 x 所 需要 的 乘法 次 数 的 增长 大 约 就 是 以 2 
为 底 的 x 的 对 数值 ， 这 一 计算 过 程 增长 的 阶 为 8(log n)”. 

been BK, O(log n) 增长 与 8(n) 增长 之 间 的 差异 也 会 变 得 非常 明显 。 例 如 对 n =1000, 
fast-expt 只 需要 14 次 乘法 *。 我 们 也 可 能 采用 连续 求 平方 的 想法 ， 设 计 出 一 个 具有 对 数 步 
数 的 计算 乘 宕 的 选 代 算法 ( 见 练习 1.16 )。 但 是 ， 就 像 迭 代 算法 的 常见 情况 一 样 ， 写 出 这 一 算 
法 就 不 像 对 递归 算法 那样 直截了当 了 ”。 

练习 1.16 请 定义 一 个 过 程 ， 它 能 产生 出 一 个 按照 迭代 方式 的 求 笑 计算 过 程 ， 其 中 使 用 一 
系列 的 求 平方 ， 就 像 一 样 fast-expt 只 用 对 数 个 步骤 那样 。( 提 示 : 请 利用 关系 OY = 
(52)22 ， 除 了 指数 m 和 基数 5 之 外 ， 还 应 维持 一 个 附加 的 状态 变量 as， 并 定义 好 状态 变换 ， 使 得 


7 更 准确 地 说 ， 这 里 所 需 乘 法 的 次 数 等 于 "的 以 2 为 底 的 对 数值 ， 再 加 上 "的 二 进 制 表示 中 1 的 个 数 减 1 。 这 个 值 总 
小 于 n 的 以 2 为 底 的 对 数值 的 两 倍 。 对 于 对 数 的 计算 过 程 而 言 ， 在 阶 记 法 定义 中 的 任意 常量 kL 生 ， 意味 着 对 数 
的 底 并 没有 关系 。 因 此 这 种 过 程 被 描述 为 G6(log n), | | 

3 你 可 能 奇怪 什么 人 会 关心 去 求 数 的 1000 次 乘 宪 。 参 看 1.2.0 市 。 

5 这 一 迭代 算法 也 是 一 个 古董 ， 它 出 现在 公元 前 200 年 之 前 Achirya Pingala SAyChandah-sutra $, ARR ER 
这 一 算法 和 其 他 算法 的 完整 讨论 和 分 析 ， 请 参看 Knuth 1981 74.6375. 
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从 一 个 状态 转 到 另 一 状态 时 乘积 a 5" 不 变 。 在 计算 过 程 开 始 时 令 a 取 值 1|， 并 用 计算 过 程 结 束 时 
4 的 值 作为 回答 。 一 般 说 ， 定 义 一 个 不 变量 ， 要 求 它 在 状态 之 间 保 持 不 变 ， 这 一 技术 是 思考 迭 
代 算 法 设计 问题 时 的 一 种 非常 强 有 力 的 方法 。) 

练习 1.17 ”本 节 里 的 求 莉 算法 的 基础 就 是 通过 反复 做 乘法 去 求 乘 害 。 与 此 类 似 ， 也 可 以 
通过 反复 做 加 法 的 方式 求 出 乘积 。 下 面 的 乘积 过 程 与 expt 过 程 类 似 (其 中 假定 我 们 的 语言 只 
A mA mt Æ H): | | 

(define (* a b) 

(if (= b 0) 
0 
(+a (* a (~ b1))))) | 

这 一 算法 具有 相对 于 b 的 线性 步 数 。 现 在 假定 除了 加 法 之 外 还 有 运算 Qouble， 它 能 求 出 一 个 
整数 的 两 倍 ; 还 有 halve， 它 将 一 个 (偶数 ) 除 以 2。 请 用 这 些 运算 设计 一 个 类 似 fast- 
expt 的 求 乘 积 过 程 ， 使 之 只 用 对 数 的 计算 步 数 。 | 

练习 1.18 ”利用 练习 1.16 和 1.17 的 结果 设计 一 个 过 程 ， 它 能 产生 出 一 个 基于 加 、 加 倍 和 折 
半 运 算 的 迭代 计算 过 程 ， 只 用 对 数 的 步 数 就 能 求 出 两 个 整数 的 乘积 ”。 

练习 1.19 存在 着 一 种 以 对 数 步 数 求 出 辈 波 那 契 数 的 巧妙 算法 。 请 回忆 1.2.2 币 £1b- 
iter 计 算 过 程 中 状态 变量 a 和 45 的 变换 规则 ，a 一 a ++b 和 b 一 4， 现 在 将 这 种 变换 称 为 4 变换 。 通 
过 观察 可 以 发 现 ， 从 1 和 0 开始 将 T 反 复 应 用 nn 次， 将 产生 出 一 对 数 Fib(n +1) 和 Fib(n) 。 换 句 话 
it, SER ARR WT (BRT HKG) 应 用 于 对 偶 (1, 0) 而 产生 出 来 。 现 在 将 ! 看 做 
是 变换 族 T,, 中 p =0 且 dg =1 的 特殊 情况 ， 其 中 了 ,是 对 于 对 偶 (a, b) Rabg +aq +tap 和 和 b 一 bp 
+aq 规 则 的 变换 。 请 证 明 ， 如 果 我 们 应 用 变换 Tp 两 次 ， 其 效果 等 同 于 应 用 同样 形式 的 一 次 变 
1,7, FBP 和 9 可 以 由 P 和 9 计算 出 来 。 这 就 指明 了 一 条 求 出 这 种 变换 的 平方 的 路 往 ， 使 
我 们 可 以 通过 连续 求 平方 的 方式 去 计算 T"， 就 像 fast-expt 过 程 里 所 做 的 那样 。 将 所 有 这 些 
集中 到 一 起 ， 就 形成 了 下 面 的 过 程 ， 其 运行 只 需要 对 数 的 步 数 “、 

define (fib n 

fib iter 1 0 1 n)) 


(define (fib-iter a b p q count) 
(cond ((= count 0) b) 
((even? count) 
(fib-iter a 


b 

<2?> | ; compute p' 
<?2?> ; compute q' 
(/ count 2))) 


(else (fib-iter (+ (* bq) (* aq) (* a p)) 
(+ (* b p) (* a q)) 
p 


q 
(- count 1))))) 


4 这 一 算法 有 时 被 称 为 乘法 的 “俄罗斯 农民 的 方法 "， 它 的 历史 也 很 悠久 。 使 用 它 的 实例 可 以 在 莱 因 德 纸 草 书 
(Rhind Papyrus) 中 找到 ， 这 是 现存 最 悠久 的 两 份 数学 文献 之 一 ， 由 一 位 名 为 Ah-mose 的 埃及 抄写 人 写 于 大 约 
公元 前 1700 年 (而 且 是 另 一 份 年 代 更 久远 的 文献 的 复制 品 ) 。 

4 这 一 练习 是 Joy Stoy 给 我 们 建议 的 ， 基 于 在 Kaldewaij 1990 的 一 个 例子 。 


12.5 最 大 公约 数 


两 个 整数 < 和 4b 的 最 大 公约 数 (GCD) 定义 为 能 除 尽 这 两 个 数 的 那个 最 大 的 整数 。 例 如 ， 
16 和 28 的 GCD 就 是 4。 在 第 2 章 里 ， 当 我 们 要 去 研究 有 理 数 算术 的 实现 时 ， 就 会 需要 GCD ， 以 
便 能 把 有 理 数 约 化 到 最 简 形 式 (要 将 有 理 数 约 化 到 最 简 形式 ， 我 们 必须 将 其 分 母 和 分 子 同 时 
除 掉 它们 的 GCD 。 例 如 ，16/28 将 约 简 为 4/7)。 找 出 两 个 整数 的 GCD 的 一 种 方式 是 对 它们 做 因 
数 分 解 ， 并 从 中 找 出 公共 因子 。 但 存在 着 一 个 更 高 效 的 著名 算法 。 

这 一 算法 的 思想 基于 下 面 的 观察 ， 如 果 r 是 4 除 以 6 的 余数 ， 那 么 4 和 5 的 公约 数 正好 也 是 5 
的 r 的 公约 数 。 因 此 我 们 可 以 借助 于 等 式 : 

GCD(a, b) =GCD(b, r) 


这 就 把 一 个 GCD 的 计算 问题 连续 地 归 约 到 越 来 越 小 的 整数 对 的 CCD 的 计算 问题 。 例 如 : 
GCD(206, 40) =GCD(40, 6) 
=GCD(6, 4) 
=GCD(4, 2) 
=GCD(2, 0) 
=2 


将 GCD (206, 40) 归 约 到 GCD (2, 0) ， 最 终 得 到 2。 可 以 证 明 ， 从 任意 两 个 正 整数 开始 ， 反 复 执 
行 这 种 归 约 ， 最 终 将 产生 出 一 个 数 对 ， 其 中 的 第 二 个 数 是 0， 此 时 的 GCD 就 是 另 一 个 数 。 这 一 
计算 GCD 的 方法 称 为 欧 几 里 得 算法 “。 | 
不 难 将 欧 几 里 得 算法 写成 一 个 过 程 : 
(define (ged a b) 
(if (= b 0) 
(gcd b (remainder a b)))) 


这 将 产生 一 个 迭代 计算 过 程 ， 其 步 数 依 所 涉及 的 数 的 对 数 增长 。 
欧 几 里 得 算法 所 需 的 步 数 是 对 数 增长 的 ， 这 一 事实 与 斐 波 那 契 数 之 间 有 一 种 有 趣 关 系 : 
Lamé 定 理 : 如 果 欧 几 里 得 算法 需要 用 k 步 计算 出 一 对 整数 的 GCD， 那 么 这 对 数 中 较 小 的 
ABT EK DIRK RETTA EMRA". | 


2 这 一 算法 称 为 欧 几 里 得 算法 ， 是 因为 它 出 现在 欧 岂 里 得 的 《 儿 何 原本 》(Elements ， 第 7 着， 大约 为 公元 前 300 
年 )。 根 据 Knuth (1973) 的 看 法 ， 这 一 算法 应 该 被 认为 是 最 老 的 非 平 凡 算法 。 古 埃及 的 乘 方法 (练习 1.18) 
确实 年 代 更 久远 ， 但 按 Knuth 的 看 法 ， 欧 几 里 得 算法 是 已 知 的 最 早 描 述 为 一 般 性 算法 的 东西 ， 而 不 是 仅仅 给 出 
一 集 示例 。 

4 这 一 定理 是 1845 年 由 Gabriel Lamk 证 明 的 Gabriel Lamé 是 法 国 数学 家 和 工程 师 ， 他 以 在 数学 物理 领域 的 贡献 
而 闻名。 为 了 证 明 这 一 定理 ， 考 虚数 对 序列 (a, bi) ， 其 中 at >b:， 假 设 欧 几 里 得 算法 在 第 t 步 结束 。 这 一 证 明 
基于 下 述 论断 ; 如 果 (au De) 一 (a b) (Ges, De) 是 归 约 序列 中 连续 的 三 个 数 对 ,我们 必然 有 bi+1 Sbi tbe, 
为 验证 这 一 论断 ， 我 们 需要 注意 到 ， 这 里 的 每 个 归 约 步骤 都 是 通过 应 用 变换 ar =b, bii =a PRL RK. 
第 二 个 等 式 意 味 着 ai = qb tO, 其 中 的 9 是 某 个 正 整 数 。 因 为 9 至 少 是 1 ， 所 以 我 们 有 ax = qh the >b: 十 bl。 
但 在 前 面 一 个 归 约 步 中 有 br41 Hae, Aeb + 一 ax >b, +bxr 。 这 就 证 明了 上 述 论 断 。 现 在 就 可 以 通过 对 归纳 来 
证 明 这 一 定理 了 ， 假 设 上 是 算法 结束 所 需要 的 步 数 。 对 k=1 结 论 成 立 ， 因 为 此 时 不 过 是 要 求 5 不 小 于 Fib(1) =1, 
现在 假定 结果 对 所 有 小 于 等 于 k 的 整数 都 成 立 ， 让 我 们 来 设法 建立 对 +1 的 结果 。 令 (ctrb pt 一 (ab PD 一 
(Gui, b) 是 归 约 计算 过 程 中 的 几 个 连续 的 数 对 ， 我 们 有 bi >Fib(k 一 1) 以 及 bi 之 Fib(k)。 这 样 ， 应 用 我 们 在 上 
面 已 证 明 的 论断 ， 再 根据 Fibonacei 数 的 定义 ， 就 可 以 给 出 b+1 Sb + b 之 Fib(k) + Fib(k —1)=Fib(k +1), X5 
完成 了 Lame 定 理 的 证 明 。 | 


12 dkh CNA AMAA 33 


我 们 可 以 利用 这 一 定理 ， 做 出 欧 几 里 得 算法 的 增长 阶 估 计 。 令 n 是 作为 过 程 输入 的 两 个 数 
中 较 小 的 那个 ， 如 果 计 算 过 程 需 要 k 步 ， 那 么 我 们 就 一 定 有 nn SFib(k)~ 内 /| VS 。 这 样 ， 步 数 大 的 
增长 就 是 4 的 对 数 (对 数 的 底 是 9)。 这 样 ， 算 法 的 增长 阶 就 是 8(log n). 

练习 1.20 ”一 个 过 程 所 产生 的 计算 过 程 当然 依赖 于 解释 器 所 使 用 的 规则 。 作 为 一 个 例子 
考虑 上 面 给 出 的 迭代 式 gcd 过 程 ， 假 定 解释 器 用 第 1.1.5 节 讨论 的 正则 序 去 解释 这 一 过 程 (对 
if 的 正则 序 求 值 规 则 在 练习 1.5 中 描述 )。 请 采用 (正则 序 的 ) 代 换 方法 ， 展 示 在 求 值 表达 式 
(gcd 206 40) 中 产生 的 计算 过 程 ， 并 指明 实际 执行 的 remainder 运 算 。 在 采用 正则 序 求 
值 (ged 206 40) 中 实际 执行 了 多 少 次 remainder 运算? 如 果 采 用 应 用 序 求 值 呢 ? 


1.2.6 实例 ， 素数 检测 


本 节 将 描述 两 种 检查 整数 是否 素数 的 方法 ， 第 一 个 具有 B( Jn) 的 增长 阶 ， 而 另 一 个 “ 概 
率 ” 算 法 具有 8B(1og n) 的 增长 阶 。 本 节 最 后 的 练习 提出 了 若干 基于 这 些 算法 的 编程 作业 。 


寻找 因子 
自古 以 来 ， 数 学 家 就 被 有 关 素 数 的 问题 所 吸引 ， 许 多 人 都 研究 过 确定 整数 是 否 素 数 的 方 
法 。 检 测 一 个 数 是 否 素数 的 一 种 方法 就 是 找 出 它 的 因子 。 下 面 的 程序 能 找 出 给 定数 4 的 (大 于 
1 的 ) 最 小 整数 因子 。 它 采用 了 一 种 直接 方法 ， 用 从 2 开始 的 连续 整数 去 检查 它们 能 否 整除 "。 
(define (smallest-divisor n) 
(find-divisor n 2)) 
(define (find-divisor n test-divisor) 
(cond ((> (square test-divisor) n) n) 


((divides? test-divisor n) test-divisor) 
(else (find-divisor n (+ test-divisor D0) 


(define (divides? a b) 
{= (remainder b a) 0)) 


我 们 可 以 用 如 下 方式 检查 一 个 数 是 否 素数 : "是 素数 当 且 仅 当 它 是 自己 的 最 小 因子 : 


{define (prime? n) 
(= n (smallest-divisor n))) 


find-divisor 的 结束 判断 基于 如 下 事实 ， 如 果 n 不 是 素数 ， 它 必 然 有 一 个 小 二 或 者 等 于 Sh 
的 因子 *“。 这 也 意味 着 该 算法 只 需 在 1 和 Vn 之 间 检 查 因 子 。 由 此 可 知 ， 确 定 是 否 素数 所 需 的 
步 数 将 具有 B( Vn ) 的 增长 阶 。 


费 马 检查 
O(log n) 的 素数 检查 基于 数论 沦 中 著名 的 费 马 小 定理 的 结果 4。 


4 如 果 d 是 n 的 因子 ， 那 么 d/n 当 然 也 是 。 而 d 和 d/n 绝 不 会 都 大 于 Vn 。 
4; 点 埃 尔 . 得 . 费 马 (1601—1665) 是 现代 数论 的 奠基 人 ， 他 得 出 了 许多 有 关 数 论 的 重要 理论 结果 ， 但 他 通 
常 只 是 通告 这 些 结果 ， 而 没有 提供 证 明 。 费 马 小 定理 是 在 1640 年 他 所 写 的 一 封 信里 提 到 的 ， 公 开发 表 的 第 
一 个 证 明 由 欧 拉 在 1736 年 给 出 (更 早 一 些 ， 同 样 的 证 明 也 出 现在 莱 布 尼 芯 的 未 发 表 的 手稿 中 ) 。 费 马 的 最 著 
名 结果 --- 称 为 费 马 的 最 后 定理 -一 是 1637 年 草草 写 在 他 所 读 的 书籍 《算术 》 里 (3 世纪 希腊 数学 家 丢 番 图 
所 著 ) ， 还 带 有 一 旬 注 释 “我 已 经 发 现 了 一 个 极其 美妙 的 证 明 ， 但 这 本 书 的 边栏 太 小 ， 无 法 将 它 写 在 这 里 ”。 
找 出 费 马 最 后 定理 的 证 明成 为 数论 中 最 著名 的 挑战 。 完整 的 解 最 终 由 普 林 斯 屯 大 学 的 安 德 全 怀 尔 斯 在 

1995 年 给 出 。 
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费 马 小 定理 ， 如 果 n 是 一 个 素数 ，a 是 小 于 n 的 任意 正 整 数 ， 那 么 4 的 n 次 方 与 4 模 n 同 余 。 
(两 个 数 称 为 是 模 n 同 余 ， 如 果 它们 除 以 "的 余数 相同 。 数 a 除 以 4 的 余数 称 为 4 取 模 n 的 余数 ， 或 
简称 为 4 取 模 n) 。 

如 果 n 不 是 素数 ， 那 么 ， 一 般 而 言 ， 大 部 分 的 a <n 都 将 满足 上 面 关 系 。 这 就 引出 了 下 面 这 
个 检查 素数 的 算法 :对 于 给 定 的 整数 n ， 随 机 任 取 一 个 a<n 并 计算 出 a" 取 模 n 的 余数 。 如 果 得 
到 的 结果 不 等 于 a， 那 么 就 肯定 不 是 素数 。 如 果 它 就 是 4 ， 那 么 是 素数 的 机 会 就 很 大 。 现 在 
再 另 取 一 个 随机 的 a 并 采用 同样 方式 检查 。 如 果 它 满足 上 述 等 式 ， 那 么 我 们 就 能 对 n 是 素数 有 
更 大 的 信心 了 。 通 过 检查 越 来 越 多 的 s 值 ， 我 们 就 可 以 不 断 增 加 对 有 关 结 果 的 信心 。 这 一 算法 
称 为 费 马 检查 。 

为 了 实现 费 马 检查 ， 我 们 需要 有 一 个 过 程 来 计算 一 个 数 的 需 对 另 一 个 数 取 模 的 结果 : 


{define (expmod base exp m) 
(cond ((= exp 0) i) 
((even? exp) 
(remainder (square (expmod base (/ exp 2) m)) 
m) ) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
m)))) 
这 个 过 程 很 像 1.2.4 节 的 East-expt 过 程 ， 它 采用 连续 求 平方 的 方式 ， 使 相对 于 计算 中 指数 ， 
步 数 增长 的 阶 是 对 数 的 “。 
执行 费 马 检 查 需 要 选取 位 于 1 和 n 一 1 之 间 (包含 这 两 者 ) 的 数 4， 而 后 检查 a 的 n 次 器 取 模 n 
的 余数 是 否 等 于 e 。 随 机 数 & 的 选取 通过 过 程 random 完 成 ， 我 们 假定 它 已 经 包含 在 ?cheme 有 的 
基本 过 程 中 ， 它 返回 比 其 整数 输入 小 的 某 个 非 负 整数 。 这 样 ， 要 得 到 1 和 n 一 1 之 间 的 随机 数 ， 
只 需 用 输入 n 一 1 去 调用 random， 并 将 结果 加 1， 
(define (fermat-test n) 
(define (try-it a) 
(= (expmod a n n) 2)) 
(try-it (+ 1 (random (- n 1))))) 
下 面 这 个 过 程 的 参数 是 某 个 数 ， 它 将 按照 由 另 一 参数 给 定 的 次 数 运行 上 述 检查 MRE 
次 检查 都 成 功 ， 这 一 过 程 的 值 就 是 真 ， 否 则 就 是 假 : 
(define (fast-prime? n times) 
{cond ((= times 0) true) 


((fermat-test n) (fast-prime? n (- times 1))) 
(else false))) 


概率 方法 
从 特征 上 看 ， 费 马 检查 与 我 们 前 面 已 经 熟悉 的 算法 都 不 一 样 。 前 面 那些 算法 都 保证 计算 
的 结果 一 定 正 确 ， 而 费 马 检查 得 到 的 结果 则 只 有 概率 上 的 正确 性 。 说 得 更 准确 些 ， 如 果 数 "不 


4 对 于 指数 值 e 大 于 1 的 情况 ， 所 采用 归 约 方式 是 基于 下 面 事 实 : 对 任意 的 +-、y 和 m， 我们 总 可 以 通过 分 别 计算 x 
amiyn, MERCUR ERZEN, Aao R. Ai, ketek, RA R 
模 m 的 余数 ， 求 它 的 平方 ， 而 后 再 求 它 取 模 m 的 余数 。 这 种 技术 非常 有 用 ， 因 为 它 意味 着 我 们 的 计算 中 不 需要 
去 处 理 比 m 大 很 多 的 数 (请 与 练习 1.25 比 较 )、 


能 通过 费 马 检 查 ， 我 们 可 以 确信 它 一 定 不 是 素数 。 而 /通过 了 这 一 检查 的 事实 只 能 作为 它 是 素 
数 的 一 个 很 强 的 证 据 ， 但 却 不 是 对 为 素数 的 保证 。 我 们 能 说 的 是 ， 对 于 任何 数 x， 如 果 执 行 
这 一 检查 的 次 数 足 够 多 ， 而 且 看 到 "通过 了 检查 ， 那 么 就 能 使 这 一 素数 检查 出 错 的 概率 减 小 到 
所 需要 的 任意 程度 。 

不 幸 的 是 ， 这 一 断言 并 不 完全 正确 。 因为 确实 存在 着 一些 能 骗 过 费 马 检 查 的 整数 ， 某 些 
数 n 不 是 素数 但 却 具有 这 样 的 性 质 ， 对 任意 整数 a <n， 都 有 a” 与 4 模 n 同 余 。 由 于 这 种 数 极其 罕 
见 ， 因 此 费 马 检 查 在 实践 中 还 是 很 可 靠 的 ”。 也 存在 着 一 些 费 马 检 查 的 不 会 受骗 的 变形 ， 它 们 
也 像 费 马 方法 一 样 ， 在 检查 整数 nx 是 否 为 素数 时 ， 选 择 随机 的 整数 a <n 并 去 检查 某 些 依赖 于 n 
和 a 的 关系 (练习 1.28 是 这 类 检查 的 一 个 例子 )。 另 一 方面 ， 与 费 马 检 查 不 同 的 是 可 以 证 明 ， 
对 任意 的 数 n， 相 应 条 件 对 整数 a <n 中 的 大 部 分 都 不 成 立 ， 除 非 n 是 素数 。 这 样 ， 如 果 n 对 某 个 
随机 选 出 的 a 能 通过 检查 ，n 是 素数 的 机 会 就 大 于 一 半 。 如 果 n 对 两 个 随机 选择 的 a 能 通过 检查 ， 
n 是 素数 的 机 会 就 大 于 四 分 之 三 。 通 过 用 更 多 随机 选择 的 a 值 运行 这 一 检查 ， 我 们 可 以 使 出 现 
错误 的 概率 减 小 到 所 需要 的 任意 程度 。 | 

能 够 证 明 ， 存 在 着 使 这 样 的 出 错 机 会 达到 任意 小 的 检查 算法 ， 激 发 了 人 们 对 这 类 算法 的 
极 大 兴趣 ， 已 经 形成 了 人 所 共 知 称 为 概率 工法 的 领域 。 在 这 一 领域 中 已 经 有 了 大 量 研 究 工作 ， 
概率 算法 也 已 被 成 功 地 应 用 于 许多 重要 领域 “。 

练习 1.21 使 用 smallest-divisor 过 程 找 出 下 面 各 数 的 最 小 因子 : 199、1999 、19999 。 

练习 1.22 大 部 分 Lisp 实 现 都 包含 一 个 runtime 基 本 过 程 ， 调 用 它 将 返回 一 个 整数 ， 表 示 
系统 已 经 运行 的 时 间 (例如 ， 以 微 秒 计 )。 在 对 整数 x 调用 下 面 的 timed-prime-test 过 种 
时 ， 将 打印 出 z 并 检查 "是 否 为 素数 。 如 果 7 是 素数 ， 过 程 将 打印 出 三 个 星 号 ， 随 后 古 执 行 这 一 
检查 所 用 的 时 间 量 。 


(define (timed-prime-test n) 
(newline) 
(display n) 
(start-prime-test n (runtime) }) 


(define (start-prime-test n start-time) 
(if (prime? n) 
(report-prime (- (runtime) start—time)))) 


(define (report-prime elapsed-time) 
(display " *** ") 
(display elapsed-time) ) 


请 利用 这 一 过 程 写 一 个 search-Efor-primes 过 程 ， 它 检查 给 定 范围 内 连续 的 各 个 奇数 的 


4 能 够 骗 过 费 马 检查 的 数 称 为 Carmichael 数 ， 我 们 对 它们 知之 其 少 ， 只 知 其 非常 罕见 。 在 100 000 000 之 内 有 253 
个 Carmichael 数 ， 其 中 最 小 的 几 个 是 561 、1105 、1729、2465 、2821 和 6601 。 在 检查 很 大 的 数 是 否 为 素数 时 , 
所 用 选择 是 随机 的 。 撞 上 能 欺骗 费 马 检 查 的 值 的 机 会 比 字 宙 射线 导致 计算 机 在 执行 “正确 ”算法 中 出 错 的 机 
会 还 要 小 。 对 算法 只 考虑 第 一 个 因素 而 不 考虑 第 二 个 因素 恰好 表现 出 数学 与 工程 的 不 同 。 

4 概率 素数 检查 的 最 惊人 应 用 之 一 是 在 密码 学 的 领域 中 。 虽 然 完成 200 位 数 的 因数 分 解 现在 在 计算 上 还 是 不 现实 
的 ， 但 用 费 马 检查 却 可 以 在 几 秒 钟 内 判断 这 么 大 的 数 的 素性 。 这 一 事实 成 为 Rivest、Shamir 和 Adieman (1977 ) 
提出 的 一 种 构 志 “不 可 挫 筑 的 密码 ”的 技术 基础 ， 这 一 RSA 算 法 已 成 为 提高 电子 通信 安全 性 的 一 种 使 用 三 六 
的 技术 。 因 为 这 项 研究 和 其 他 相关 研究 的 发 展 ， 素 数 研究 这 一 曾 被 认为 是 “纯粹 ”数学 的 缩影 ， 是 仅仅 因为 
其 自身 原因 而 被 研究 的 课题 ， 现 在 已 经 变 成 在 密码 学 、 电 子 资 金 流通 和 信息 查询 领域 里 有 重要 实际 应 用 的 问 
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素性 。 请 用 你 的 过 程 找 出 大 于 1 000. A FIO 000, KF 100 000 和 大 于 1 000 000 的 三 个 最 小 
的 素数 。 请 注意 其 中 检查 每 个 素数 所 需要 的 时 间 。 因 为 这 一 检查 算法 具有 B(vyn) 的 增长 阶 ， 
你 可 以 期 望 在 10 000 附 近 的 素数 检查 的 耗 时 大 约 是 在 1 000 附 近 的 素数 检查 的 V10 倍 。 你 得 到 
的 数据 确实 如 此 吗 ? 对 于 100 000 和 1 000 000 得 到 的 数据 ， 对 这 一 Vn 预测 的 支持 情况 如 何 ? 
有 人 说 程序 在 你 的 机 器 上 运行 的 时 间 正 比 于 计算 所 需 的 步 数 ， 你 得 到 的 结果 符合 这 种 说 法 
练习 1.23 在 本 节 开 始 时 给 出 的 那个 smallest-divisor 过 程 做 了 许多 无 用 检查 : EE 
检查 了 一 个 数 是 否 能 被 2 整除 之 后 ,实际 上 已 经 完全 没 必 要 再 检查 它 是 否 能 被 任何 偶数 整除 了 。 
这 说 明 test-Qivisor 所 用 的 值 不 应 该 是 2，3，4，3，6，…， 而 应 该 是 2，3J，3$3，7，9，.…。 
请 实现 这 种 修改 。 其 中 应 定义 一 个 过 程 next ， 用 2 调用 时 它 返回 3， 人 否则 就 返回 其 输入 值 加 ec 。 
修改 smalLllest-Qivisor 过 程 ， 使 它 去 使 用 (next test-divisor) 而 不 是 (+test- 
divisor 1)。 让 timed-prime-test+t 结 合 这 个 Smallest-~divisor 版 本 ， 运 行 练习 1.22 
里 的 12 个 找 素数 的 测试 。 因 为 这 一 修改 使 检查 的 步 数 减少 一 半 ， 你 可 能 期 望 它 的 运行 速度 快 
一 倍 。 实 际 情况 符合 这 一 预期 吗 ? 如 果 不 符 合 ， 你 所 观察 到 的 两 个 算法 速度 的 比值 古人 什么 ? 
你 如 何 解 释 这 一 比值 不 是 “的 事实 ? | 

练习 1.24 ”修改 练习 1.22 的 timed-prime-test+t 过 程 ， 让 它 使 用 East-prime? ( 费 马 
方法 ) ， 并 检查 你 在 该 练习 中 找 出 的 12 个 素数 。 因 为 费 马 检查 具有 B(1og n 的 增长 速度 ， 对 
接近 1 000 000 的 素数 检查 与 接近 1000 的 素数 检查 作对 期 望 时 间 之 闻 的 比较 有 怎样 的 预期 ? 你 
的 数据 确实 表明 了 这 一 预期 吗 ? 你 能 解释 所 发 现 的 任何 不 符合 预期 的 地 方 吗 ? 

练习 1.25 Alyssa P. Hacker 提 出 ， 在 写 expmod 时 我 们 做 了 过 多 的 额外 工作 。 她 说 ， 年 竞 
我 们 已 经 知道 怎样 计算 乘 宕 ， 因 此 只 需要 向 单 地 写 : 


(define (expmod base exp m) 
(remainder (fast-expt base exp) m)) 


她 说 的 对 吗 ? 这 一 过 程 能 很 好 地 用 于 我 们 的 快速 素数 检查 程序 吗 ? 请 解释 这 些 问 题 。 
练习 1.26 Louis Reasoner 在 做 练习 1.24 时 遇 到 了 很 大 困难 ， 他 的 fast-prime? 检 查看 起 
来 运行 得 比 他 的 prime? 检 查 还 慢 。Louis 请 他 的 朋友 Eva Lu Ator 过 来 帮忙 。 在 检查 Louis 的 代 
码 时 ， 两 个 人 发 现 他 重 写 了 expmod 过 程 ， 其 中 用 了 一 个 显 式 的 乘法 ， 而 没有 调用 square: 
(define (expmod base exp m) 
(cond ((= exp 0) 1) 
((even? exp) 
(remainder (* (expmod base (/ exp 2) m) 
(expmod base (/ exp 2) m)) 
m)) 
(else | 
(remainder (* base (expmod base (~ exp 1) m)) 
| m)))) a | 
“我 看 不 出 来 这 会 造成 什么 不 同 ,”Louis 说 。“ 我 能 看 出 ,”Eva 说 ,“ 采 用 这 种 方式 写 出 该 过 程 
时 ， 你 就 把 一 个 B(log n) 的 计算 过 程 变 成 6(n) 的 了 。 请 解释 这 一 问题 。 
练习 1.27 “证明 脚注 47 中 列 出 的 Carmichael 数 确实 能 骗 过 费 马 检查 。 也 就 是 说 ， 写 一 个 过 
程 ， 它 以 整数 4 为 参数 ， 对 每 个 a <n 检 查 a" 是 否 与 4 模 n 同 余 。 用 你 的 过 程 去 检查 前 面 给 出 的 那 
ste armichael 2 。 | wo 
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练习 1.28 ” 费 马 检查 的 一 种 不 会 被 欺骗 的 变形 称 为 Miller-Rabin 检 查 (Miller 1976: Rabin 
1280 )， 它 来 源 于 费 马 小 定理 的 一 个 变形 。 这 一 变形 断言 ， 如 果 n 是 素数 ，a 是 任何 小 于 n 的 整 
数 ， 则 4 的 (n 一 1) 次 蜂 与 1 模 n 同 余 。 要 用 Miller-Rabin 检 查考 察 数 4 的 素性 ， 我 们 应 随机 地 取 一 
个 数 a <n 并 用 过 程 expmod 求 4 的 (n~ 1) RAM A. 然而 , 在 执行 expmod 中 的 平方 步骤 时 ， 
我 们 需要 查看 是 否 遇 到 了 “1 取 模 n 的 非 平 凡 平 方 根 ”"， 也 就 是 说 ， 是 不 是 存在 不 等 于 1 或 者 n 一 
1 的 数 ， 其 平方 取 模 n 等 于 1 。 可 以 证 明 ， 如 果 1 的 这 种 非 平凡 平方 根 存在 ， 那 么 n 就 不 是 素数 。 
还 可 以 证 明 ， 如 果 n 是 非 素 数 的 奇数 ， 那 么 ， 至 少 有 一 半 的 数 a <n ， 按 照 这 种 方式 计算 a"!， 
将 会 遇 到 1 取 模 n 的 非 平 几 平方 根 。 这 也 是 Miller-Rabin 检 查 不 会 受骗 的 原因 。 请 修改 expmod 
过 程 ， 让 它 在 发 现 1 的 非 平凡 平方 根 时 报告 失败 ， 并 利用 它 实 现 一 个 类 似 于 fermat-test 的 
过 程 ， 完 成 Miller-Rabin 检 查 。 通 过 检查 一 些 已 知 素数 和 非 素数 的 方式 考验 你 的 过 程 ， 提示 : 
送出 失败 信号 的 一 种 简单 方式 就 是 让 它 返 回 0。 


1.3 用 高 阶 函 数 做 抽象 


我 们 已 经 看 到 ， 在 作用 上 ， 过程 也 就 是 一 类 抽象 ， 它们 描述 了 一 些 对 于 数 的 复合 操作 ， 
但 又 并 不 依赖 于 特定 的 数 。 例 如 ， 在 定义 : 

(define (cube x) (* x x x)) 
时 ， 我 们 讨论 的 并 不 是 某 个 特定 数值 的 立方 ， 而 是 对 任意 的 数 得 到 其 立方 的 方法 。 当 然 ， 我 
们 也 完全 可 以 不 去 定义 这 一 过 程 ， 而 总 是 写 出 下 面 这 样 的 表达 式 : 

(* 3 3 3) 

(> x X X) 

(* Y Y y) : | | 
并 不 明确 地 提出 cube。 但 是 ， 这 样 做 将 把 自己 置 于 一 个 非常 糟糕 的 境地 ， 人 迫使 我 们 永远 在 语 
言 恰 好 提供 了 的 那些 特定 基本 操作 (例如 这 里 的 乘法 ) 的 层面 上 工作 ， 而 不 能 基于 更 高 级 的 
操作 去 工作 。 我 们 号 出 的 程序 也 能 计算 立方 ， 但 是 所 用 的 语言 却 不 能 表述 立方 这 一 概念 。 人 
们 对 功能 强大 的 程序 设计 语言 有 一 个 必然 要 求 ， 就 是 能 为 公共 的 模式 命名 ， 建 立 抽 象 ， 而 后 
直接 在 抽象 的 层次 上 工作 。 过 程 提 供 了 这 种 能 力 ， 这 也 是 为 什么 除 最 简单 的 程序 语言 外 ， 其 
他 语言 都 包含 定义 过 程 的 机 制 的 原因 。 

然而 ， 即 使 在 数值 计算 过 程 中 ， 如 果 将 过 程 限 制 为 只 能 以 数 作为 参数 ， 那 也 会 严重 地 限 
制 我 们 建立 抽象 的 能 力 。 经 常 有 一 些 同样 的 程序 设计 模式 能 用 于 若干 不 同 的 过 程 。 为 了 把 这 
种 模式 描述 为 相应 的 概念 ， 我 们 就 需要 构造 出 这 样 的 过 程 ， 让 它们 以 过 程 作 为 参数 ， 或 者 以 
过 程 作为 返回 值 。 这 类 能 操作 过 程 的 过 程 称 为 高 阶 过 程 。 本 节 将 展示 高 阶 过 程 如 何 能 成 为 强 
有 力 的 抽象 机 制 ， 极 大 地 增强 语言 的 表述 能 力 。 


1.3.1 过 程 作为 参数 
考虑 下 面 的 三 个 过 程 ， 第 一 个 计算 从 a 到 4b 的 各 整数 之 和 ; 


(define {sum-integers a b) 
(if (> a b) 
0 
(+ a (Sum-integers (+ a1) b)))) 


第 二 个 计算 给 定 范 围 内 的 整数 的 立方 之 和 : 


(define (sum-cubes a b) 
(if {> a b) 
0 
(+ (cube a) (sum-cubes (+ a 1) b)))) 


第 三 个 计算 下 面 的 序列 之 和 : 
1 l 1 


+ 一 -一 十 — + °:: 
13 5- 9-11 
它 将 (非常 缓慢 地 ) 收敛 ”到 rw8 : 
(define {pi-sum a b) 
(if (> a b) 
0 
(+ {/ 1.0 (* a (+ a 2))) (pi-sum (+ a 4) b)))) 


可 以 明显 看 出 ， 这 三 个 过 程 共享 着 一 种 公共 的 基础 模式 。 它 们 的 很 大 一 部 分 是 共同 的 ， 
只 在 所 用 的 过 程 名 字 上 不 一 样 : 用 于 从 a 算 出 需要 加 的 项 的 函数 ， 还 有 用 于 提供 下 一 个 a 值 的 
函数 。 我 们 可 以 通过 填充 下 面 模板 中 的 各 空位 ， 产 生出 上 面 的 各 个 过 程 : 


(define (<name> a D} 
(if (> a b) 
0 
(+ (<ferm> a) 
(<name> (<next> a) bB)))) 
Xo SSA EE PRR, WAKER kis FEA RA MMR, E 
那里 等 着 浮现 出 来 。 确 实 ， 数 学 家 很 早 就 认识 到 序列 求 和 中 的 抽象 模式 ， 并 提出 了 专门 的 
“ 求 和 记 法 ， 例 如 : 


Df) = flatt FCO) 


用 于 描述 这 一 概念 。 求 和 记 法 的 威力 在 于 它 使 数学 家 能 去 处 理 求 和 的 概念 本 身 ， 而 不 只 是 某 
个 特定 的 求 和 一 一 例如 ， 借 助 它 去 形式 化 某 些 并 不 依赖 于 特定 求 和 序列 的 求 和 结果 。 

与 此 类 似 ， 作 为 程序 模式 ， 我 们 也 希望 所 用 的 语言 足够 强大 ， 能 用 于 写 出 一 个 过 程 $ 
表述 求 和 的 概念 ， 而 不 是 只 能 写 计 算 特 定 求 和 的 过 程 。 我 们 确实 可 以 在 所 用 的 过 程 语 言 中 做 
到 这 些 ， 只 要 按照 上 面 给 出 的 模式 ， 将 其 中 的 “空位 ”翻译 为 形式 参数 : 


(define (sum term a next b) 
(if (> a b) 
0 
(+ (term a) 
(sum term (next a) next Bb))})) 


请 注意 ，sum 仍 然 以 作为 下 界 和 上 界 的 参数 a 和 Db 为 参数 ， 但 是 这 里 又 增加 了 过 程 参数 term 和 
next 。 使 用 sum 的 方式 与 其 他 函数 完全 一 样 。 例 如 ， 我 们 可 以 用 它 去 定义 Sum-cubes (还 
需要 一 个 过 程 inc ， 它 得 到 参数 值 加 一 ): 


o 这 一 序列 通常 被 写成 与 之 等 价 的 形式 4) =1- (1/3) + (1/5) 一 (1/77) +…。 这 归功 于 莱 布 尼 疾 。 我 们 
将 在 3.5.3 节 看 到 如何 用 它 作为 某 些 数值 技巧 的 基础 。 


(define (inc n) (+ n 1)) 
(define (sum-cubes a b) 
(sum cube a inc b}) 


我 们 可 以 用 这 个 过 程 算出 从 1 到 10 的 立方 和 : 


(sum-cubes 1 10) 
3025 


利用 一 个 恒 等 函数 帮助 算出 项 值 ， 我 们 就 可 以 基于 sum 定 义 出 sum-integers : 
{define (identity x) x) | 
(define (sum-integers a b) 
(sum identity a inc b)) 
而 后 就 可 以 求 出 从 1 到 10 的 整数 之 和 J 了: 


(sum-integers 1 10) 
55 


我 们 也 可 以 按 同样 方式 定义 Pi-~sum : 
(define (pi-sum a bD) 
| (define (pi-term x) 
(/ 1.0 (* x (+ x 2)))) 
(define (pi-next x) 
(+ x 4)) 
(sum pi-term a pi-next b)) 


利用 这 一 过 程 就 能 计算 出 的 一 个 近似 值 了 : 
(* 8 (pi-sum 1 1000)) 
3.139592655589783 


一 日 有 了 sum， 我 们 就 能 用 它 作为 基本 构件 ， 去 形式 化 其 他 概念 。 例 如 ， 求 出 函数 /在 范 
围 c 和 8 之 间 的 定 积分 的 近似 值 ， 可 以 用 下 面 公式 完成 
(, 9\ el dx\ ef dx\ ... 
fiat 5 +fila+dx+ > + fiat+2dx+ a) dx 


ff- pray pray 
其 中 的 dx 是 一 个 很 小 的 值 。 我 们 可 以 将 这 个 公式 直接 描述 为 一 个 过 程 : 


(define (integral f a b dx) 
{define (add-dx x) (+ x dx)) 
(* (sum f (+ a (/ dx 2.0)) add-dx b) 
dx) ) | 





(integral cube 0 1 0.01) 
-24998750000000042 


(integral cube 0 1 0.001) 
-249999875000001 


(cube 在 0 和 1 间 积 分 的 精确 值 是 L/4 ) 
练习 1.29 “辛普森 规则 是 另 一 种 比 上 面 所 用 规则 更 精确 的 数值 积分 方法 。 采 用 闻 闪 和 森 规 


0 注意 ， 我 们 已 经 用 (1.1.8 节 介绍 的 ) 块 结构 将 pi-next 和 Pi-tera 人 嵌入 pi-sum 内 部 ， 因 为 这 些 函 数 不 大 可 
能 用 于 其 他 地 方 。 我 们 将 在 1.3.2 节 说 明 如 何 完全 摆脱 这 种 定义 。 


0 HR 


则 ， 函 数 /在 范围 和 bp 之 间 的 定 积分 的 近似 值 是 ， 
Ay, + 4y, +2y, + 4y, HDI DI HAI HD] 


其 中 h =(b -a)/n，n 是 某 个 偶数 ， 而 ys =f(a Fkh) ( 增 大 n 能 提高 近似 值 的 精度 ) 。 请 定义 一 个 
具有 参数 /、a 、b 和 n ， 采 用 辛普森 规则 计算 并 返回 积分 值 的 过 程 。 用 你 的 函数 求 出 cube 在 0 
和 1 之 间 的 积分 (用 mn = 100 和 mn = 1000)， 并 将 得 到 的 值 与 上 面 用 integral 过 程 所 得 到 的 结果 
比较 。 

练习 1.30 ”上 面 的 过 程 sum 将 产生 出 一 个 线性 递归。 我 们 可 以 重 写 该 过 程 ， 使 之 能 够 迭代 
地 执行 。 请 说 明 应 该 怎样 通过 填充 下 面 定义 中 缺少 的 表达 式 ， 完 成 这 一 工作 。 


(define (sum term a next b) 
(define (iter a result) 
(if <??> 
<???> 
(iter <??> <??>))) 
(iter <??> <??>)) 
练习 1.31 a) 过 程 sum 是 可 以 用 高 阶 过 程 表示 的 大 量 类 似 抽象 中 最 简单 的 一 个 。 请 写 出 
一 个 类 似 的 称 为 product 的 过 程 ， 它 返回 在 给 定 范围 中 各 点 的 某 个 函数 值 的 乘积 。 请 说明 如 
何 用 product 定 义 Efactorial。 另 请 按照 下 面 公式 计算 r 的 近似 值 ”: 
m .4.4.6.6.8.…. 
4 3.3.5.5.7.7... | 
b) 如 果 你 的 product 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计算 过 
EEPE., WREEKT ERR E, A 写 一 个 生成 递归 计算 过 程 的 过 程 。 
练习 1.32 a) 请 说 HA, sum 和 product ( 练习 1.31 ) 都 是 男 一 一 称 为 accumulate 的 更 一 
般 概念 的 特殊 情况 ， accumulate 使 用 某 些 一 般 性 的 累积 函数 组 合 起 一 系列 项 


(accumulate combiner null-value term a next b) 


accumulate 取 的 是 与 sum 和 product 一 样 的 项 和 范围 措 述 参数 ， 再 加 上 一 个 (两 个 参数 的 ) 
combiner 过 程 ， 它 描述 如 何 将 当前 项 与 前 面 各 项 的 积累 结果 组 合 起 来 ， 另外 还 有 一 个 
null-value 参数， 它 描述 在 所 有 的 项 都 用 完 时 的 基本 值 . iA accumulate, 并 说 明 我 
们 能 怎样 基于 简单 地 调用 accumulate， 定 义 出 sum 和 product 来 。 

b) 如 果 你 的 accumuLate 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计 
算 过 程 的 过 程 。 如 果 它 生成 一 个 和 迭代 计算 过 程 ， 请 写 一 个 生成 递归 计算 过 程 的 过 程 。 

练习 1.33 你 可 以 通过 引进 一 个 处 理 被 组 合 项 的 过 滤器 (filter) 概念 ， 写 出 一 个 比 
accumulate (练习 1.32) 更 一 般 的 版 本 。 也 就 是 说 ， 在 计算 过 程 中 ， 只 组 合 起 由 给 定 范 转 
得 到 的 项 里 的 那些 满足 特定 条 件 的 项 。 这 样 得 到 的 filtered- “accumulate hha ius Li 4 


5 练习 1.31 ~1.33 RE EARM MEANA ER ARME RAAB, PRAM BARA E. we 
然 ， 虽 然 累积 和 过 滤器 都 是 很 优美 的 想法 ， 我 们 并 没有 急于 将 它们 用 在 这 里 ， 因 为 我 们 还 没有 数 据 结构 的 思 
想 ， 无 法 用 它们 去 提供 组 合 这 些 抽象 的 适当 手段 RM 将 在 2.2.3 节 回 到 这 些 思想 ， 那 时 将 说 明 如 何 用 序列 的 
概念 作为 界面 ， 组 合 起 过 滤器 和 累积 ， 去 构造 出 更 强大 得 多 的 抽象 。 我 们 将 在 那里 看 到 ， 这 些 方法 本 身 如 何 
能 成 为 设计 程序 的 强 有 力 而 又 非常 优美 的 途径 。 

?2 这 一 公式 是 由 17 世 纪 英 国 数学 家 John Wallis RIRI 


积 过 程 同样 的 参数 ， 再 加 上 一 个 另外 的 描述 有 关 过 滤器 的 谓词 参数 。 请 写 出 filtered- 
accumulate 作 为 一 个 过 程 ， 说 明 如 何 用 fi1ltered-~-accumulate 表 达 以 下 内 容 ， 

a) 求 出 在 区 间 4 到 b 中 所 有 素数 之 和 (假定 你 已 经 写 出 了 谓词 prime? ), 

b) 小 于 n 的 所 有 与 4 互 素 的 正 整 数 ( 即 所 有 满 吓 GCD(i, n) = 1 的 整数 i <n) 之 乘积 。 


1.3.2 用 lambda 构 造 过 程 


在 1.3.1 节 里 用 sum 了 时， 我 们 必须 定义 出 一 些 如 pi-term 和 pi~next 一 类 的 人 简单 钱 数 ， 以 
便 用 它们 作为 高 阶 函 数 的 参数 ， 这 种 做 法 看 起 来 很 不 舒服 。 如 果 不 需 要 显 式 定 义 pPi-term 和 
Pi-next ， 而 是 有 一 种 方法 去 直接 刻画 “那个 返回 其 输入 值 加 的 过 程 ” 和 “那个 返回 其 输 
入 与 它 加 2 的 乘积 的 倒数 的 过 程 ”， 事 情 就 会 方便 多 了 。 我 们 可 以 通过 引入 一 种 Lambda 特 殊 形 
式 完成 这 类 描述 ， 这 种 特殊 形式 能 够 创建 出 所 需要 的 过 程 。 利 用 Lambdqa， 我 们 就 能 按照 如 下 
方式 写 出 所 需 的 东西 : 

{lambda (x) (+ x 4)) 

和 a 
(lambda (x) (/ 1.0 (* x (+ x 2)))) 
这 样 就 可 以 直接 描述 pi-sum 过 程 ， 而 无 须 定义 任何 辅助 过 程 了 : 
(define (pi-sum a b) 
(sum (lambda (x) (/ 1.0 (* x (+ x 2)))) 
(lambda (x) (+ x 4)) 
b)) 
借助 于 Lambda， 我 们 也 可 以 写 出 integral 过 + 程 而 不 需要 定义 辅助 过 程 add- -dx: 


(define (integral f a b dx) 
(* (sum £ 
(+ a (/ dx 2.0)) 
(lambda (x) (+ x dx)) 
b) 
dx) ) 


一 般 而 言 ，Lambda 用 与 define 同 样 的 万 式 创建 过 程 ， 除了 不 为 有 关 过 程 提供 名 守之 SP 
(lambda (<formal “parameters> ) <body> ) 
这 样 得 到 的 过 程 与 通过 define 创建 的 过 程 完全 一 样 ， 仅 有 的 不 同 之 处 ， 就 是 这 种 过 程 没有 与 
mat NEA SARK. BRE, 


(define (plus4 x) (+ x 4)) 


等 价 于 
(define blus4 (lambda (x) (+ x 4))) 
我 们 可 以 按 如 下 方式 来 阅读 lambda 表 达 式 : 
{lambda (x) (+ x 4)) 
| to +t 1 | 


该 过 程 。 以 x 为 参数 它 加 起 x 和 4 
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像 任何 以 过 程 为 值 的 表达 式 一 样 ，Lambda 表 达 式 可 用 作 组 合式 的 运算 符 ， 例 如 


(({lambda (x y z) (+ x y (square z)}) 1 2 3) 


12 
或 者 更 一 般 些 ， 可 以 用 在 任何 通常 使 用 过 程 名 的 上 下 文中 ”。 
用 1et 创建 局 部 变量 


Lambda 的 另 一 个 应 用 是 创建 局 部 变量 。 在 一 个 过 程 里 ， 除 了 使 用 那些 已 经 约束 为 过 程 参 
” 数 的 变量 外 ， 我 们 常常 还 需要 另外 一 些 局 部 变量 。 例 如 ， 假 定 我 们 希望 计算 函数 ; 


f(x, y) =x +xy)’ +y —y) +1 +2xy)1 —y) © 


可 能 就 希望 将 它 表述 为 ， 
| a=] +xy 
b=1 -y 

f(x, y) =xa* + yb +ab 


在 写 计算 了 的 过 程 时 ， 我 们 可 能 希望 还 有 有 几 个 局 部 变量 ,不 止 是 x 和 y， 还 有 中 间 值 的 名 字 如 a 
和 b 。 做 到 这 些 的 一 种 方式 就 是 利用 辅助 过 程 去 约束 局 部 变量 : 


(define (f x y) 
(define (f-helper a b) 
(+ (* x (Square a))} 
(* y b) 
(* a b))) 
(f-helper (+ 1 (* x y)) 
(- 1 y))) 
当然 ， 我 们 也 可 以 用 一 个 Lambda 表 达 式 ， 用 以 摘 述 约束 局 部 变量 的 匿名 过 程 xt, f 
的 体 就 变 成 了 一 个 简单 的 对 该 过 程 的 调用 ， 
(define (f x y) 
((lambda (a b) 
(+ (* x (Square a)) 
(* y b) 
(* a b))) 
(+ 1 (* x y)) 
(~ 1 y))) 
X—-GRMIERAA, AL, Ea EA AE RREA RA let, EPRE AENA 
便 。 利 用 let ， 过 程 上 可 以 写 为 : 7 
(define (f x y) 
(let ((a (+ 1 (* x y))) 
(b (~ 1 y))) 
(+ (* x (Square a)) 
(* y b) 
(* a Db)))) 


5 对 于 学 习 Lisp 的 人 而 言 ， 如 果 用 一 个 比 Lambda 更 明确 的 名 字 ， 如 make-procedure ， 可 能 会 觉得 更 清楚 。 
但 是 习惯 成 自然 ， 这 一 记 法 形式 取 自 人 演算 ， 那 是 由 数理 逻辑 学 家 丘 奇 (Alonzo Church 1941) 引进 的 一 种 数 
学 记 法 ， 为 研究 函数 和 函数 应 用 提供 一 个 严格 的 基础 。 和 演算 已 经 成 为 程序 设计 语言 语义 的 数学 基石 。- 
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let 表 达 式 的 一 般 形式 是 : 
(let ((<var,> <exp,>) 
(<var,> <exp2> ) 


(<var,> <exp,>) ) 
<body>) 
可 以 将 它 读 作 : 
令 <vari> 具有 值 <expi> 而 且 
<var,> 具有 值 <exp.> 而 且 


<var,> 具有 值 <exp,> 


在 <body> 中 
let 表达 式 的 第 一 部 分 是 个 名 字 - 表 达 式 对 偶 的 表 ， 当 let 被 求 值 时 ， 这 里 的 每 个 名 字 将 被 天 


联 于 对 应 表达 式 的 值 。 在 将 这 些 名 字 约 束 为 局 部 变量 的 情况 下 求 值 1et 的 体 。 这 一 做 法 正好 
使 let 表 达 式 被 解释 为 赫 代 如 下 表达 式 的 另 一 种 语法 形式 : 


( (lambda (<yvari> ...<var,>) 
<body> ) 
SEXP1>> 


<exp,> ) 


这 样 ， 解 释 器 里 就 不 需要 为 提供 局 部 变量 增加 任何 新 机 制 。let 表 达 式 只 是 作为 其 基础 的 
1ambdqa 表 达 式 的 语法 外 衣 罢 了 。 
根据 这 一 等 价 关系 ， 我 们 可 以 认为 ， 由 1et 表 达 式 描述 的 变量 的 作用 域 就 是 该 let 的 体 ， 


这 也 意味 着 : 
. let 使 人 能 在 尽 可 能 接近 其 使 用 的 地 方 建立 局 部 变量 约束 。 例 如 ， 如 果 x 的 值 是 5 ， 下 面 


(+ (let ((x 3)) 
(+ x (* x 10))) 


X) 


水 是 38。 在 这 里 ， 位 于 let 体 里 的 x 是 3， 因 此 这 一 let 表 达 式 的 值 是 33。 另 一 方面 ， 作 


M 


为 最 外 野 的 + 的 第 二 个 参数 的 X 仍 然 是 > 。 
. 恋 量 的 值 是 在 let 之 外 计算 的 。 在 为 局 部 变量 提供 值 的 表达 式 依赖 于 某 些 与 局 部 变量 同 


名 的 变量 时 ， 这 一 规定 就 起 作用 了 。 例 如 ， 如 果 X 的 值 超 ^， 表达 式 : 
(let ((x 3) 
| (y (+ x 2))) 
(* x y)) 


将 具有 值 12， 因 为 在 这 里 Let 的 体 里 ，x 将 是 3 而 y 是 4 (其 值 是 外 面 的 x 加 2)。 
有 时 我 们 也 可 以 通过 内 部 定义 得 到 let AFAR. Plana CLI EAE MA: 


(define (f x y) 
(define a (+ 1 (* x y))) 


(define b (- 1 y)) 


HRT R 


(+ (* x (Square a)) 
(* y b) 
(* a b))) | 
当然 ， 在 这 种 情况 下 我 们 更 愿意 用 let ， 而 仅 将 aefine 用 于 内 部 过 程 ?。 
练习 1.34 假定 我 们 定义 了 : 
(define (f g) 
(g 2)) 
ae A : 
(f square) 


4 


(f (lambda (z) (* z (+ z 1)))) 
6 


如 果 我 们 (坚持 ) 要 求解 释 器 去 求 值 (E 上 )， 那 会 发 生 什么 情况 呢 ? 请 给 出 解释 。 
1.3.3 过 程 作为 一 般 性 的 方法 


我 们 在 1.1.4 节 里 介绍 了 复合 过 程 ， 是 为 了 作为 一 种 将 若干 操作 的 模式 抽象 出 来 的 机 制 ， 
使 所 描述 的 计算 不 再 依赖 于 所 涉及 的 特定 的 数值 。 有 了 高 阶 过 程 ， 例 如 1.3.1 市 的 jntegral 过 
程 ， 我 们 开始 看 到 一 种 威力 更 强大 的 抽象 ， 它 们 也 是 一 类 方法 ， 可 用 于 表述 计算 的 一 般 性 过 
程 ， 与 其 中 所 涉及 的 特定 函数 无 关 。 本 节 将 讨论 两 个 更 精细 的 实例 一 一 找 出 函数 零点 和 不 动 所 
的 一 般 性 方法 ， 并 说 明 如 何 通过 过 程 去 直接 描述 这 些 方法 。 

通过 区 间 折 半 寻 找 方程 的 根 

区 间 折 半 方 法 是 寻找 方程 f(x) =0 根 的 一 种 简单 而 又 强 有 力 的 方法 ， 这 里 的 f 是 一 个 连续 
函数 。 这 种 方法 的 基本 想法 是 ， 如 果 对 于 给 定点 a 和 b5 有 fa)<0<Ab)， 那 么 f 在 4a 和 5b 之 间 必 然 
有 一 个 零点 ， 为 了 确定 这 个 零点 ， 令 x 是 a 和 5 的 平均 值 并 计算 出 Kx)。 如 果 Ax) >0， 那 么 在 a 
和 x 之 间 必 然 有 的 一 个 f 的 零点 ， 如 果 fx) <0， 那 么 在 x 和 b 之 同 必 然 有 的 一 个 了 ISR. ABR 
这 样 做 下 去 ， 就 能 确定 出 越 来 越 小 的 区 间 ， 且 保证 在 其 中 必然 有 /的 一 个 零点 。 当 区 间 “ 足 
够 小 ”时 ， 就 结束 这 一 计算 过 程 了 。 因 为 这 种 不 确定 的 区 间 在 计算 过 程 的 每 一 步 都 缩小 一 半 ， 
所 需 步 数 的 增长 将 是 B(log(L/T))， 其 中 是 区 间 的 初始 长 度 ,，T 了 是 可 容 恕 的 误差 ( 即 认 为 “ 足 
够 小 ”的 区 间 的 大 小 )。 下 面 是 一 个 实现 了 这 一 策略 的 过 程 : 

{define (search f neg-point pos-point) 

(let ( (midpoint (average neg- point pos-point))) 
(if (close-enough? neg- point pos-point) 
midpoint 
(let ((test-value (f midpoint))) 
(cond ({positive? test-value) 


(search f neg-point midpoint) ) ) 
((negative? test-value) 


4 要 很 好 地 理解 内 部 定义 ， 保 证 一 个 程序 的 意义 确实 是 我 们 所 希望 的 那个 意义 ， 实 际 上 要 求 另 一 个 比 我 们 在 本 
章 给 出 的 求 值 计算 过 程 更 精细 的 模型 。 然而 这 一 难以 捉摸 的 问题 不 会 出 现在 过 程 由 部 定义 方面 。 我 们 将 在 对 
求 值 有 了 更 多 理解 之 后 ， 在 4.1.6 节 回 到 这 一 问题 。 


Ta 2, o ü ā B 


(search f midpoint pos-point) ) 
(else midpoint ) ) ) ) )) | 
假定 开始 时 给 定 了 函数 f， 以 及 使 它 取 值 为 负 和 为 正 的 两 个 点 。 我 们 首先 算出 两 个 给 定点 
的 中 点 ， 而 后 检查 给 定 区 间 是 否 已 经 足够 小 。 如 果 是 的 话 ， 就 返回 这 一 中 所 的 值 作为 回答 ， 
否则 就 算出 了 在 这 个 中 点 的 值 。 如 果 检 查 发 现 得 到 的 这 个 值 为 正 ， 那 么 就 以 从 原来 负 扩 到 中 
点 的 新 区 间 继续 下 去 ， 如 果 这 个 值 为 负 ， 就 以 中 点 到 原来 为 正 的 点 为 新 区 间 并 继续 下 去 。 还 
有 ， 也 存在 着 检测 值 恰好 为 0 的 可 能 性 ， 这 时 中 点 就 是 我 们 所 寻找 的 根 。 
为 了 检查 两 个 端点 是 否 “ 足 够 接近 ”， 我 们 可 以 用 一 个 过 程 ， 它 与 1.1.7 市 计算 平方 根 时 所 
用 的 那个 过 程 很 类 似 ”: 
(define (close-enough? x y) 
(< (abs (- x y)) 0.001)) 
search 很 难 直 接 去 用 ， 因 为 我 们 可 能 会 偶然 地 给 了 它 一 对 点 ， 相 应 的 卫 值 并 不 具有 这 个 
过 程 所 需 的 正 负 号 ， 这 时 就 会 得 到 错误 的 结果 。 让 我 们 换 一 种 方式 ， 通 过 下 面 的 过 程 去 用 
search， 这 一 过 程 检查 是 否 某 个 点 具有 负 的 函数 值 ， 另 一 个 点 是 正 值 ， 并 根据 具体 情况 去 调 
用 seazch 过 程 。 如 朱 这 一 函数 在 两 个 给 定点 的 值 同 ， 那么 就 无 法 使 用 折 半 方法 ， 在 这 种 情 


况 下 过 程 发 出 错误 信号 ”。 


(define (half-interval-method f a b) 
{let ((a-value (f a)) 
(b-value (f D))) 
(cond ({and (negative? a-value) (positive? b-value)) 

(search f a b)) 

( (and (negative? b- value) (positive? a-value)) 
(search f b a}) | 

(else . . 
(error "Values are not of opposite sign" a b))))) 


下 面 实例 用 折 半 方法 求 x 的 近似 值 ， 它 正好 是 sin x =0 在 2 和 4 之 间 的 根 : 


(half-interval-method sin 2.0 4.0) 


3.14111328125 

这 里 是 另 一 个 例子 ， 用 折 半 方法 找 出 如 -2 一 3=0 在 1 和 2 之 间 的 根 : 

(half- -interval-method | (lambda (x) (- (* x x x) (* 2 x) 3)) 
2.0) 


1.89306640625 


HHE RA a 
数 x 称 为 函数 S 的 不 动 点 ， 如 果 x 满 足 方程 1(X) =x. 对 于 某 些 函 数 ， 通过 从 某 个 初始 猜测 
出 发 ， 反 复 地 应 用 f 
fx), FED FFF), ..- 


55 这 里 用 0.001 作 为 示意 性 的 “小 ” 数 ， 表 示 计 算 中 可 以 接受 的 容许 误差 。 实 际 计算 中 所 适用 的 容许 误差 依赖 于 
被 求解 的 问题 ， 以 及 计算 机 和 算法 的 限制。 这 一 问题 常常 需要 很 细节 的 考虑 ， 需要 数值 专家 或 者 其 些 其 他 关 


型 术士 们 的 帮助 。 
用 error 可 以 完成 此 事 ， 读 过 程 以 几 个 项 作为 参数 ， 将 它们 打印 出 来 作为 出 错 信息 。 
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直到 值 的 变化 不 大 时 ， 就 可 以 找到 它 的 一 个 不 动 点 。 根 据 这 个 思路 ， 我 们 可 以 设计 出 一 
程 Eixed~point ， 它 以 一 个 阔 数 和 一 个 初始 猜测 为 参数 ， 产 生出 该 函数 的 一 个 不 动 点 的 近似 
值 。 我 们 将 反复 应 用 这 个 函数 ， 直 至 发 现 连 续 的 两 个 值 之 差 小 于 某 个 事先 给 定 的 容许 值 : 
(define tolerance 0.00001) 
(define (fixed-point f first-guess) 
(define (close-enough? vl v2) 
(< (abs (- vl v2)}) tolerance} ) 
(define (try guess) 
(let ((next (f guess))) 
(if (close-enough? guess next) 
next 
(try next)))) 
(try first- -guess ) ) 


例如 ， 下 面 用 这 一 方法 求 出 的 是 余弦 函数 的 不 动 扩 ， 其 中 用 1 作为 初始 近似 值 ”: 


(fixed-point cos 1.0) 
. 7390822985224023 


类 似 地 ， 我 们 也 可 以 找 出 方程 y = sin y +cos y 的 一 个 解 : 

(fixed-point (lambda (y) (+ (sin y) (cos y))) 

1.0) 

1.2587315962971173 

这 一 不 动 点 的 计算 过 程 使 人 回忆 起 1.1.7 节 里 用 于 找平 方 根 的 计算 过 程 。 两 者 都 是 基于 同 
样 的 想法 :通过 不 断 地 改进 猜测 ， 直 至 结果 满足 某 一 评价 准则 为 止 。 事 实 上 ， 我 们 完全 可 以 
将 平方 根 的 计算 形式 化 为 一 个 寻找 不 动 点 的 计算 过 程 。 计 算 某 个 数 x 的 平方 根 ， 就 是 要 找到 一 
个 y 使 得 y? =x。 将 这 一 等 式 变 成 另 一 个 等 价 形 式 y》 =xy ， 就 可 以 发 现 ， 这 里 要 做 的 就 是 寻找 函 
By PX/y 的 不 动 点 ”。 因 此 ， 可 以 用 下 面 方式 试 着 去 计算 平方 根 : 

(define (sqrt x) | 

(fixed-point (lambda (y) {/ x y)) 
1.0)) 

ft HE. KX —-RMAARBSHTAR. SBR ORM. PTR Ey =X/y1， 
而 再 下 一 个 猜测 是 y3 =X/yz =X/(x/y1) =y1。 结 果 是 进入 了 一 个 无 限 循 环 ， 其 中 没完 没 了 地 反复 
出 现 两 个 猜测 y, 和 y ， 在 答案 的 两 边 往 复 振荡 。 

控制 这 类 振荡 的 一 种 方法 是 不 让 有 关 的 猜测 变化 太 剧 烈 。 因 为 实际 答案 总 是 在 两 个 猪 测 y 
和 x/y 之 间 ， 我 们 可 以 做 出 一 个 猜测 ， 使 之 不 像 xy 那 样 远离 7 ， 为 此 可 以 用 y 和 x/y 的 平均 值 。 这 
样 ， 我 们 就 取 y 之 后 的 下 一 个 猜测 值 为 (1/2)0 +x) 而 不 是 zy 。 做 出 这 种 猜测 序列 的 计算 过 程 
也 就 是 搜寻 y A/O +x/y) 的 不 动 扩 : 


(define (sqrt x) 
(fixed-point (lambda (y) (average y (/ x y))) 
1.0)) 


` TR EEN WE RR FEER: FHR BO it Bk ah i EA ERA, 而 后 反复 按 c0s 键 直至 你 得 到 了 这 一 不 


动 点 。 
iy ( 读 作 “映射 到 ”) 是 数学 家 写 Iambda 的 方式 ，》F?xz/y 的 意思 就 是 (lambda (y) (/ x y)), Pee. 


那个 在 y 处 的 值 为 xy 的 函数 。 六 


(请 注意 ，y =(1/2)0 +x) 是 方程 y =x/y 经 过 简单 变换 的 结果 ， 导 出 它 的 方式 是 在 方程 两 边 都 
加 y， 然 后 将 两 边 都 除 以 2 。) 

经 过 这 一 修改 ， 平 方 根 过 程 就 能 正常 工作 了 。 事 实 上 ， 如 果 我 们 仔细 分 析 这 一 定义 ， 那 
么 就 可 以 看 到 ， 它 在 求 平方 根 时 产生 的 近似 值 序列 ， 正 好 就 是 1.1.7 布 原来 那个 求 平方 根 过 程 
产生 的 序列 。 这 种 取 有 逼 进 一 个 解 的 一 系列 值 的 平均 值 的 方法 ， 是 一 BORAT A EER , 
它 常常 用 在 不 动 点 搜寻 中 EAR SH FE. 

练习 1.35 “请 证 明黄 金 分 割 率 内 《1.2.2< 节 ) 是 变换 tS1 41/x 的 不 动 点 ， 请 利用 这 一 事实 ， 
通过 过 程 Eixed-pPoint 计 算出 多 的 值 。 

练习 1.36 ”请 修改 fixed-point ， 使 它 能 打印 出 计算 中 产生 的 近似 值 序列 ， 用 练习 1.22 
展示 的 newLine 和 disp1lay 基 本 过 程 。 而 后 通过 找 出 x Flog(1000)/logCo) 的 不 动 点 的 方式 ， 
wax = 1000 的 一 个 根 (请 利用 Scheme 的 基本 过 程 1og， 它 计算 自然 对 数值 ) 。 请 比较 一 下 采 
用 平均 阻尼 和 不 用 平均 阻尼 时 的 计算 步 数 。 (注意 ， 你 不 能 用 猜测 1 去 启动 fixed-Point， 
因为 这 将 导致 除 以 log(1) =0。) / | 

练习 1.37 a) 一 个 无 穷 连 分 式 是 一 个 如 下 形式 的 表达 式 : 





D, 十 … 


作为 一 个 例子 ， 我 们 可 以 证 明 在 所 有 的 Ni 和 Di 都 等 于 1 时 ， 这 一 无 穷 连 分 式 产生 出 Mb， 其 中 的 
4 就 是 黄金 分 割 率 〈 见 1.2.2 节 的 描述 )。 逼 进 某 个 无 穷 连 分 式 的 一 种 方法 是 在 给 定数 目的 项 之 
后 截断 ， 这 样 的 一 个 截断 称 为 k 项 有 限 连 分 式 ， 其 形式 是 : 





假定 n 和 d 都 是 只 有 一 个 参数 (项 的 下 标 i) 的 过 程 ， 它 们 分 别 返 回 连 分 式 的 项 N 和 Pi。 请 定义 
-个 过 程 cont-frac， 使 得 对 (cont-frac n d k) 的 求 值 计算 出 kK 项 有 限 连 分 式 的 值 。 
通过 如 下 调用 检查 你 的 过 程 对 于 顺序 的 K 值 是 否 逼 进 !/g， 
(cont-frac (lambda (i) 1.0) 
(lambda (i) 1.0) 
k) 
你 需要 取 多 大 的 k 才 能 保证 得 到 的 近似 值 具有 十 进 制 的 4 位 精度 ? 
b) 如 果 你 的 过 程 产 生 一 个 递归 计算 过 程 ， 那 么 请 写 另 一 个 产生 和 迭代 计算 的 过 程 。 如 条 它 
产生 迭代 计算 ， 请 写 出 另 一 个 过 程 ， 使 之 产生 一 个 递归 计算 过 程 。 | 
练习 1.38 761737 ,瑞士 数学 家 莱 昂 哈 德 : 欧 拉 发 表 了 一 篇 论文 De Fractionibus Continuis , 
文中 包含 了 Te 一 2 的 一 个 连 分 式 展开 ， 其 中 的 e 是 自然 对 数 的 底 。 在 这 一 分 式 中 ， NN, 全 都 是 1 ， 
而 D; 依 次 为 1 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, …。 请 写 出 一 个 程序 ， 其 中 使 用 你 在 练习 1.37 中 所 做 的 
cont-frac 过 程 ， 并 能 基于 欧 拉 的 展开 式 求 出 e 的 近似 值 。 
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练习 1.39 ”正切 函数 的 连 分 式 表示 由 德国 数学 家 J.H. Lambert 在 1770 年 发 表 : 


x 
fan x = 一 一 一 








其 中 的 z 用 弧度 表示 。 请 定义 过 程 (tan-cf x k)， 它 基于 Lambert 公 式 计算 正切 函数 的 近似 
值 。k 描 述 的 是 计算 的 项 数 ， 就 像 练习 1.37 一 样 。 


1.3.4 过 程 作为 返回 值 


上 面 的 例子 说 明 ， 将 过 程 作为 参数 传递 ， 能 够 显著 增强 我 们 的 程序 设计 语言 的 表达 能 力 。 
通过 创建 另 一 种 其 返回 值 本 身 也 是 过 程 的 过 程 ， 我 们 还 能 得 到 进一步 的 表达 能 力 。 

我 们 将 阐释 这 一 思想 ， 现 在 还 是 先 来 看 1.3.3 节 最 后 描述 的 不 动 点 例子 。 在 那里 我 们 构造 
出 一 个 平方 根 程序 的 新 版 本 ， 它 将 这 一 计算 看 作 一 种 不 动 点 搜寻 过 程 。 开 始 时 ， 我 们 注意 
到 x 就 是 函数 y Px/y 的 不 动 点 ， 而 后 又 利用 平均 阻尼 使 这 一 允 进 收敛 。 平 均 阻 尼 本 身 也 是 一 
种 很 有 用 的 一 般 性 技术 。 很 自然 ， 给 定 了 一 个 函数 之后， 我 们 就 可 以 考虑 另 一 个 函数 ， 它 
在 x 处 的 值 等 于 x 和 f(x) 的 平均 值 。 

我 们 可 以 将 平均 阻尼 的 思想 表述 为 下 面 的 过 程 : 


(define (average-damp f) l 
(lambda (x) (average x (f x)))) 


这 里 的 average-damp 是 一 个 过 程 ， 它 的 参数 是 一 个 过 程 f， 返回 值 是 另 一 个 过 程 (通过 
lambda 产 生 ) ， 当 我 们 将 这 一 返回 值 过 程 应 用 于 数 x 时 ， 得 到 的 将 是 x 和 (£f x) 的 平均 值 。 
例如 ， 将 average-damp 应 用 于 square 过 程 ， 就 会 产生 出 另 一 个 过 程 ， 它 在 数值 x 处 的 值 就 
是 x 和 刀 的 平均 值 。 将 这 样 得 到 的 过 程 应 用 于 10 ， 将 返回 10 与 100 的 平均 值 55”: 


((average~damp square) 10) 
55 


利用 average-damp ， 我 们 可 A A 面 的 平方 根 过 程 如 下 : 


(define (sqrt x) 
(fixed-point. (average-damp (lambda (y) (/ x y))) 
1.0)) 


清 注意 ,看 看 上 面 这 一 公式 中 怎样 把 三 种 思想 结合 在 同一 个 方法 里 :不 动 点 搜寻 ， 平 均 阻尼 
和 函数 y x/y 。 拿 这 一 平方 根 计算 的 过 程 与 1.1.7 节 给 出 的 原来 版 本 做 一 个 比较 ， 将 是 很 有 孝 
益 的 。 请 记 住 ， 这 些 过 程 表述 的 是 同一 计算 过 程 ， 也 应 注意 ， 当 我 们 利用 这 些 抽象 描述 该 计 
算 过 程 时 ， 其 中 的 想法 如 何 变 得 更 加 清晰 了 。 将 一 个 计算 过 程 形式 化 为 一 个 过 程 ， 一 般 说 ， 
存在 很 多 不 同 的 方式 ， 有 经 验 的 程序 员 知道 如 何 选择 过 程 的 形式 ， 使 其 特别 地 清晰 且 易 理解 ， 
使 该 计算 过 程 中 有 用 的 元 素 能 表现 为 一 些 相互 分 离 的 个 体 ， 并 使 它们 还 可 能 重新 用 于 其 他 的 
应 用 。 作 为 重用 的 一 个 简单 实例 ， 请 注意 x 的 立方 根 是 函数 y x/ 的 不 动 点 ， 因 此 我 们 可 以 立 


9 请 注音 看， 这 就 是 一 个 其 中 的 运算 符 本 身 也 是 一 个 组 合式 的 组 合式。 练习 1.4 已 经 益 释 了 描述 这 种 形式 的 组 合 
式 的 能 力 ， 但 那里 用 的 是 一 个 玩具 例子 。 在 这 里 可 以 看 到 ， 在 应 用 一 个 作为 商 阶 函数 的 返回 值 而 得 到 的 函数 
时 ， 我 们 确实 需要 这 种 形式 的 组 合式 。 


刻 将 前 面 的 平方 根 过 程 推广 为 一 个 提取 立方 根 的 过 程 ”: 
(define (cube-root x) 
(fixed-point (average-damp {lambda (y) (/ x (square y)))) 
1.0) ) 


牛顿 法 
在 1.1.7 节 介绍 平方 根 过 程 时 曾经 提 和 到 牛顿 法 的 一 个 特殊 情况 。 如 果 x g(x) 是 一 个 可 微 
函数 ， 那 么 方程 g(x) =0 的 一 个 解 就 是 函数 xh> f(x) 的 一 个 不 动 点 ， 其 中 


8x) 
Dg(x) 


这 里 的 Dg(x) 是 8 对 x 的 导数 。 牛 顿 法 就 是 使 用 我 们 前 面 看 到 的 不 动 点 方法 ， 通 过 搜寻 函数 了 的 
不 动 点 的 方式 ， 去 到 近 上 述 方程 的 解 !1。 对 于 许多 限 数 ， 以 及 充分 好 的 初始 猜测 x， 牛 顿 法 都 
能 很 快 收敛 到 g(x) =0 的 一 个 解 “。 

为 了 将 牛顿 方法 实现 为 一 个 过 程 ， 我 们 首先 必 须 描述 导数 的 思 相 1, WER, “导数 ”不 像 
平均 阻尼 ， 它 是 从 函数 到 函数 的 一 种 变换 。 例 如 ， 函 数 x 忆 六 的 导数 是 另 一 个 国 数 x e 3x’, 
一 般 而 言 ， 如 果 g 是 一 个 函数 而 YY 是 一 个 很 小 的 数 ， 那 么 g 的 导数 在 任 一 数值 x 的 值 由 下 面 函数 
(作为 很 小 的 数 dx 的 极限 ) 给 出 : 


f(x)=x- 


g(x + dx) — g(x) 
dx 


这 样 ， 我 们 就 可 以 用 下 面 过 程 描述 导数 的 概念 〈 例 如 取 dx 为 0.00001 ) ; 

(define (deriv g) 

(lambda (x) 
(/ (- (g (+ x dx)) (g X)) 
dx) ) ) 

再 加 上 定义 : 

(define dx 0.00001) 

与 average-damp 一 样 ，dqeriv 也 是 一 个 以 过 程 为 参数 ， 并 且 返 回 一 个 过 程 值 的 过 程 。 
例如 ， 为 了 求 出 函数 x_Fy 妇 在 5 的 导数 的 近似 值 (其 精确 值 为 75) ， 我 们 可 以 求 值 : 


(define (cube x) (* X X X})) 


Dg(x) = 


( (deriv cube) 5) 
75. 00014393664018 


有 了 deriv 之 后 ， 和 牛顿 法 就 可 以 表述 为 一 个 求 不 动 点 的 过 程 了 : 


(define (newton-transform g) 
(lambda (x) 
(- x (/ (g x) ({deriv g) x))))) 


© 进一步 推广 参见 练习 1.4> 。 

6 基础 微 积分 书籍 中 通常 将 牛顿 法 描述 为 逼 进 序列 Xn 11 = Xn 8n) DEn) 。 有 了 能 够 描述 计算 过 程 的 语言， $ 
用 了 不 动 点 的 思想 ， 这 一 方法 的 描述 也 得 到 了 简化 。 

92 牛顿 法 并 不 保证 能 收敛 到 一 个 答案 。 我 们 还 可 以 证 明 ,. 在 顺利 的 情况 下 ， i A AE MAAN AA 
字 位 数 加 倍 。 在 处 理 这些 情 况 时 ， 牛 顿 法 将 比 折 半 法 的 收敛 速度 快 得 多 。 


(define (newtons-method g guess) 
(fixed-point (newton-transform g) guess) ) 


newton-transform 过 程 描 述 的 就 是 在 本 市 开始 处 的 公式 ， 基 于 它 去 定义 newtons- 
method 已 经 很 容易 了 。 这 一 过 程 以 一 个 过 程 为 参数 ， 它 计算 有 的 就 是 我 们 希望 去 找到 零 扣 的 函 
数 ， 这 里 还 需要 给 出 一 个 初始 猜测 。 例 如 ， 为 确定 x 的 平方 根 ， 可 以 用 初始 猜测 1 ， 通 过 牛顿 
BIR ABO 忆 一 * 的 零点 ”。 这 样 就 给 出 了 求 平方 根 沙 数 的 另 一 种 形式 : 
(define (sqrt x) 
(newtons-method (lambda (y) (- (square y) x)) 
1.0)) 


抽象 和 第 一 级 过 程 

上 面 我 们 已 经 看 到 用 两 种 方式 ， 它们 都 能 将 平方 根 计算 表述 术 为 某 种 更 一 般 方法 的 实例 ， 
一 个 是 作为 不 动 点 搜寻 过 程 ， 另 一 个 是 使 用 牛顿 法 。 因 为 牛顿 法 本 身 表述 有 的 也 古 一 个 不 动 扩 
的 计算 过 程 ， 所 以 我 们 实际 上 看 到 了 将 平方 根 计 算 作为 不 动 点 的 两 种 形式 。 每 种 方法 都 是 从 
一 个 函数 出 发 ， 找 出 这 一 函数 在 某 种 变换 下 的 不 动 点 。 我 们 可 以 将 这 一 具有 普遍 性 的 思想 表 
述 为 一 个 铺 数 : | | 

(define (fixed-point-of-transform g transform guess) 

(fixed-point (transform g) guess) ) 


这 个 非常 具有 一 般 性 的 过 程 有 一 个 计算 某 个 函数 的 过 程 参数 g ， 一 个 变换 9 的 过 程 ， 和 一 个 初 
始 猿 测 ， 它 返回 经 过 这 一 变换 后 的 函数 的 不 动 扩 。 

我 们 可 以 利用 这 一 抽象 重新 塑造 本 节 的 第 一 个 平方 根 计算 (搜寻 y > BEE SIE PD 
不 动 点 ) ， 以 它 作 为 这 个 一 般 性 方法 的 实例 ; 


(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (/ x y)) 
average-damp 
1.0)) | 
与 此 类 似 ， 我 们 也 可 以 将 本 节 的 第 二 个 平方 根 计算 (是 用 牛顿 法 搜寻 O y -2x 的 牛顿 变换 的 
实例 ) 重新 描述 为 ; 
(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (- (square y) X)) 
newton-transform 
1.0)) 


我 们 在 1.3 节 开始 时 研究 复合 过 程 ， 并 将 其 作为 一 种 至 关 重 要 的 抽象 机 制 ， 因 为 它 使 我 们 
能 将 一 般 性 的 计算 方法 ， 用 这 一 程序 设计 匡 言 里 的 元 素 明 确 描述 。 现 在 我 们 又 看 到 ， 蜗 阶 消 
数 能 如 何 去 操 作 这 些 一 般 性 的 方法 ， 以 便 建立 起 进一步 的 抽象 。 

作为 编程 者 ， 我 们 应 该 对 这 类 可 能 性 保持 高 度 敏感 ， 设 法 从 中 识别 出 程序 里 的 基本 抽象， 
基于 它们 去 进一步 构造 ， 并 推广 它们 以 创建 威力 更 加 强大 的 抽象 。 当 然 ， 这 并 不 是 说 总 应 该 
采用 尽 可 能 抽象 的 方式 去 写 程序 ， 程 序 设 计 专家 们 知道 如 何 根据 工作 中 的 情况 ， 去 选择 合 迅 
的 抽象 层次 。 但 是 ， 能 基于 这 种 抽象 去 思考 确实 是 最 重要 的 ， 只 有 这 样 才 可 能 在 新 的 上 下 文 
中 去 应 用 它们 。 高 阶 过 程 的 重要 性 ， 就 在 于 使 我 们 能 显 式 地 用 程序 设计 语言 的 要 素 去 挡 述 这 


a 对 于 寻找 平方 根 而 言 ， 牛 顿 法 可 以 从 任意 点 出 发 迅速 收敛 到 正确 的 答案 。 


PERHR ， 使 我 们 能 像 操 作 其 他 计算 元 素 一 样 去 操作 它们 。 

一 般 而 言 ， 程 序 设 计 语 言 总 会 对 计算 元 素 的 可 能 使 用 方式 强加 上 某 些 限 制 。 带 有 最 少 限 
制 的 元 素 被 称 为 具有 第 一 级 的 状态 。 第 一 级 元 素 的 某 些 “权利 或 者 特权 ”包括 ”: 

* 可 以 用 变量 命名 ; 

“可 以 提供 给 过 程 作为 参数 ; 

"可 以 由 过 程 作 为 结 朱 返回 ; 

* 可 以 包含 在 数据 结构 中 ”。 | 
Lisp 不 像 其 他 程序 设计 语言 ， 它 给 了 过 程 完全 的 第 一 级 状态 。 这 就 给 有 效 实现 提出 了 挑战 ， 
但 由 此 所 获得 的 描述 能 力 却 是 极其 惊人 的 ”。 

练习 1.40 请 定义 一 个 过 程 cCubic， 它 和 newtons-method 过 程 一 起 使 用 在 下 面 形式 的 
PIA HB 

(newtons-method (cubic a bc) 1) 
AE dE SKA Rex’ +ax +bx 十 Cc 的 零点 。 

练习 1.41 ”请 定义 一 个 过 程 dGOouble ， 它 以 一 个 有 一 个 参数 的 过 程 作为 参数 ，double 返 
回 一 个 过 程 。 这 一 过 程 将 原来 那个 参数 过 程 应 用 两 次 。 例 如 ， 若 1inc 是 个 给 参数 加 1 的 过 程 ， 
(double inc) 将 给 参数 加 。 下 面 表达 式 返 回 什么 值 


({(double (double double)) inc) 5) 


练习 1.42 今 f 和 8g 是 两 个 单 参数 的 函数 , 上 在 8 之 后 的 复合 定义 为 国 数 x HSB). WE 
义 一 个 国 数 compose 实 现 国 数 复合 、 例如， 如 果 inc 是 将 参数 加 1 的 国 数 AA: 


( (compose square inc) 6) 
49 


练习 1.43 ”如 果 f E—-TPRR, ne-TP ERR, WARTA EN S 的 n 次 重复 应 
Al, EE MAT BR, i RE A SOD. RU, ROR SEPARA FO 
Xx 十 1，n 次 重复 应 用 f 就 是 函数 x 已 xX+n。 如 果 f 是 求 一 个 数 的 平方 的 操作 ，n 次 重复 应 用 f 就 
求 出 其 参数 的 2" 次 矫 。 请 写 一 个 过 程 ， 它 的 输入 是 一 个 计算 f Det BA TESS, REY 
是 能 计算 f 的 n 次 重复 应 用 的 那个 函数 。 你 的 过 程 应 该 能 以 如 下 方式 使 用 : 


((repeated square 2) 5) 
625 


fax: 你 可 能 发 现 使 用 练习 1.42 的 compose 能 带 来 一 些 方便 。 

练习 1.44 FR ARE BES hte. WR ETA, AE 
其 个 很 小 的 数值 ， 那 么 『 的 平滑 也 是 一 个 函数 ， 它 在 点 x 的 值 就 是 f(x dx), f(x) 和 f(x +x) 
的 平均 值 。 请 写 一 个 过 程 smooth ， 它 的 输入 是 一 个 计算 了 的 过 程 ， 返 回 一 个 计算 平 请 后 的 了 
的 过 程 。 有 时 可 能 发 现 ， 重 复 地 平滑 一 个 国 数 ， 得 到 经 过 m 次 平滑 的 图 数 〈 也 就 是 说 ， 对 平 请 
后 的 函数 再 做 平滑 ， 等 等 ) 也 很 有 价值 。 说 明 怎 样 利用 smooth 和 练习 1.43 的 repeated， 对 
给 定 的 函数 生成 n 次 平 背 印 数 。 

% 程序 设计 语言 元 素 的 第 一 级 状态 的 概念 应 归功 于 英国 计算 机 科学 家 Christopher Strachey (1916-1975) , 

6 我 们 将 在 第 2 章 介 绍 了 数据 结构 之 后 看 到 这 方面 的 例子 。 


% 实现 第 一 级 过 程 的 主要 代价 是 ， 为 使 过 程 能 够 作为 值 返回 ， 我 们 就 需要 为 过 程 里 的 自由 变量 保留 空间 E 
这 一 过 程 并 不 执行 。 在 4.1 节 有 关 Scheme 实 现 的 研究 中 ， 这 些 变量 都 被 存储 在 过 程 的 环境 里 。 
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练习 1.45 在 1.3.3 节 里 ， 我 们 看 到 企图 用 朴素 的 方法 去 找 y》 e zy 的 不 动 点 ， 以 便 计 算 平 
方 根 的 方式 不 收敛 ， 这 个 缺陷 可 以 通过 平均 阻尼 的 方式 弥补 。 同 样 方法 也 可 用 于 找 立 方 根 ， 
”将 它 看 做 是 平均 阻尼 后 的 y e XW 的 不 动 点 。 遗憾 的 是 , 这 一 计算 过 程 对 于 四 次 方 根 却 行 不 通 ， 
一 次 平均 阻尼 不 足以 使 对 y e x/y 的 不 动 点 搜寻 收敛 。 而 在 男 一 方面 ， 如 果 我 们 求 两 次 平均 阻 
fe (BN, Fly > xf 六 的 平均 阻尼 的 平均 阻尼 )， 这 一 不 动 点 搜寻 就 会 收 侠 了 。 请 做 一 些 试验 ， 
考虑 将 计算 n 次 方 根 作 为 基于 y FF Xx/y” ! 的 反复 做 平均 阻尼 的 不 动 点 搜寻 过 程 ， 请 设法 确定 各 
种 情况 下 需要 做 多 少 次 平均 阻尼 。. 并 请 基于 这 一 认识 实现 一 个 过 程 ， 它 使 用 fixed-point.、 
average-damp 和 练习 1.43 的 repeated 过 程 计算 n 次 方 根 。 假 定 你 所 需要 的 所 有 算术 运算 都 
是 基本 过 程 。 

练习 1.46 ”本 章 描 述 的 一 些 数 值 算法 都 是 近代 式 改 进 的 实例 。 迭 代 式 改进 是 一 种 非常 具 
有 一 般 性 的 计算 策略 ， 它 说 的 是 : 为 了 计算 出 某 些 东西 ， 我 们 可 以 从 对 答案 的 某 个 初始 猜测 
开始 ， 检 查 这 一 猜测 是 否 足 够 好 ， 如 果 不 行 就 改进 这 一 猿 袖 ， 将 改进 之 后 的 猜测 作为 新 的 猜 
测 去 继续 这 一 计算 过 程 。 请 写 一 个 过 程 iterative-improve， 它 以 两 个 过 程 为 参数 : 其 
中 之 一 表示 告知 某 一 猜测 是 否 足 够 好 的 方法 ， 另 一 个 表示 改进 猜测 的 方法 。iterative- 
improve 的 返回 值 应 该 是 一 个 过 程 ， 它 以 某 一 个 猜测 为 参数 ， 通 过 不 断 改进 ， 直 至 得 到 的 和 猜 
测 足 够 好 为 止 。 利 用 iterative-improve 重 写 1.1.7 节 的 sqrt 过 程 和 1.3.3 市 的 fixed- 
point 过 程 。 


种 < 草 构造 数据 抽象 


5 现在 到 了 数学 抽象 中 最 关键 的 一 步 . RIT Miz REGS A RGR, o 
A ee een 些 符 号， 而 根本 不 兴 考 虎 它 们 
到 底 代 表 着 什么 东西 。 


Hermann Weyl, Te Laihomatioal Way of Thinking 
(思维 的 数学 方式 ) 


我 们 在 第 1 章 里 关注 的 是 计算 过 程 ， 以 及 过 程 在 程序 中 所 扮演 的 角色 。 在 那里 我 们 还 看 到 
了 怎样 使 用 基本 数据 ( 数 ) 和 基本 操作 (算术 运算 ) ， 怎样 通过 复合 、 条 件 ， 以 及 参数 的 使 
用 将 一 些 过 程 组 合 起 来 ， 形 成 复合 的 过 程 ， 怎 样 通过 define 做 过 程 抽 象 。 我 们 也 看 到 ， 可 以 
将 一 个 过 程 看 作 一 类 计算 演化 的 一 个 模式 。 那 里 还 对 过 程 中 冀 涵 着 的 某 些 常 见 计算 模式 做 了 
一 些 分 类 和 推理 ， 并 做 了 一 些 简 单 的 算法 分 析 。 我 们 也 看 到 了 高 阶 过 程 ， 这 种 机 制 能 够 提升 
语言 的 威力 ， 因 为 它 将 使 我 们 能 去 操纵 通用 的 计算 方法 ， 并 能 对 它们 做 推理 。 这 些 都 是 程序 
设计 中 最 基本 的 东西 。 
在 这 一 章 里 ， 我 们 将 进一步 去 考查 更 复杂 的 数据 。 第 1 章 里 的 所 有 过 程 ， 操 作 的 都 是 简单 
的 数值 数据 ， 而 对 我 们 希望 用 计算 去 处 理 的 许多 问题 而 言 ， 只 有 这 种 简单 数据 还 不 够 。 许 多 
程序 在 设计 时 就 是 为 了 模拟 复杂 的 现象 ， 因 此 它们 就 常常 需要 构造 起 一 些 计算 对 象 ， 这 些 对 
象 都 是 由 一 些 部 分 组 成 的 ， 以 便 去 模拟 真实 世界 里 的 那些 具有 若干 侧面 的 现象 。 这 样 ， 与 我 
们 在 第 1 章 里 所 做 的 事情 (通过 将 一 些 过 程 组 合 起 来 形成 复合 的 过 程 ， 以 这 种 方式 构造 起 各 种 
相对 应 ， 本 章 将 重点 转 到 各 种 程序 设计 语言 都 包含 的 另 一 个 关键 方面 : 讨论 它们 所 提 
， 将 数据 对 象 组 合 起 来 ， 形 成 复合 数据 的 方式 。 
TENA AR RIP AKN 与 我 们 需要 复合 过 程 的 原因 一 样 ; 同样 是 为 
了 提升 我 们 在 设计 程序 时 所 位 于 的 概念 层次 ， 提 高 设计 的 模块 性 ， 增 强 语言 的 表达 能 力 。 正 
如 定义 过 程 的 能 力 使 我 们 有 可 能 在 更 高 的 概念 层次 上 处 理 计算 工作 一 样 ， 能 够 构造 复合 数据 
的 能 力 ， 也 将 使 我 们 得 以 在 比 语言 提供 的 基本 数据 对 象 更 高 的 概念 层次 上 ， 处 理 与 数据 有 关 
的 各 种 回 题 。 | & | 
现在 考虑 设计 一 个 系统 ， 它 完成 有 理 数 的 算术 。 我 们 可 以 设想 一 个 运算 add-rat ， 它 以 
两 个 有 理 数 为 参数 ， 产 生出 它们 的 和 。 从 基本 数据 出 发 ， 一 个 有 理 数 可 以 看 作 两 个 整数 ， 一 
个 分 子 和 一 个 分 母 。 这 样 ， 我 们 就 可 以 设计 出 一 个 程序 ， 其 中 的 每 个 有 理 数 用 两 个 整数 表示 
(一 个 分 子 和 一 个 分 母 )， 而 其 中 的 add~rat 用 两 个 过 程 实现 (一 个 产生 和 数 的 分 子 ， 另 一 个 
产生 和 数 的 分 母 ) 。 然 而 ， 这 样 做 下 去 会 非常 难受 ， 因 为 我 们 必须 明确 地 始终 记 住 哪个 分 子 与 
哪个 分 母 相互 对 应 。 在 一 个 需要 执行 大 量 有 理 数 操作 的 系统 里 ， 这 种 记录 工作 将 会 严重 地 搅 
乱 我 们 的 程序 ， 而 这 些 麻烦 又 与 我 们 心中 真正 想 做 的 事情 毫 无 关系 。 如 果 能 将 一 个 分 子 和 一 
个 分 母 “ 粘 在 一 起 ”， 形 成 一 个 对 偶 一 一 个 复合 数据 对 象 一事 情 就 会 好 得 多 了 ， 因 为 这 样 ， 
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程序 中 对 有 理 数 的 操作 就 可 以 按照 将 它们 作为 一 个 概念 单位 的 方式 进行 了 。 
复合 数据 的 使 用 也 使 我 们 能 进一步 提高 程序 的 模 快 性 。 如 采 我 们 可 以 直接 在 将 有 理 数 
本 身 当 作对 象 的 方式 下 操作 它们 ， 那 么 也 怀 可 能 把 处 理 有 理 数 的 那些 程序 部 分 ， 与 有 理 数 
如 何 表 示 的 细 市 (可 能 是 表示 为 一 对 整数 ) 隔离 开 。 这 种 将 程序 中 处 理 数 据 对 象 的 表示 的 
部 分 ， 与 处 理 数 据 对 象 的 使 用 的 部 分 相互 隔离 的 技术 非常 具有 一 般 性 ， 形 成 了 一 种 称 为 数 
据 抽 象 的 强 有 力 的 设计 方法 学 。 我 们 将 会 看 到 ， 数 据 抽象 技术 能 使 程序 更 容易 设计 、 维 护 
和 修改 。 
复合 对 象 的 使 用 将 真正 提高 程序 设计 语言 的 表达 能 力 。 考 虑 形成 “线性 组 合 ”ax +by, 
我 们 可 能 想到 写 一 个 过 程 ， 让 它 接受 a、b、x 和 y 作 为 参数 并 返回 ax +by 的 值 。 如 采 以 数值 作 
为 参数 ， 这 样 做 没有 任何 困难 ， 因 为 我 们 立刻 就 能 定义 出 下 面 的 过 程 : 
(define (linear-combination a b x y) 
(+ (* a x) (* b y))) 
但 是 ， 如 果 我 们 关心 的 不 仅仅 是 数 ， 假 定 在 写 这 个 过 程 时 ， 我 们 希望 表述 的 是 基于 加 和 乘 形 
成 线性 组 合 的 思想 ， 所 针对 的 可 以 是 有 理 数 、 复 数 、 多 项 式 或 者 其 他 东西 ， 我 们 可 能 将 其 表 
述 为 下 面 形式 的 过 程 : | 
(define (linear-combination a b x y) 
{add (mul a x) (mul b y)}) 


其 中 的 add 和 mul 不 是 基本 过 程 二 和 *, 而 是 某 些 更 复杂 的 东西 ， 它们 能 对 通过 参数 a 、b、 
x Filly 送 来 的 任何 种 类 的 数据 执行 适当 的 操作 。 在 这 里 最 关键 的 是 ，linear-~combination 
对 于 a 、b 、x 和 Y 需 要 知道 的 所 有 东西 ， 也 就 是 过 程 add 和 和 mul 能够 执行 适当 的 操作 。 从 过 程 
Linear-combination 的 角度 看 ，a、b、x 和 y 究 竟 是 什么 ， 其 实 根本 就 没有 关系 ， 至 于 它 
们 是 怎样 基于 更 基本 的 数据 表示 就 更 没有 关系 了 。 这 个 例子 也 说 明了 ， 为 什么 一 种 程序 设计 
语言 能 够 提供 直接 操作 复合 对 象 的 能 力 是 如 此 的 重要 ， 因 为 如 果 没 有 这 种 能 力 ， 我 们 就 没有 
办 法 计 一 个 像 linear-combination 这 样 的 过 程 将 其 参数 传递 给 add 和 mul ， 而 不 必 知 所 这 
些 参 数 的 具体 细节 结构 ”。 

作为 本 章 的 开始 ， 我 们 要 实现 上 面 所 说 的 那样 一 个 有 理 数 算术 系统 ， 它 将 成 为 后 面 讨 论 
复合 数据 和 数据 抽象 的 一 个 基础 。 与 复合 过 程 一 样 ， 在 这 里 需要 考虑 的 主要 问题 ， 也 是 将 抽 
象 作为 克服 复杂 性 的 一 种 技术 。 下 面 将 会 看 到 ， 数 据 抽象 将 如 何 使 我 们 能 在 程序 的 不 同 部 分 
之 间 建 立 起 适当 的 抽象 屏障 。 

我 们 将 会 看 到 ， 形 成 复合 数据 的 关键 就 在 于 ， 程 序 设 计 语 言 里 应 该 提供 了 茶 种 “黏合 剂 ， 
它们 可 以 用 于 把 一 些 数据 对 象 组 合 起 来 ， 形 成 更 复杂 的 数据 对 象 。 黏 合剂 可 能 有 很 多 不 同 的 
种 类 。 确实 的 ， 我 们 还 会 发 现 怎样 去 构造 出 根本 没有 任何 特定 “数据 ”操作 ， 只 是 由 过 程 形 
成 的 复合 数据 。 这 将 进一步 模糊 “过 程 ” 和 “数据 ”之 间 的 划分 。 实 际 上 ， 在 第 1 章 的 最 后 ， 
六 一 界限 已 经 开始 变 得 不 那么 清楚 了 。 我 们 还 要 探索 表示 序列 和 树 的 一 些 常规 技术 。 在 处 理 


?直接 操作 过 程 的 能 力 ， 也 使 程序 设计 语言 的 表达 能 力 得 到 类 似 的 提高 。 例 如 ， 在 1.3.1 节 里 给 出 了 过 程 sSum， 
它 以 过 程 term 作 为 一 个 参数 ， 计 算出 term 在 某 个 特定 区 间 上 的 值 之 和 。 为 了 定义 这 一 SUR， 必 不 可 少 的 条 
件 就 是 能 直接 去 说 像 term 这 样 的 过 程 ， 而 不 必 考 虑 它 可 能 如 何 通过 更 基本 的 操作 表达 出来。 的确 ， 如 要 没 有 
“过 程 ” 这 一 概念 ， 认 为 我 们 有 可 能 定义 像 sum 这 样 的 操作 就 很 值得 怀疑 了 。 进 一 步 说 ， 就 执行 求 和 而 言 ， 
term 究 况 能 怎样 由 更 基本 的 操作 构造 起 来 的 情况 ， 确 实 也 没 必 要 去 关心 。 


有 


复合 数据 中 的 一 个 关键 性 思想 是 闭 包 的 概念 一 一 也 就 是 说 ， 用 于 组 合 数据 对 象 的 黏合 剂 不 但 
能 用 于 组 合 基本 的 数据 对 象 ， 同 样 也 可 以 用 于 复合 的 数据 对 象 。 另 一 关键 思想 是 ， 复 合 数据 
对 象 能 够 成 为 以 混合 与 匹配 的 方式 组 合 程序 模块 的 方便 界面 。 我 们 将 通过 给 出 一 个 利用 闭 包 
概念 的 简单 图 形 语言 的 方式 ， 阐 释 有 关 的 思想 。 

而 后 我 们 要 引进 符号 表达 式 ， 进 一 步 扩大 语言 的 表述 能 力 。 符 号 表达 式 的 基本 部 分 可 以 
是 任意 的 符号 ， 不 一 定 就 是 数 。 我 们 将 探索 表示 对 象 集合 的 各 种 不 同方 式 ， 由 此 可 以 发 现 ， 
BR 一 个 给 定 的 数学 函数 可 以 通过 许多 不 同 的 计算 过 程 计算 一 样 ， 对 于 一 种 给 定 的 数据 结构 ， 
也 可 以 有 许多 方式 将 其 表示 为 简单 对 象 的 组 合 ， 而 这 种 表示 的 选择 ， 有 可 能 对 操作 这 些 数 据 
的 计算 过 程 的 时 间 与 空间 需求 造成 重大 的 影响 。 我 们 将 在 符号 微分 、 集 合 的 表示 和 信息 编码 
的 上 下 文中 研究 这 些 思想 。 
” ”随后 我 们 将 转 去 处 理 在 一 个 程序 的 不 同 部 分 可 能 采用 不 同 表示 的 数据 的 问题 ， 这 就 引出 
了 实现 通用 型 操作 的 需要 ， 这 种 操作 必须 能 处 理 许多 不 同 的 数据 类 型 。 为 了 维持 模块 性 ， 通 
用 型 操作 的 出 现 ， 将 要 求 比 只 有 简单 数据 抽象 更 强大 的 抽象 屏障 。 特 别 地 ， 我 们 将 介绍 数据 
导向 的 程序 设计 。 这 是 一 种 技术 ， 它 能 允许 我 们 孤立 地 设计 每 一 种 数据 表示 ， 而 后 用 添加 的 
方式 将 它们 组 合 进去 (也 就 是 说 ， 不 需要 任何 修改 )。 为 了 展示 这 一 系统 设计 方法 的 威力 ， 在 
本 章 的 最 后 ， 我 们 将 用 已 经 学 到 的 东西 实现 一 个 多 项 式 符号 算术 的 程序 包 ， 其 中 多 项 式 的 系 
数 可 以 是 整数 、 有 理 数 、 复 数 ， 甚 至 还 可 以 是 其 他 多 项 式 。 


2.1 数据 抽象 导 引 


从 1.1.8 节 可 以 看 到 ， 在 构造 更 复杂 的 过 程 时 可 以 将 一 个 过 程 用 作 其 中 的 元 素 ， 这 样 的 过 
程 不 但 可 以 看 作 是 一 组 特定 操作 ， 还 可 以 看 作 一 个 过 程 抽象 。 也 就 是 说 ， 有 关 过 程 的 实现 细 
节 可 以 被 隐藏 起 来 ， 这 个 特定 过 程 完全 可 以 由 另 -一 个 具有 同样 整体 行为 的 过 程 取代 。 换 句 话 
说 ， 我 们 可 以 这 样 造成 一 个 抽象 ， 它 将 这 一 过 程 的 使 用 方式 ， 与 该 过 程 究竟 如 何 通过 更 基本 
的 过 程 实现 的 具体 细节 相互 分 离 。 针 对 复合 数据 的 类 似 概念 被 称 为 数据 抽象 。 数 据 抽 象 是 一 
种 方法 学 ， 它 使 我 们 能 将 一 个 复合 数据 对 象 的 使 用 ， 与 该 数据 对 象 怎样 由 更 基本 的 数据 对 象 
构造 起 来 的 细节 隔离 开 。 

数据 抽象 的 基本 思想 ， 就 是 设法 构造 出 一 些 使 用 复合 数据 对 象 的 程序 ， 使 它们 就 像 是 在 
“抽象 数据 ”上 操作 一 样 。 也 就 是 说 ， 我 们 的 程序 中 使 用 数据 的 方式 应 该 是 这 样 的 ， 除 了 完成 
当前 工作 所 必要 的 东西 之 外 ， 它 们 不 对 所 用 数据 做 任何 多 余 的 假设 。 与 此 同时 ， 一 种 “具体 ” 
数据 表示 的 定义 ， 也 应 该 与 程序 中 使 用 数据 的 方式 无 关 。 在 我 们 的 系统 里 ， 这 样 两 个 部 分 之 
间 的 界面 将 是 一 组 过 程 ， 称 为 选择 议 数 和 构造 函数 ， 它 们 在 具体 表示 之 上 实现 抽象 的 数据 。 
为 了 展示 这 一 技术 ， 下 面 我 们 将 考虑 怎样 设计 出 一 组 为 操作 有 理 数 而 用 的 过 程 。 


2.1.1 实例 :有理数 的 算术 运算 


假定 我 们 希望 做 有 理 数 上 的 算术 ， 和 希望 能 做 有 理 数 的 加 减 乘除 运算 ， 比 较 两 个 有 理 数 是 
否 相等 ， 等 等 。 | 

作为 开始 ， 我 们 假定 已 经 有 了 一 种 从 分 子 和 分 母 构 造 有 理 数 的 方法 。 并 进一步 假定 ， 如 
果 有 了 一 个 有 理 数 ， 我 们 有 一 种 方法 取得 ( 选 出 ) 它 的 分 子 和 分 母 。 现 在 再 假定 有 关 的 构 迄 


函数 和 选择 函数 都 可 以 作为 过 程 使 用 : 
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” (make-rat <n> <d>) 返回 一 个 有 理 数 ， 其 分 子 是 整数 <n> ， 分 母 是 整数 <d> 。 

” (numer <x>) 返回 有 理 数 <x> 的 分 子 。 

。 (denom <x>) 返回 有 理 数 <xz> 的 分 母 。 

我 们 要 在 这 里 使 用 一 种 称 为 按 愿 望 思维 的 强 有 力 的 综合 策略 。 现 在 我 们 还 没有 说 有 理 
数 将 如 何 表 示 ， 也 设 有 说 过 程 numeT 、denom 和 make-rat 应 如 何 实 现 。 然 而 ， 如 果 我 们 
真 的 有 了 这 三 个 过 程 ， 那 么 就 可 以 根据 下 面 关 系 去 做 有 理 数 的 加 减 乘除 和 相等 判断 了: 


mm nd, +n,d, 

dd, dd, 

n on, nd,-n,d, 

d d, dd, 

n n nn, 

d, d, dd, 

n/d, nd, 

n, ld, dn, 

ana 当 且 仅 当 nd, = nd 


我 们 可 以 将 这 些 规则 表述 为 如 下 几 个 过 程 : 


(define (add-rat x y) 
(make-rat (+ (* (numer 
(* (numer 
(* (denom x) 


(define (sub-rat x y) 
(make-rat (- (* (numer 
(* (numer 
(* (denom x) 


(define (mul-rat x y) 
(make-rat (* (numer x) 


{* (denom x) 


(define (div-rat x y) 
(make-rat (* (numer x) 
(* (denom x) 


(define (equal-rat? x y) 
(= (* (numer x) (denom 
(* (numer y) (denom 


x) (denom y)) 


y) 
(denom y)))}) 


(denom x))) 


x) (denom y)) 
y) (denom x))) 
(denom y)))) 


(numer y)) 


(denom y)))) 


(denom y)) 


(numer y)))) 


Y)) 
x)))) 


这 样 ， 我 们 已 经 有 了 定义 在 选择 和 构造 过 程 numer 、denom 和 make~rat 基础 之 上 的 各 
种 有 理 数 运算 ， 而 这 些 基 础 还 没有 定义 。 现 在 需要 有 茶 种 方式 ， 将 一 个 分 子 和 一 个 分 母 粘 接 


起 来 ， 构 成 一 个 有 理 数 。 
序 对 


为 了 在 具体 的 层面 上 实现 这 一 数据 抽象 ， 我 们 所 用 的 语言 提供 了 一 种 称 为 序 对 的 复合 结 


构 ， 这 种 结构 可 以 通过 基本 过 程 cons 构造 出 来 。 过 程 Cons 取 两 个 参数 ， 返 回 一 个 包含 这 两 
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个 参数 作为 其 成 分 的 复合 数据 对 象 。 如 果 给 了 一 个 序 对 ， 我 们 可 以 用 基本 过 程 car 和 cdr”， 
按 如 下 方式 提取 出 其 中 各 个 部 分 : 


(define x (cons 1 2)) 


(car xX) 
1 


{cdr x) 


am) 
a 


请 注意 ， 序 对 也 是 一 个 数据 对 象 ， 可 以 像 基 本 数据 对 象 一 样 给 它 一 个 名 字 且 操作 它 。 进 
一 步 说 ， ETA Aeon AKERRA RETNA, 并 继续 这 样 做 下 去 

(define x (cons 1 2)) 

(define y (cons 3 4)) 

(define z (cons x y)) 


(car (car 2)) 
1 


(car (cdr 2z)) 
3 


在 2.2 节 里 我 们 将 看 到 ， 这 种 组 合 起 序 对 的 能 力 表明 ， 序 对 可 以 用 作 构 造 任 意 种 类 的 复杂 数据 
结构 的 通用 的 基本 构件 。 通 过 过 程 cons 、car 和 cdzr 实 现 的 这 样 一 种 最 基本 的 复合 数据 ， 厅 


对 ， 也 就 是 我 们 需要 的 所 有 东西 。 从 序 对 构造 起 来 的 数据 对 象 称 为 表 结构 数据 。 


有 理 数 的 表示 
序 对 为 完成 这 里 的 有 理 数 系统 提供 了 一 种 自然 方式 ， 我 们 可 以 将 有 理 数 简单 表示 为 两 个 


整数 (分 子 和 分 母 ) 的 序 对 。 这 样 就 很 容易 做 出 下 面 make-rat、numer 和 dencm 的 实现 ”: 


{define (make-rat n d) (cons n d)) 
(define (numer x) (car x)) 


(define (denom x) (cdr x)) 


8 名 字 cons 表 示 “ 构 造 ”(construct)。 名 字 car 和 cdr 则 来 自 Lisp 最 初 在 IBM 7044S LHL. CIM Lea 
一 种 取 址 模式 ， 使 人 可 以 访问 一 个 存储 地 址 中 的 “地 址 ”(address ) 部 分 和 “ 减 量 ”(decrement ) #847. car 
表示 “Contents of Address part of Register” (寄存 器 的 地 址 部 分 的 内 wm), cdr ( 读 作 “could-er”) 表示 
“Contents of Decrement part of Register”( 寄 存 器 的 减 量 部 分 的 内 容 ) 。 

% 定义 选择 符 和 构造 符 的 另 一 种 方式 是 ， 

(define make-rat cons) 
(define numer car) 
(define denom cdr) 
这 里 的 第 一 个 定义 将 名 gmake- -rat KK TRIACS AI , Hi Je ABT 8 PP TH LEE. 这 样 就 使 nake- 
rat 和 cons 成 了 同一 个 基本 过 程 的 名 字 。 

按照 这 种 方式 定义 出 选择 函数 和 构造 前 数 的 效率 更 高 ， 因 为 它 不 是 make~rat 去 调用 cons ， 而 是 使 
make-rat 本 身 就 是 cons ， 因 此 ， 如 果 调 用 make-rat ,在 这 里 就 只 有 一 次 过 程 调用 而 不 是 两 次 调用 。 而 在 
另 一 方面 ， 这 种 做 共 也 会 击 潢 系统 的 排 错 辅助 功能 ， 那 种 功能 可 以 追踪 过 程 的 调用 或 者 在 过 程 调用 处 放 入 断 
点 。 你 有 可 能 希望 监视 对 make-rat 的 调用 ， 而 决 不 会 希望 去 监视 程序 里 的 傈 99 vA 

我 们 的 选择 是 ， 不 在 本 书 中 采用 这 里 所 说 的 定义 风格 。 | 
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还 有 ， 为 了 显示 这 里 的 计算 结果 ， 我 们 可 以 将 有 理 数 打印 为 一 个 分 子 ， 在 斜 线 符 之 后 打印 相 
应 的 分 母 ”: 
(define (print-rat x) 
(newline) 
(display (numer x) ) 
(display "/") 
(display (denom x))) 


现在 就 可 以 试验 我 们 的 有 理 数 过 程 了 : 
(define one-half (make-rat 1 2)) 


(print-rat one-half) 
1/2 


(define one-third (make~-rat 1 3)) 


(print-rat (add-rat one-half one-third} ) 
5/6 


(print-rat (mul-rat one-half one-third) ) 
1/6 


(print-rat (add-rat one-third one-third) ) 
6/9 


正如 上 面 最 后 一 个 例子 所 显示 的 ， 我 们 的 有 理 数 实现 并 没有 将 有 理 数 约 化 到 最 简 形 式 。 
通过 修改 make-Iat 很 容易 做 到 这 件 事 。 如 果 我 们 有 了 一 个 如 1.2.5 节 中 那样 的 gcd 过 程 N 
它 可 以 求 出 两 个 整数 的 最 大 公约 数 ， 那 么 现在 就 可 以 利用 它 ， 在 构造 序 对 之 前 将 分 子 和 分 母 
约 化 为 最 简单 的 项 : | 


(define (make-rat n d) 
(let ((g (gcd n d))) 
(cons (/ n g) (/ dg)))) 


现在 我 们 就 有 : 
(print-rat (add-rat one~third one-third)) 
2/3 


正如 所 期 望 的 。 为 了 完成 这 一 改动 ， 我 们 只 需 修改 构造 符 make-Iat ， 完 全 不 必修 改 任 何 实 
现实 际 运 算 的 过 程 (例如 add-rat 和 mul-rat )。 

练习 2.1 请 定义 出 make~rat 的 一 个 更 好 的 版 本 ， 使 之 可 以 正确 处 理 正 数 和 负数。 当 有 
理 数 为 正 时 ，make-rat 应 当 将 其 规范 化 ， 使 它 的 分 子 和 分 母 都 是 正 的 。 如 果 有 理 数 为 负 ， 
那么 就 应 只 让 分 子 为 负 。 


2.1.2 抽象 屏障 


在 继续 讨论 更 多 复合 数据 和 数据 抽象 的 实例 之 前 ， 让 我 们 首先 考虑 一 下 由 有 理 数 的 例子 
提出 的 几 个 问题 。 前 面 给 出 的 所 有 有 理 数 操作 ， 都 是 基于 构造 函数 make-rat 和 迹 择 消 数 


mdisplay 是 Scheme 系统 里 打印 数据 的 基本 过 程 ， 基 本 过 程 newLine 为 随后 的 打印 开始 一 个 新 行 。 这 两 个 过 
程 都 不 返回 有 用 的 值 ， 所 以 ， 在 下 面 使 用 print-rat 时 , 我 们 只 显示 了 print-rat 打 印 的 是 什么 ， 而 没有 
显 式 解释 器 对 print~rat 的 返回 值 打印 了 什么 。 
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numer、denom 定 义 出 来 的 。 一 般 而 言 ， 数 据 抽 象 的 基本 思想 就 是 为 每 一 类 数据 对 象 标识 出 
一 组 操作 ， 使 得 对 这 类 数据 对 象 的 所 有 操作 都 可 以 基于 它们 表述 ， 而且 在 操作 这 些 数 据 对 象 
时 也 只 使 用 它们 。 

图 2-1 形 象 化 地 表示 了 有 理 数 系统 的 结构 。 其 中 的 水 平 线 表示 抽象 屏障 ， 它 们 隔离 了 系统 
中 不 同 的 层次 。 在 每 一 层 上 ， 这 种 屏障 都 把 使 用 数据 抽象 的 程序 CELE) 与 实现 数据 抽象 的 
程序 (下 面 ) 分 开 来 。 使 用 有 理 数 的 程序 将 仅仅 通过 有 理 数 包 提 供给 “公众 使 用 ”的 那些 过 
程 (add-rat、sub-rat mul-rat、div-rat 和 equal-rat?) 去 完成 对 有 理 数 的 各 种 
操作 ， 这 些 过 程 转 而 又 是 完全 基于 构造 函数 和 婚 择 国 数 make-Iat 、numer 和 denom 实 现 
的 ， 而 这 些 函 数 又 是 基于 序 对 实现 的 。 只 要 序 对 可 以 通过 cons 、car 和 和 cdr 操作 ， 有 关 序 对 
如 何 实 现 的 细节 与 有 理 数 包 的 其 余部 分 都 完全 没有 关系 。 从 作用 上 看 ， 每 一 层次 中 的 过 程 构 
成 了 所 定义 的 抽象 屏障 的 界面 ， 联 系 起 系统 中 的 不 同 层 次 。 


使 用 有 理 数 的 程序 


问题 域 中 的 有 理 数 


作为 分 子 和 分 母 的 有 理 数 


make-rat numer denom 


作为 序 对 的 有 理 数 


图 2-1 有 理 数 包 中 的 数据 抽象 屏障 


这 一 简单 思想 有 许多 优点 。 第 一 个 优点 是 这 种 方法 使 程序 很 容易 维护 和 修改 。 任 意 一 种 
比较 复杂 的 数据 结构 ， 都 可 以 以 多 种 不 同方 式 用 程序 设计 语言 所 提供 的 基本 数据 结构 表示 。 
当然 ， 表 示 方 式 的 选择 会 对 操作 它 的 程序 产生 影响 ， 这 样 ， 如 果 后 来 表示 方式 改变 了 ， 所 有 
受 影响 的 程序 也 都 需要 随 之 改变 。 对 于 大 型 程序 而 言 ， 这 种 工作 将 非常 耗 时 ， 而 且 代价 极其 
昂贵 ， 除 非 在 设计 时 就 已 经 将 依赖 于 表示 的 成 分 限制 到 很 少 的 一 些 程序 异 块 上 。 

例如 ， 将 有 理 数 约 化 到 最 简 形 式 的 工作 ， 也 完全 可 以 不 在 构造 的 时 候 做 ， 而 是 在 每 次 芒 
ARPA MONA, KPRASRA -EA Hie wa AS ; 


(define (make-rat n d) 


(cons n d)) 
(define (numer x) 
(let ((g (gcd (car x) (cdr X)))) 
(/ (car x) g))) 
(define (denom xX) , 
(let ((g (gcd (car x) (cdr X)))) 
(/ (cdr x) g))) 


这 一 实现 与 前 面 实现 的 不 同 之 处 在 于 何 时 计算 gcd。 如 果 在 有 理 数 的 典型 使 用 中 ， 我 们 需要 


多 次 访问 同一 个 有 理 数 的 分 子 和 人 分母， 那么 最 好 是 在 构造 有 理 数 的 时 候 计 算 gcd。 如 宁 情 六 
并 不 是 这 样 ， 那 么 把 对 gcdq 的 计算 推迟 到 访问 时 也 许 更 好 一 些 。 在 这 里 ， 在 任何 情况 下 ， 当 
我 们 从 一 种 表示 方式 转 到 男 一 种 表示 时 ， 过 程 add-rat 、sub-rat 等 等 都 完全 不 必修 改 。 
把 对 于 具体 表示 方式 的 依赖 性 限制 到 少数 几 个 界面 过 程 ， 不 但 对 修改 程序 有 帮助 ， 同 时 
也 有 助 于 程序 的 设计 ， 因 为 这 种 做 法 将 使 我 们 能 保留 考虑 不 同 实现 方式 的 灵活 性 。 继 续 前 面 
的 简单 例子 ， 假 定 现 在 我 们 正在 设计 有 理 数 程序 包 ， 而 且 还 无 法 决定 究 竞 是 在 创建 时 执行 
gcd ， 还 是 应 该 将 它 推迟 到 选择 的 时 候 。 数 据 抽 象 方法 使 我 们 能 推迟 决策 的 时 间 ， 而 又 不 会 
阻碍 系统 其 他 部 分 的 工作 进展 。 | 
练习 2.2 请 考虑 平面 上 线段 的 表示 问题 。 一 个 线段 用 一 对 点 表示 ， 它 们 分 别 龙 线段 的 始 
点 与 终点 。 请 定义 构造 函数 nake-segment 和 选择 国 数 start-Ssegment 、end-segment， 
它们 基于 点 定义 线段 的 表示 。 进 而 ， 一 个 点 可 以 用 数 的 序 对 表示 ， 序 对 的 两 个 成 分 分 别 表 示 
点 的 x 坐 标 和 y 坐 标 。 请 据 此 进一步 给 出 构造 函数 make~point 和 选择 函数 x-~Point 、Y- 
point ， 用 它们 定义 出 点 的 这 种 表示 。 最 后 ， 请 基于 所 定义 的 构造 函数 和 选择 国 数 EA H 
过 程 midpoint-segment ， 它 以 一 个 线段 为 参数 ， 返 回 线段 的 中 点 《也 就 是 那个 坐标 值 古 
两 个 端点 的 平均 值 的 点 )。 为 了 试验 这 些 过 程 ， 还 需要 定义 一 种 打印 点 的 方法 : 
(define (print-point p) 
(newline) 
(display "(") 
(display (x-point p)) 
{display ",") 


(display (y-point p)) 
(display ")")) 


练习 2.3 “请 实现 一 种 平面 矩形 的 表示 (提示: 你 有 可 能 借用 练习 2.2 的 结案 ) 。 基 于 你 的 
构造 函数 和 选择 函数 定义 几 个 过 程 ， 计 算 给 定 和 矩形 的 周 长 和 面积 等 。 现 在 请 再 为 矩形 实现 男 
一 种 表示 方式 。 你 应 该 怎样 设计 系统 ， 使 之 能 提供 适当 的 抽象 屏障 ， 使 同一 个 周 长 或 者 面积 
过 程 对 两 种 不 同 表示 都 能 工作 ? 


2.1.3 数据 意味 着 什么 


在 2.1.1 荡 里 实现 有 理 数 时 ， 我 们 基于 三 个 尚未 定义 的 过 程 make~rat、numer 和 denonm， 
由 这 些 出 发 去 做 有 理 数 操作 add-rat 、sub-rat 等 等 的 实现 。 按 照 那 时 的 想法 ， 这 些 操作 是 
基于 数据 对 象 OT. Oe AH) 定义 的 ， 这 些 对 象 的 行为 完全 由 前 面 三 个 过 程 刻画 。 

那么 ， 数 据 究竟 意味 着 什么 呢 ? 说 它 就 是 “由 给 定 的 构造 函数 和 选择 函数 所 实现 的 东西 
还 是 不 够 的 。 显 然 ， 并 不 是 任意 的 三 个 过 程 都 适合 作为 有 理 数 实现 的 基础 。 在 这 里 ， 我 们 需 
要 保证 ， 如 果 从 一 对 整数 n 和 da 构造 出 一 个 有 理 数 x， 那 么 ， 抽 取出 x 的 numer 和 denom 并 将 它 
们 相 除 ， 得 到 的 结果 应 该 与 n 除 以 Ga 相同 。 换 句 话说 make-rat, numer 和 Qqenom 必 须 满 外 
下 面条 件 ， 对 任意 整数 n 和 任意 非 零 整 数 d， 如 果 x 是 (make-rat n d), 那么 : 


(numer x) _ n 


(denom x) d 


事实 上， 这 就 是 为 了 能 成 为 适宜 表示 有 理 数 的 基础 ，make-rat、numer 和 denom 必 须 满足 
的 全 部 条 件 。 一 般 而 言 ， 我 们 总 可 以 将 数据 定义 为 一 组 适当 的 选择 国 数 和 构造 冰 数 ， 以 及 为 
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使 这 些 过 程 成 为 一 套 合 法 表示 ， 它 们 就 必须 满足 的 一 组 特定 条 件 ”。 

这 一 观点 不 仅 可 以 服务 于 “高 层 ” 数 据 对 象 的 定义 ， 例 如 有 理 数 ， 同 样 也 可 用 于 低层 的 
RR. TAG ET THY Be. Be] CE a iH 它 定义 有 理 数 。 我 们 从 来 都 设 有 说 过 序 对 究竟 契 什 
么 ， 只 说 所 用 的 语言 为 序 对 的 操作 提供 了 三 个 过 程 cons 、car 和 cdr 。 有 关 这 三 个 操作 ， 我 
们 需要 知道 的 全 部 东西 就 是 ， 如 果 用 cons HATHA eH, AA MAL SB car Fi 
cdr 提 取出 这 两 个 对 象 。 也 就 是 说 ， 这 些 操作 满足 的 条 件 是 : MERAY, BRA 
(cons x y), 那么 (car z) Rex, m (cdr 2) 就 是 yy。 我 们 确实 说 过 这 三 个 过 程 是 所 
用 的 语言 里 的 基本 过 程 。 然 而 ， 任 何 能 满足 上 述 条 件 的 三 个 过 程 都 可 以 成 为 实现 序 对 的 基础 。 
下 面 这 个 令 人 吃惊 的 事实 能 够 最 好 地 说 明 这 一 点 : 我 们 完全 可 以 不 用 任何 数据 结构 ， 只 使 用 
过 程 就 可 以 实现 序 对 。 下 面 是 有 关 的 定义 : 


(define (cons X y) 
(define (dispatch m) 


(cond ((= m 0) x) 
((= mil) y) 
(else (error "Argument not 0 or 1 -- CONS" m)))) . 
dispatch) 


(define (car z) (z 0)) 
(define (cdr z) (2 1)) | 
“过程 的 这 一 使 用 方式 与 我 们 有 关 数 据 应 该 是 什么 的 直观 认识 大 相 径 庭 。 但 不 管 怎 么 说 WR 
要 求 我 们 说 明 这 确实 是 一 种 表示 序 对 的 合法 方式 BARBER, ERLE MERE 了 前 
面 提 出 的 所 有 条 件 。 
应 该 特别 注意 这 里 的 一 个 微妙 之 处 : 由 (cons x y) 返回 的 值 是 一 个 过 程 一 也 就 是 那 
个 内 部 定义 的 过 程 dispatch ， 它 有 一 个 参数 ， 并 能 根据 参数 是 0 还 是 1 ， 分 别 返 回 x 或 者 7 。 
与 此 相对 应 ，(car z) 被 定义 为 将 z 应 用 于 0， 这 样 ， 如 果 z 是 由 (cons x y) 形成 的 过 程 ， 
将 z 应 用 于 0 将 会 产生 x， 这 样 就 证 明了 (car (cons x y)) 产生 出 x， 正 如 我 们 所 需要 的 。 
与 此 类 似 ，(cdr (cons x y)) 将 (cons x y) 产生 的 过 程 应 用 于 1 而 得 到 yY 。 因 此 ， 序 
对 的 这 一 过 程 实现 确实 是 一 个 合法 的 实现 ， 如 果 只 通过 cons 、car 和 cdr 访 问 序 对 ， 我 们 将 
无 法 把 这 一 实现 与 “真正 的 ”数据 结构 区 分 开 。 | 
上 面 展示 了 序 对 的 一 种 过 程 性 表示 ， 这 并 不 意味 着 我 们 所 用 的 语言 就 是 这 样 做 的 
(Scheme 和 一 般 的 Lisp 系 统 都 直接 实现 序 对 ， 主 要 是 为 了 效率 ) ， 而 是 说 它 确 实 可 以 这 样 做 。 
这 一 过 程 性 表示 虽然 有 些 隐 睡 ， 但 它 确 实 是 一 种 完全 合适 的 表示 序 对 的 方式 ， 因 为 它 满 足 了 
序 对 需要 满足 的 所 有 条 件 。 这 一 实例 也 说 明 可 以 将 过 程 作 为 对 象 去 操作 ， 因 此 就 目 动 地 为 我 


7 念 人 吃惊 的 是 ， 将 这 一 思想 严格 地 形式 化 却 非常 困难 。 目 前 存在 着 两 种 完成 这 一 形式 化 的 途径 。 第 一 种 由 C 
A. R. Hoare (1972) 提出 ， 称 为 抽 银 模型 方法 ， 它 形式 化 了 如 上 面 有 理 数 实例 中 所 勾勒 出 的 “过 程 加 条 件 ” 
的 规范 描述 。 请 注意 ， 这 里 对 于 有 理 数 表示 的 条 件 是 基于 有 关 整 数 的 事实 (相等 和 除法 ) 陈述 的 。 一般 而 言 ， 
抽象 模型 方法 总 是 基于 某 些 已 经 有 定义 的 数据 对 象 类 型 ， 定 义 出 一 类 新 的 数据 对 象 。 这 样 ， 有 关 这 些 新 对 象 
的 断言 就 可 以 归 约 为 有 关 已 有 定义 的 数据 对 象 的 断言 。 另 一 种 途径 由 MIT 的 Zilles、Goguen 和 IBM 的 Thatcher、 
Wagner 和 Wright ( 见 Thatcher ，Wagner，and Wright 1978) , 以 及 Toronto 的 Guttag ( 见 Guttag 1977) 提出 ， 称 
为 代数 规范 。 这 一 方式 将 “过 程 ”看 作 是 一 个 抽象 代数 系统 的 元 素 ， 系 统 的 行为 由 一 些 对 应 于 我 们 的 “条 件 “ 
的 公理 刻画 ， 并 通过 抽象 代数 的 技术 去 检查 有 关 数据 对 象 的 断言 Liskov 和 Zilles 的 论文 (Liskov and 
Zilles1975) 里 综述 了 这 两 种 方法 。 
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们 提供 了 一 种 表示 复合 数据 的 能 力 。 这 些 东西 现在 看 起 来 好 像 只 是 很 好 玩 ， 但 实际 上 ， 数 据 
的 过 程 性 表示 将 在 我 们 的 程序 设计 宝库 里 扮演 一 种 核心 角色 。 有 关 的 程序 设计 风格 通常 称 为 
消息 传递 。 在 第 3 章 里 讨论 模型 和 模拟 时 ， 我 们 将 用 它 作为 一 种 基本 工具 。 

练习 2.4 “下面 是 序 对 的 另 一 种 过 程 性 表示 方式 。 请 针对 这 一 表示 验证 ， 对 于 任意 的 x 和 y， 
(car (cons x y)) 都 将 产生 出 x。 


(define (cons x y) 
(lambda (m) (m x y))) 


(define (car 2) 
(z (lambda (p q) P))) 


对 应 的 caz 应 该 如 何 定义 ? GER: 为 了 验证 这 一 表示 确实 能 行 ， 请 利用 1.1.5 节 的 代 换 模 
型 。) 

练习 2.5 ”请 证 明 ， 如 果 将 a 和 46 的 序 对 表示 为 习 积 2” 3 对 应 的 整数 ， 我 们 就 可 以 只 用 非 负 
整数 和 算术 运算 表示 序 对 。 请 给 出 对 应 的 过 程 cons 、car 和 cdr 的 定义 。 

练习 2.6 ”如果 觉得 将 序 对 表示 为 过 程 还 不 足以 令 人 如 雷 灌顶 ， 那 么 请 考虑 ， 在 一 个 可 以 
对 过 程 做 各 种 操作 的 语言 里 ， 我 们 完全 可 以 没有 数 〈 至 少 在 只 考虑 非 负 整 数 的 情况 下 ) ， 可 以 
将 0 和 加 一 操作 实现 为 : 

(define zero (lambda (f) (lambda (x) x))) 

(define (add-1 n) 

(lambda (f) (lambda (x) (£ ((n f) x))))) 

这 一 表示 形式 称 为 Church 计 数 ， 名 字 来 源 于 其 发 明 人 数理 逻辑 学 家 Alonzo Church (EF), A 
演算 也 是 他 发 明 的 。 

请 直接 定义 one 和 two (不 用 zero 和 add-1) (提示 : 利用 代 换 去 求 值 (add-1 zero)), 
请 给 出 加 法 过 程 + 的 一 个 直接 定义 (不 要 通过 反复 应 用 add-1)。 


2.1.4 扩展 练习 : 区 间 算 术 


Alyssa P. Hacker 正 在 设计 一 个 帮助 人 们 求解 工程 问题 的 系统 。 她 希望 这 个 系统 提供 的 一 
个 特征 是 能 够 去 操作 不 准确 的 量 (例如 物理 设备 的 测量 参数 ) ， 这 种 量具 有 已 知 的 精度 ， 所 以 ， 
在 对 这 种 近似 量 进行 计算 时 ， 得 到 的 结果 也 应 该 是 已 知 精度 的 数值 。 
电子 工程 师 将 会 用 Alyssa 的 系统 去 计算 一 些 电子 量 。 有 时 他 们 必须 使 用 下 面 公式 ， 从 两 个 
电阻 RL 和 Rs 计算 出 并 联 等 价 电 阻 R 的 值 : : 
R=— 
1/R, +1/R, 


此 时 所 知 的 电阻 值 通常 是 由 电阻 生产 厂商 给 出 的 带 误 差 保证 的 值 ， 例 如 你 可 能 买 到 一 支 标明 
“6.8 欧 姆 误差 10% ”的 电阻 ， 这 时 我 们 就 只 能 确定 ， 这 支 电阻 的 阻 值 在 6.8 — 0.08 =6.12 4116.8 
+0.68 =7.48 欧 姆 之 间 。 这 样 ， 如 果 将 一 支 6.8 欧 姆 误差 10% 的 电阻 与 男 一 支 4.7 欧 姆 误差 5% 的 
电阻 并 联 ， 这 一 组 合 的 电阻 值 可 以 在 大 约 2.58 欧 姆 (如 果 两 支 电阻 都 有 最 小 值 ) 和 2.97 欧 姆 
(如 果 两 支 电阻 都 是 最 大 值 ) 之 间 。 

Alyssa 的 想法 是 实现 一 套 “ 区 间 算 术 ， 即 作 为 可 以 用 于 组 合 “ 区 间 ” (表示 某 种 不 准确 
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量 的 可 能 值 的 对 象 ) 的 一 组 算术 运算 。 两 个 区 间 的 加 、 减 、 乘 、 除 的 结果 仍 是 一 个 区 间 ， 表 
示 的 是 计算 结果 的 范围 。 | 

Alyssa 假 设 有 一 种 称 为 “区 间 ” 的 抽象 对 象 ， 这 种 对 象 有 两 个 端点 , ATAMA EF. 
她 还 假定 ， 给 了 一 个 区 间 的 两 个 端点 ， 就 可 以 用 数据 构造 函数 make-interval 构 造 出 相应 
”的 区 间 来 。Alyssa 首 先 写 出 了 一 个 做 区 间 加 法 的 过 程 ， 她 推理 说 ， 和 的 最 小 值 应 该 是 两 个 区 
间 的 下 界 之 和 ， 其 最 大 值 应 该 是 两 个 区 间 的 上 界 之 和 : 


(define (add-interval x Yy) 
(make-interval (+ (lower-bound x) (lower-bound y)) 
(+ (upper-bound x} (upper-bound y)))) 


Alyssa 还 找 出 了 这 种 界 的 乘积 的 最 小 和 最 大 值 ， 用 它们 做 出 了 两 个 区 间 的 乘积 (minimax č 
求 出 任意 多 个 参数 中 的 最 小 值 和 最 大 值 的 基本 过 程 )。 
(define (mul-interval x y) 
(let ((pl (* (lower-bound x) ( lower-bound y))) 

(p2 (* (lower-bound x) (upper-bound y))) 

(p3 (* (upper-bound x) (lower-bound y))) 

(p4 (* (upper-bound x) (upper-bound y)))) 

(make-interval (min pl p2 p3 p4) 
(max pl p2 p3 p4)))) 

为 了 做 出 两 个 区 间 的 除法 ，Alyssa 用 第 一 个 区 间 乘 上 第 二 个 区 间 的 倒数 。 请 注意 ， 倒 数 的 两 
个 限界 分 别 是 原来 区 间 的 上 界 的 倒数 和 下 界 的 倒数 : 


(define (div-interval x y) 
(mul-interval x 
(make-interval (/ 1.0 (upper-bound y)) 
(/ 1.0 (lower-bound y))))) 


练习 2.7 ”Alyssa 的 程序 是 不 完整 的 ， 因 为 她 还 没有 确定 区 间 抽 象 的 实现 。 这 里 是 区 间 构 
造 符 的 定义 : 

(define (make-interval a b) (cons a b)) 
请 定义 选择 符 upper-bound 和 lower-bound,， 完成 这 一 实现 。 

练习 2.8 ”通过 类 似 于 Alyssa 的 推理 ， 说 明 两 个 区 间 的 差 应 该 怎样 计算 。 请 定义 出 相应 的 
减法 过 程 Sub-interval。 

练习 2.9 区间 的 宽度 就 是 其 上 界 和 下 界 之 差 的 一 半 。 区 间 宽 度 是 有 关 区 间 所 描述 的 相应 
数值 的 非 确定 性 的 一 种 度量 。 对 于 某 些 算术 运算 ， 两 个 区 间 的 组 合 结果 的 宽度 就 是 参数 区 间 
的 帘 度 的 函数 ， 而 对 其 他 运算 ， 组合 区 间 的 宽度 则 不 是 参数 区 间 宽 度 的 函数 。 证 明 两 个 区 间 
的 和 (与 差 ) 的 宽度 就 是 被 加 (或 减 ) 的 区 间 的 宽度 的 函数 。 举 例 说 明 ， 对 于 乘 和 除 而 言 ， 
情况 并 非 如 此 。 

练习 2.10 Ben Bitdiddle 是 个 专业 程序 员 ， 他 看 了 Alyssa 工 作 后 评论 说 ， 除 以 一 个 路过 醒 
跨 0 的 区 间 的 意义 不 清楚 。 请 修改 Alyssa 的 代码 ， 检 查 这 种 情况 并 在 出 现 这 一 情况 时 报错 。 

练习 2.11 ”在 看 了 这 些 东西 之 后 ，Ben 又 说 出 了 下 面 这 段 有 些 神秘 的 话 :“ 通 过 监测 区 间 
的 端点 ， 有 可 能 将 mul-interval 分 解 为 ?种 情况 ， 每 种 情况 中 所 需 的 乘法 都 不 超过 两 次 。 
请 根据 Ben 的 建议 重 写 这 个 过 程 。 
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在 排除 了 自己 程序 里 的 错误 之 后 ，Alyssa 给 一 个 可 能 用 户 演示 自己 的 程序 。 那 个 用 户 却说 
她 的 程序 解决 的 问题 根本 不 对 。 他 希望 能 够 有 一 个 程序 ， 可 以 用 于 处 理 那 种 用 一 个 中 间 值 和 
一 个 附加 误差 的 形式 表示 的 数 ， 也 就 是 说 ， 希 望 程序 能 处 理 3.5 +0.15 而 不 是 [3.35 3.65], 
Alyssa 回 到 自己 的 办 公 桌 来 纠正 这 一 问题 ， 另 外 提供 了 一 个 构造 符 和 一 个 选择 符 ; 

(define (make-center-width c w) 


(make-interval (- c w) (+ c w))) 


(define (center i) 
(/ (+ (lower-bound i) (upper-bound i)) 2)) 


(define {width i) 
(/ (- (upper-bound i) (lower-bound i)) 2)) | 

不 幸 的 是 ，Aiyssa 的 大 部 分 用 户 是 工程 师 ， 现 实 中 的 工程 师 经 常 遇 到 只 有 很 小 非 准 确 性 的 
测量 值 ， 而 且 章 芝 契 以 区 则 宽度 对 区 间 中 点 的 比值 作为 度量 值 。 他 们 通常 用 的 十 基 于 有 关 部 
件 的 参数 的 百分数 描述 的 误差 ， 就 像 前 面 描 述 电 阻 值 的 那 种 方式 一 样 。 

练习 <.12 请 定义 一 个 构造 函数 nake-center-percent， 它 以 一 个 中 心 点 和 一 个 百 分 
比 为 参数 ， 产 生出 所 需要 的 区 间 。 你 还 需要 定义 选择 函数 Pezcent， 通过 它 可 以 得 到 给 定 区 
间 的 百分数 误差， 选择 范 数 centez 与 前 面 定 义 的 一 样 。 

练习 2.13 ”请 证 明 ， 在 误差 为 很 小 的 百分数 的 条 件 下 ， 存在 着 一 个 简单 公式 ， 利用 它 可 以 
从 两 个 被 乘 区 间 的 误差 算出 乘积 的 百分数 误差 值 。 你 可 以 假定 所 有 的 数 为 正 ， 以 简化 这 一 问题 。 


经 过 相当 多 的 工作 之 后 ，Alyssa P. Hacker 发 布 了 她 的 最 后 系统 。 几 年 之 后 ， 在 她 已 经 忘 

记 了 这 个 系统 之 后 ， 接 到 了 一 个 愤怒 的 用 户 Lem E. Tweakit 的 发 疯 式 的 电话 。 看 起 来 Lem 注 意 
到 并 联 电阻 的 公式 可 以 写成 两 个 代数 上 等 价 的 公式 : 
RR, 


和 
| 
I/R, +1/R, 


这 样 他 就 写 了 两 个 程序 ， 它 们 以 不 同 的 方式 计算 并 联 电阻 值 : 


(define (parl rl r2) 
‘(div-interval (mul-interval ri r2) 
{add-interval rl r2))) 


(define (par2 rl r2) 
(let ((one (make-interval 1 .1))) 
(div-interval one 
(add-interval (div-interval one rl) 
(div-interval one r2))))) 


Lem 抱怨 说 ， Alyssa 程 序 对 两 种 不 同 计算 方法 合 出 不 同 的 值 。 这 确实 是 很 严重 的 抱怨 

练习 2.14 ”请 确认 Lem 是 对 的 。 请 你 用 各 种 不 同 的 算术 表达 式 来 检查 这 一 系统 的 行 了 为 。 请 
做 出 两 个 区 间 4 和 B ， 并 用 它们 计算 表达 式 4/4 和 A4/B 。 如 果 所 用 区 间 的 宽度 相对 于 中 心 值 取 很 
小 百分数 ， 你 将 会 得 到 更 多 的 认识 。 请 检查 对 于 中 心 一 百分比 形式 ( 见 练习 2.12) 进行 计算 


练习 <.15 另 一 用 户 Eva Lu Ator 也 注意 到 了 由 不 同 的 等 价 代数 表达 却 计 算出 的 区 间 的 差异 。 
她 说 ， 如 果 一 个 公式 可 以 写成 一 种 形式 ， 其 中 其 有 非 维 确 性 的 变 重 不 重复 韦 现 ， 那么 Alyssa 
的 系统 产生 出 的 区 间 的 限界 更 紧 一 些 。 她 说 ， 因 此 ， 在 计算 并 联 电 阻 时 ,parz2 是 比 parl 
“更 好 的 ”程序 。 她 说 得 对 吗 ? 

练习 2.16 请 给 出 一 个 一 般 性 的 解释 ， 为 什么 等 价 的 代数 表达 式 可 能 导致 不 同 计算 结 
果 ? 你 能 设计 出 一 个 区 间 算 术 包 ， 使 之 设 有 这 种 缺陷 吗 ? 或 者 这 件 事 情 根 本 不 可 能 做 到 ? 
(警告 : 这 个 问题 非常 难 .) 


2.2 层次 性 数据 和 闭 包 性质 


正如 在 前 面 已 经 看 到 的 ， 序 对 为 我 们 提供 了 一 种 用 于 构造 复合 数据 的 基本 “ 粘 接 剂 。 
2-2 展 示 的 是 一 种 以 形象 的 形式 看 序 对 的 标准 方式 ， 其 pr B 
中 的 序 对 是 通过 (cons 1 2) ERR. EX PRA S 
子 和 指针 表示 方式 中 ， 每 个 对 象 表示 为 一 个 指 问 盒子 的 
指针 。 与 基本 对 象 相对 应 的 盒子 里 包含 着 该 对 象 的 表示 ， 
例如 ， 表示 数 的 例子 里 就 放 着 那个 具体 的 数 。 用 于 表示 W22 (cons 1 2) 的 盒子 和 指针 袁 示 
序 对 的 盒子 实际 上 是 一 对 方 盒 ， 其 中 左边 的 方 盒 里 放 着 
序 对 的 car (指向 car 的 指针 )， 右 边 部 分 放 着 相应 的 cqar。 
前 面 已 经 看 到 了 ， 我 们 不 仅 可 以 用 cons 去 组 合 起 各 种 数值 ， 也 可 以 用 它 去 组 合 起 序 对 
(你 在 做 练习 2.2 和 练习 2.3 时 已 经 ， 或 者 说 应 该 ， 熟 悉 这 一 情况 了 )。 作 为 这 种 情况 的 推论 ， 厅 
对 就 是 一 种 通用 的 建筑 砌 块 ， 通 过 它 可 以 构造 起 所 有 不 同 种 类 的 数据 结构 来 。 图 2-3 显 示 的 古 
组 合 起 数值 1 、2、3 、4 的 两 种 不 同方 式 。 





(cons (cons 1 2) (cons {cons l 
(cons 3 4)) {cons 2 3)) 
4) 


图 2-3 用 序 对 组 合 起 数值 1、2 3, ATK 


我 们 可 以 建立 元 素 本 身 也 是 序 对 的 序 对 ， 这 就 是 表 结 构 得 以 作为 一 种 表示 工具 的 根本 基 
础 。 我 们 将 这 种 能 力 称 为 cons 的 闭 包 性 质 。 一 般 说 ， 某 种 组 合 数据 对 象 的 操作 满足 财 包 性 质 ， 
那 就 是 说 ， 通 过 它 组 合 起 数据 对 象 得 到 的 结果 本 身 还 可 以 通过 同样 的 操作 再 进行 组 合 ”。 闭 包 


2 术语 “ 闲 包 ”来 自 抽象 代数 。 在 抽象 代数 里 ， 一 集 元 素 称 为 在 某 个 运算 (操作 ) 之 下 封 亲 ， 如 果 将 该 运算 应 
用 于 这 一 集合 中 的 元 素 ， 产 生出 的 仍然 是 该 集合 里 的 元 素 。 然 而 Lisp 社 团 (很 不 幸 ) 还 用 术语 “ 闭 包 ” 描 述 
另 一 个 与 此 毫 不 相干 的 概念 ， 闭 包 也 是 一 种 为 表示 带 有 自由 变量 的 过 程 而 用 的 实现 技术 。 本 书 中 没有 采用 闭 
包 这 一 术语 的 第 二 种 意义 。 
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性 质 世 任何 一 种 组 合 功能 的 威力 的 关键 要 素 ， 因 为 它 使 我 们 能 够 建立 起 层次 性 的 结构 ， 这 种 
结构 由 一 些 部 分 构成 ， 而 其 中 的 各 个 部 分 又 是 由 它们 的 部 分 构成 ， 并 且 可 以 如 此 继续 下 去 。 

从 第 1 章 的 开始 ， 我 们 在 处 理 过 程 的 问题 中 就 利用 了 闭 包 性 质 ， 而 且 是 最 本 质 性 的 东西 ， 
因为 除了 最 简单 的 程序 外 ， 所 有 程序 都 依赖 于 一 个 事实 : 组 合式 的 成 员 本 身 还 可 以 是 组 合式 。 
fox, 我们 要 着 手 研 究 复合 数据 的 困 包 所 引出 的 问题 。 这 里 将 要 描述 一 些 用 起 来 很 方 
便 的 技术 ， 包 括 用 序 对 来 表示 序列 和 树 。 还 要 给 出 一 种 能 以 某 种 很 生动 的 形式 显示 闭 包 的 图 
形 语言 ”。 | 


2.2.1 序列 的 表示 


利用 序 对 可 以 构造 出 的 一 类 有 用 结构 是 序列 一 一 一 批 数 据 对 象 的 一 种 有 序 汇 集 。 显 然 ， 采 
用 序 对 表示 序列 的 方式 很 多 ， 一 种 最 直接 的 表示 方式 如 图 2-4 所 示 ， 其 中 用 一 个 序 对 的 链条 表 
示 出 序列 1 , 2，3, 4， 在 这 里 ， 每 个 序 对 的 car 部 分 对 应 于 这 个 链 中 的 条 目 ，cdr 则 是 链 中 下 
一 个 序 对 。 最 后 的 一 个 序 对 的 cdr 用 一 个 能 辩 明 不 是 序 对 的 值 表示 ， 标 明 序 列 的 结束 ， 在 盒 
子 指针 图 中 用 一 条 对 角 线 表示 ， 在 程序 里 用 变量 nil 的 值 。 整 个 序列 可 以 通过 舱 套 的 cons 操 
作 构 井 起 来 : 





图 2-4 将 序列 1 2, 3, 42 AAA BE 


(cons 1l 
(cons 2 
(cons 3 
(cons 4 nil)))) 


通过 骨 套 的 cons 形 成 的 这 样 一 个 序 对 的 序列 称 为 一 个 表 ，Scheme AH MAH. fet 
了 一 个 基本 操作 1ist”*， 上 面 序列 也 可 以 通过 (list 1 2 3 4) 产生 。 一 般 说 : 


(list <a,> <a,> ... <a,>) 
等 价 于 : 
(cons <a> (cons <a,> (cons ... (cons <a,> nil) .--))) 


”种 组 合 方法 应 该 满足 闭 包 的 要 求 是 一 种 很 明显 的 想法 。 然 而 ,许多 常见 程序 设计 语言 所 提供 的 数据 组 合 机 
制 都 不 满足 这 一 性 质 ， 或 者 是 使 得 其 中 的 闲 包 性 质 很 难 利 用 。 在 Fortran 或 Basic 里， 组 合 数据 的 一 种 典型 方式 
是 将 它们 放 入 数组 一 -但 人 却 不 能 做 出 元 素 本 身 是 数组 的 数组 。Pascal 和 C 人 允许 结构 的 元 素 又 是 结构 ， 但 却 要 
求 程序 员 去 显 式 地 操作 指针 ， 并 限制 性 地 要 求 结构 的 每 个 域 都 只 能 包含 预先 定义 好 形式 的 元 素 。 与 Lisp 及 其 
序 对 不 同 ， 这 些 语言 都 没有 内 部 的 通用 性 粘 接 剂 ， 因 此 无 法 以 统一 的 方式 去 操作 复合 数据 。 这 一 限制 也 就 是 
Alan Perlis 在 本 书 前 言 中 的 评论 的 背景 ,: “在 Pascal 里 ， 过 多 的 可 声明 数据 结构 导致 了 函数 的 专用 化 ， 这 就 造 
成 了 对 合作 的 阻碍 和 惩罚 。 让 100 个 函数 在 一 个 数据 结构 上 操作 ， 远 比 让 10 个 函数 在 10 个 数据 结构 上 操作 更 好 
ie” 

4 在 这 本 书 里 ， 我 们 用 术语 表 专 指 那些 有 表 尾 结束 标记 的 序 对 的 链 。 与 此 相对 应 ， 用 术语 表 结 构 指 所 有 的 由 序 
对 构造 起 来 的 数据 结构 ， 而 不 仅 是 表 。 
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Lisp 系 统 通 常用 元 内 序列 的 形式 打印 出 表 ， 外 面 用 括号 括 起 。 按 照 这 种 方式 ， 图 2-4 里 的 数据 
对 象 就 将 打印 为 (1 2 3 4): 
(define one-through-four (list 1 2 3 4)) 


one-~through-four 
(1 2 3 4) 


请 当心 ， 不 要 将 表达 式 (list 1 2 3 4) AK (1 2 3 4) HET. MMe PEN WH 
表达 式 求 值得 到 的 结果 。 如 果 想 去 求 值 表达 式 (1 2 3 4), RRS RANA Heel yA 
参数 2 、3 和 4 ， 这 时 会 发 出 一 个 出 错 信和 号。 

我 们 可 以 将 car 看 作 选 取 表 的 第 一 项 的 操作 ， 将 cdr 看 作 是 选取 表 中 除去 第 一 项 之 后 剩 下 
的 所 有 项 形成 的 子 表 。carz 和 cdr 的 戏 套 应 用 可 以 取出 一 个 表 里 的 第 二 、 第 三 以 及 后 面 的 各 项 -~ 。 
构造 符 cons 可 用 于 构造 表 ， 它 在 原 有 的 表 前 面 增加 一 个 元 素 : 

(car one-through-four) 


1 


(cdr one-through-four ) 
(2 3 4) 


(car (cdr one-through-four) ) 
2 


(cons 10 one-through-four) 
(10 1 2 3 4) 


(cons 5 one-through-four) 
(5 12 3 4) 


nil 的 值 用 于 表示 序 对 的 链 结束 ， 它 也 可 以 当 作 一 个 不 包含 任何 元 素 的 序列 ， 空 表 。 单 词 
cil” 是 拉丁 词汇 “nihil” 的 缩写 ， 这 个 拉丁 词汇 表示 “什么 也 没有 ”"。 


RIRE 

利用 序 对 将 元 素 的 序列 表示 为 表 之 后 ， 我 们 就 可 以 使 用 常规 的 程序 设计 技术 ， 通过 顺序 
“向 下 cdr” 表 的 方式 完成 对 表 的 各 种 操作 了 。 例 如， 下 面 的 过 程 1ist-ref 的 实际 参数 蚌 一 
个 表 和 一 个 数 4+， 它 返回 这 个 表 中 的 第 n 个 项 。 这 里 人 人们 习惯 令 表 元 素 的 编号 从 0 开始 。 计 算 
1ist-~ref 的 方法 如 下 : 

。 对 nn 二 0，1list-ref 应 返回 表 的 car。 

。 厂 则 ，list-ref 返回 表 的 cdr 的 第 n 一 1) PM, 


”5 因为 凰 讲 地 应 用 car 和 cdr 也 会 感到 很 麻烦 ， 所 以 许 多 Lisp 方 言 都 提供 了 它们 的 缩写 形式 ， 例 如 : 
(cadr <arg>) = (car (cdr <arg> )) 


所 有 这 类 过 程 的 名 字 都 以 c 开 头 ， 以 上 结束 ， 其 中 每 个 a 表 示 一 个 car Bp, wraRm—TCORIE, RIE 
们 在 名 字 中 出 现 的 顺序 应 用 。 读 car 和 cdz 的 方式 则 继续 保留 ， 因 为 像 cadz 这 样 的 简单 组 合 还 是 可 以 发 音 的 。 

x% 值得 提出 的 是 ， 在 Lisp 方 言 的 标准 化 方面 ， 人 们 已 经 令 人 气 馒 地 将 许 许 多 多 精力 花 在 一 些 毫 无 意义 的 字面 问 
题 的 争论 上 : nil 应 该 是 个 普通 的 名 字 吗 ? nil 的 值 应 该 算是 一 个 符号 吗 ? 它 应 该 算是 一 个 表 吗 ? 它 应 该 算 
一 个 序 对 吗 ? 在 Scheme 里 nil 是 个 普通 的 名 字 ， 在 本 节 里 被 我 们 用 作 一 个 变量 ， 其 值 就 是 表 尾 标记 (正如 
true 是 个 普通 变量 ， 具 有 真 的 值 一 样 ) 。Lisp 的 其 他 方言 ， 包 括 Common Lisp ， 都 将 ni11 作 为 一 个 特殊 符号 。 
本 书 的 作者 参加 过 许多 语言 标准 化 方面 的 无 益 口 角 ， 真 是 希望 完全 避免 这 些 东西 。 到 2.3 节 引进 了 引号 之 后 ， 
我 们 就 将 一 直 用 O 表示 空 表 ， 完 全 抛弃 变量 ni1。 
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(define (list-ref items n) 
(if (=n 0) 
(car items) 
(list-ref (cdr items) (- n 1)))) 


(define squares (list 1 4 9 16 25)) 


({list-ref squares 3) 
16 


我 们 经 常 要 向 下 cdr 整 个 的 表 ， 为 了 帮助 做 好 这 件 事 ，Scheme 包 含 一 个 基本 操作 nul1?， 
用 于 检查 参数 是 不 是 空 表 。 返 回 表 中 项 数 的 过 程 Length 可 以 说 明 这 一 典型 应 用 模式 : 
(define (length items) 
(if (null? items) 


0 
(+ 1 (length (cdr items))))})) 


(define odds (list 1 3 5 7)) 


(length odds) 
4 


过 程 1ength 实 现 一 种 简单 的 递归 方案 ， 其 中 的 递归 步 又 定 : 
* 任意 一 个 表 的 length 就 是 这 个 表 的 cdr 的 length 加 一 。 
顺序 地 这 样 应 用 ， 直 至 达到 了 基础 情况 : 
*。 空 表 的 1ength 是 0 。 
我 们 也 可 以 用 一 种 迭代 方式 来 计算 length: 
(define (length items) 
(define (length-iter a count) 
(if (null? a) 
count 
(length~iter (cdr a) (+ 1 count)))) 
(length-iter items 0)} 
另 一 常用 程序 设计 技术 是 在 向 下 cdr 一 个 表 的 过 程 中 “向 上 cons ”出 一 个 结果 表 ， 例 如 
过 程 append ， 它 以 两 个 表 为 参数 ， 用 它们 的 元 素 组 合成 一 个 新 表 : 
{append squares odds) 


(1 4 9 16 25135 7) 


(append odds squares) 
(1357149 16 25) 
append 也 是 用 一 种 递归 方案 实现 的 。 要 得 到 表 1ist1 和 1ist2 的 append， 按 如 下 方式 做 : 
. iRlisti EZR, AAMelist2, 
。 否 则 应 先 做 出 List1l 的 cdz 和 1List2 的 appenda ， 而 后 再 将 11ISst1 的 car 通 过 cons 加 到 


结果 的 前 面 : 
(define (append listl list2) 
(if (null? listl) 
list2 
(cons (car listl) (append (cdr listl) list2)))) 


2.2 FREE GAR 69 


练习 2.1/ ”请 定义 出 过 程 1ast-pair， 它 返回 只 包含 给 定 ( 非 空 ) 表 里 最 后 一 个 元 素 的 
表 : 

(last-pair (list 23 72 149 34)) 

(34) 

练习 2.18 ii Cinch reverse, ELA-TRABR, ， 返 回 的 表 中 所 包含 的 元 素 与 参 
数 表 相 同 ， 但 排列 顺序 与 参数 表 相 反 : 

(reverse (list 1 4 9 16 25)) 

(25 16 9 4 1) 

练习 2.19 ”请 考虑 1.2.2 节 的 兑换 零钱 方式 计数 程序 。 如 果 能 够 轻而易举 地 改变 程序 里 所 
用 的 兑换 币 种 就 更 好 了 。 璧 如 说 ， 那 样 我 们 就 能 计算 出 1 英镑 的 不 同 兑换 方式 的 数目 。 在 写 前 
面 那个 程序 时 ， 有 关 币 种 的 知识 中 有 一 部 分 出 现在 过 程 first-denomination 里 ， 另 一 部 
分 出 现在 过 程 里 count-change ( 它 知 道 有 5 种 U.S. 硬 币 )。 如 采 能 够 用 一 个 表 来 提供 可 用 寺 
名 换 的 硬币 就 更 好 了 了。 

我 们 希望 重 写 出 过 程 cc ， 使 其 第 二 个 参数 是 一 个 可 用 硬币 的 币值 表 ， 而 不 是 一 个 指定 可 
用 硬币 种 类 的 整数 。 而 后 我 们 就 可 以 针对 各 种 货币 定义 出 一 些 表 : 

(define us-coins (list 50 25 10 5 1)) 


{define uk-coins (list 100 50 20 10 5 2 1 Q.5)) 


SR a FR Te A at oP A Acc : 
(cc 100 us-coins) 
292 
为 了 做 到 这 件 事 ， 我 们 需要 对 程序 cc 做 一 些 修改 。 它 仍然 具有 同样 的 形式 ， 但 将 以 不 同 的 方 
式 访 问 自己 的 第 二 个 参数 ， 如 下 面 所 示 : 
{define (cc amount coin-values) 
(cond {{= amount 0) 1) 
((or (< amount 0) (no-more? coin-values)) 0) 
(else 
(+ (cc amount 
(except-first-denomination coin-values) ) 
(cc (- amount 
(first-denomination coin-values) ) 


coin-values))))) 

请 基于 表 结 构 上 的 基本 操作 ， 定 义 出 过 程 first-denomination. except-first- 
denominationfiino-more?, #coin-values 的 排列 顺序 会 影响 cc 给 出 的 回答 吗 ? 为 什 
么 ? 

练习 2.20 “过 程 +、* 和 1ist 可 以 取 任 意 个 数 的 实际 参数 。 定 义 这 类 过 程 的 一 种 方式 是 
采用 一 种 带 点 尾部 记 法 形式 的 define。 在 一 个 过 程 定义 中 ， 如 果 在 形式 参数 表 的 最 后 一 个 参 
数 之 前 有 一 个 点 号 ， 那 就 表明 ， 当 这 一 过 程 被 实际 调用 时 ， 前 面 各 个 形式 参数 (如 果 有 的 话 ) 
将 以 前 面 的 各 个 实际 参数 为 值 ， 与 平常 一 样 。 但 最 后 一 个 形式 参数 将 以 所 有 剩 下 的 实际 参数 
的 表 为 值 。 例 如 ， 假 者 我 们 定义 本 : 


(define (f x y . z) <body>) 
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过 程 上 就 可 以 用 两 个 以 上 的 参数 调用 。 如 果 求 值 : 
(£12345 6) 


那么 在 于 的 体 里 ，x 将 是 1 ，Y 将 是 2， 而 z 将 是 表 (3 4 5 6), 给 了 定义 : 


(define {9 . w) <body>) 


过 程 9 可 以 用 0 个 或 多 个 参数 调用 。 如 果 求 值 : 


(g 123 4 5 6) 


那么 在 9 的 体 里 ，w 将 是 表 (1 23 4 5 6)” 

请 米 用 这 种 记 法 形式 写 出 过 程 sSame-parity， 它 以 一 个 或 者 多 个 整数 为 参数 ， 返 回 所 有 
与 其 第 一 个 参数 有 着 同样 奇偶 性 的 参数 形成 的 表 。 例 如 : 

(same-parity 1 2 3 45 6 7) 

(1 3 5 7) 


(same-parity 2 3 4 5 6 7) 
(2 4 6) 


对 表 的 映射 
一 个 特别 有 用 的 操作 是 将 某 种 变换 应 用 于 一 个 表 的 所 有 元 素 ， 得 到 所 有 结果 构成 的 表 。 
举例 来 说 ， 下 面 过 程 将 一 个 表 里 的 所 有 元 素 按 给 定 因 子 做 一 次 缩放 : 
(define (scale-list items factor) 
(if (null? items) 
nil | 
(cons (* (car items) factor) 
(scale-list (cdr items) factor)))) 


(scale-list (list 12 3 4 5) 10) 
(10 20 30 40 50) 


我 们 可 以 抽象 出 这 一 具有 一 般 性 的 想法 ， 将 其 中 的 公共 模式 表述 为 一 个 高 阶 过 程 ， 就 像 
1.3 节 里 所 做 的 那样 。 这 一 高 险 过 程 称 为 map ， 它 有 一 个 过 程 参 数 和 一 个 表 参 数 ， 返 回 将 这 一 
过 程 应 用 于 表 中 各 个 元 素 得 到 的 结果 形成 的 表 ”。 

{define (map proc items) 

{if (null? items) 


”用 lambda 方 式 定 义 f 和 9 ， 应 该 写 


(define f (lambda (x y . z) <body>)) 
(define g (lambda w <dody>}) 


8 Scheme 标准 提供 了 一 个 map 过 程 ， 它 比 这 里 描述 的 过 程 更 具 一 般 性 。 这 个 更 一 般 的 map 以 一 个 RF SRO 
程 和 nn 个 表 为 人 参数， 将 这 个 过 程 应 用 于 所 有 表 的 第 一 个 元 素 ， 而 后 应 用 十 它们 的 第 二 个 元 素 ， 如 此 下 去 ， 最 后 
返回 所 有 结果 的 表 。 例 如 : 

(map + (list 1 2 3) (list 40 50 60) (list 700 800 900)) 
(741 852 963) 


(map (lambda (x y) (+ x (* 2 y))) 
(list 1 2 3) 
(list 4 5 6)) 

(9 12 15) 
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nil 
(cons (proc (car items) ) 
(map proc (cdr items))))) 


(map abs (list -10 2.5 -11.6 17)) 
(10 2.5 11.6 17) 


(map (lambda (x) {* x x)) 
(list 1 2 3 4)) 
(1 4 9 16) 


现在 我 们 可 以 用 map 给 出 scale-1List 的 一 个 新 定义 : 
(define (scale-list items factor) : 
(map (lambda (x) (* x factor)) 
items ) ) 
map 古 一 种 很 重要 的 结构 ， 不 仅 因为 它 找 表 了 一 种 公共 模式 ， 而 且 因 为 它 建 立 起 了 一 种 
处 理 表 的 高 层 抽 象 。 在 scale-1list 原 来 的 定义 里 ， 程 序 的 递归 结构 将 人 的 注意 力 吸 引 到 对 
于 表 中 未 个 元 素 的 处 理 上 。 通 过 map 定 义 scale-1list 抑 制 了 这 种 细节 层面 上 的 情况 ， 强 调 
的 是 从 元 素 表 到 结果 表 的 一 个 缩放 变换 。 这 两 种 定义 形式 之 间 的 差异 ， 并 不 在 于 计算 机 会 执 
行 不 同 的 计算 过 程 (其 实 不 会 )， 而 在 于 我 们 对 这 同一 个 过 程 的 不 同 思考 方式 。 从 作用 上 看 ， 
map 帮 我 们 建 起 了 一 层 抽 象 屏障 ， 将 实现 表 变 换 的 过 程 的 实现 ， 与 如 何 提取 表 中 元 素 以 及 组 
合 结果 的 细 市 隔离 开 。 与 图 2-1 里 所 示 的 屏障 类 似 ， 这 种 抽象 也 提供 了 新 的 灵活 性 ， 使 我 们 有 
可 能 在 保持 从 序列 到 序列 的 变换 操作 框架 的 同时 ， 改 变 序 列 实现 的 低层 细节 。2.2.3 区 将 把 序 
询 的 这 种 使 用 方式 扩展 为 一 种 组 织 程序 的 框架 。 
练习 2.21 过 程 square-~-1ist 以 一 个 数值 表 为 参数 ， 返 回 每 个 数 的 平方 构成 的 表 : 
(square-list (list 1 2 3 4)) 
(1 49 16) 
Tiesquare-list HWA 2X, WAR Aik) AIAN scm E fl 
(define (square-list items) 
(It (null? items) 
niil 
(cons <??> <??>))) 
(define (square-list items) 
(map <??> <??>)) 
练习 2.22 Louis Reasoner 试 图 重 写 练 习 2.21 的 第 一 个 square-1ist 过 程 ， 希 望 使 它 能 
生成 一 个 友人 代 计算 过 程 : 
(define (square-list items) 
{define (iter things answer) 
(if (null? things) 
answer 
(iter {cdr things) 
(cons (Square (car things)) 
answer)))) 


{iter items nil)) 


但 是 很 不 幸 ， 在 按 这 种 方式 定义 出 的 sgquare-1ist 产 生出 的 结果 表 中 ， 元 素 的 顺序 正好 与 


我 们 所 需要 的 相反 。 为 什么 ? 
Louis 又 试 着 修正 其 程序 ， 交 换 了 cons 的 参数 : 
{define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
{iter (cdr things) 
(cons answer 
(square (car things)))))) 


(iter items nil)) 
但 还 是 不 行 。 请 解释 为 什么 。 
练习 2.23 ”过 程 for-each 与 nap 类 似 ， 它 以 一 个 过 程 和 一 个 元 素 表 为 参数 ， 但 它 并 不 返 
回 结果 的 表 ， 只 是 将 这 一 过 程 从 左 到 右 应 用 于 各 个 元 素 ， 将 过 程 应 用 于 元 素 得 到 的 值 都 丢掉 
不 用 。for-each 通 常用 于 那些 执行 了 某 些 动 作 的 过 程 ， 如 打印 等 。 看 下 面 例子 : 


(for-each (lambda (x) (newline) (display x)) 
{list 57 321 88)) 

57 

321 

88 


由 for-each 的 调用 返回 的 值 (上 面 没 有 显示 ) 可 以 是 某 种 任意 的 东西 ， 例 如 逻辑 值 真 。 请 
给 出 一 个 for-each 的 实现 。 


2.2.2 层次 性 结构 


将 表 作 为 序列 的 表示 方式 ， 可 以 很 自然 地 推广 到 表示 那些 元 素 本 身 也 是 序列 的 序列 。 举 
例 来 说 ， 我 们 可 以 认为 对 象 ((1 2) 3 4) 是 通过 下 面 方式 构造 出 来 的 : 

(cons (list 1 2) (list 3 4)) 
这 是 一 个 包含 三 个 项 的 表 ， 其 中 的 第 一 项 本 身 又 是 表 (1 2)。 这 一 情况 也 由 解释 器 的 打印 形 
式 所 肯定 。 图 2-5 用 序 对 的 语言 展示 出 这 一 结构 的 表示 形式 。 


(3 4) 


Wi er 


“Sty ti 四 


图 2-5 由 (cons (list 1 2) (list 3 4)) 形成 的 结构 


认识 这 种 元 素 本 身 也 是 序列 的 序列 的 另 一 种 方式 ， 是 把 它们 看 作 树 。 疗 列 里 的 元 素 就 十 


树 的 分 支 ， 而 那些 本 身 也 是 序列 的 元 素 就 形成 了 树 中 的 子 树 。 图 2-6 显 示 的 是 将 图 2-3 的 结构 看 
作 树 的 情况 。 ((1 2) 3 4) 

递归 是 处 理 树 结构 的 一 种 很 自然 的 工具 ， 因 为 我 们 常常 
可 以 将 对 于 树 的 操作 归结 为 对 它们 的 分 支 的 操作 ， 再 将 这 种 


操作 归结 为 对 分 支 的 分 支 的 操作 ， 如 此 下 去 ， 直 至 达到 了 树 ” “ 

的 叶子 。 作 为 例子 ， 请 比较 一 下 2.2.1 节 的 length 过 程 和 下 ， 
面 的 count-leaves 过 程 ， 这 个 过 程 统计 出 一 棵 树 中 树叶 的 / 

数目 : 


图 2-6 将 图 2-5 中 的 表 结 构 看 作 树 


(define x (cons {list 1 2) (list 3 4))) 


(length x) 
3 


(count-leaves x) 
4 


(list x x) 
(((1 2) 3 4) ((1 2) 3 4)) 


(length (list x x)) 
2 


(count-leaves (list x x)) 
8 
为 了 实现 count-leaves ， 可 以 先 回忆 一 下 length 的 递归 方案 : 
。 表 x 的 length 是 x 的 cdr 的 length 加 一 。 
。 空 表 的 上 ength 生 0。 
count-leaves 的 递归 方案 与 此 类 似 ， 对 于 空 表 的 值 也 相间 : 
。 # Hj count-leaves #0, 
但 是 在 递归 步骤 中 ， 当 我 们 去 掉 一 个 表 的 car 时 ， 就 必须 注意 这 一 car 本 身 也 可 能 是 树 ， 其 树 
叶 也 需要 考虑 。 这 样 ， 正 确 的 归 约 步骤 应 该 是 : 
。 对 于 树 X 的 count-leaves 应 该 是 x 的 car 的 count-leaves 与 x 的 cdr 的 count~leaves 
之 和 。 | 
最 后 ， 在 通过 caz 达 到 一 个 实际 的 树叶 时 ， 我 们 还 需要 另 一 种 基本 情况 : 
。 -一 个 树叶 的 count-1Leaves 是 1 。 
为 了 有 助 于 写 出 树 上 的 各 种 递归 ，Scheme 提 供 了 基本 过 程 Paiz? ， 它 检查 其 参数 是 否 为 序 对 。 
下 面 就 是 我 们 完成 的 过 程 ”: 
(define (count-leaves x) 
{cond ((mull? x) 0) 
((not (pair? x)) 1) 


(else (+ (count-leaves (car x)) 
{count-leaves (cdr x)))))) 


32.24 ”假定 现在 要 求 值 表达 式 (list 1 (list 2 (list 3 4))), 请 给 出 由 解释 


x 在 这 个 定义 里 ，cond 的 前 两 个 子 句 的 顺序 非常 重要 ， 因 为 空 表 将 满足 h011? ,而 它 同 时 又 不 是 序 对 。 
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器 打印 出 的 结果 ， 给 出 与 之 对 应 的 盒子 指针 结构 ， 并 将 它 解释 为 一 棵 树 〈 参 见 图 2-06) 。 
练习 2.25 给 出 能 够 从 下 面 各 表 中 取出 7 的 car 和 cqdqzr 组 合 : 
(1 3 (5 7) 9) | 
((7)) 
(1 (2 (3 (4 (5 (6 7)))))) 
练习 2.26 假定 已 将 x 和 y 定 义 为 如 下 的 两 个 表 : 
(define x (list 1 2 3)) 
(define y (list 4 5 6)) 
解释 器 对 于 下 面 各 个 表达 式 将 打印 出 什么 结 琳 : 
(append x y) 
(cons x y) 
(list x y) 
练习 2.27 ”修改 练习 2.18 中 所 做 的 reverse 过 程 ， 得 到 一 个 deep-reverse 过 程 。 它 以 
一 个 表 为 参数 ， 返 回 另 一 个 表 作为 值 ， 结 果 表 中 的 元 素 反 转 过 来 ， 其 中 的 子 树 也 反 转 。 例 如 : 
(define x (list (list 1 2) (list 3 4))) 
((1 2) (3 4)) 
(reverse x) 


((3 4) (1 2)) 


(deep-reverse x) 
((4 3) (2 1)) 


练习 2.28 ” 写 一 个 过 程 Eringe ， 它 以 一 个 树 (表示 为 表 ) 为 参数 ， 返 回 一 个 表 ， 表 中 的 
元 素 是 这 棵 树 的 所 有 树 上 时， 按照 从 左 到 右 的 上 顺序。 例如 : 

(define x (list (list 1 2). (list 3 4))) 

(fringe x) 

(1 2 3 4) 

(fringe (list x x)) 

(123 412 3 å) 

练习 2.29 ”一 个 二 叉 活 动 体 由 两 个 分 支 组 成 ， 一 个 是 左 分 支 ， 另 一 个 是 右 分 支 。 每 个 分 
支 是 一 个 具有 确定 长 度 的 杆 ， 上 面 或 者 吊 着 一 个 重量 ， 或 者 吊 着 另 一 个 二 叉 活 动 体 。 我 们 可 
以 用 复合 数据 对 象 表 示 这 种 二 叉 活 动 体 ， 将 它 通过 其 两 个 分 支 构造 起 来 (例如 ， 使 用 11ist ). 


(define (make-mobile left right) 
(list left right)})) 


分 支 可 以 从 一 个 length ( 它 应 该 是 一 个 数 ) 再 加 上 一 个 structure 构 人造 出 来 ， 这 个 
structure 或 者 是 一 个 数 (表示 一 个 简单 重量 ) ， 或 者 是 另 一 个 活动 体 : 


(define (make-branch length structure) 
(list length structure) ) 


a) las AR AE eee left-branchfright-branch, ， 它 们 分 别 返 回 活动 体 的 两 
个 分 支 。 还 有 branch-length 和 branch-structure， 它们 返回 一 个 分 支 上 的 成 分 。 

b) 用 你 的 选择 函数 定义 过 程 total-weight ， 它 返回 一 个 活动 体 的 总 重量 。 

c) 一 个 活动 体 称 为 是 平衡 的 ， 如 果 其 左 分 支 的 力矩 等 于 其 右 分 支 的 力矩 (也 就 是 说 ， 如 
果 甚 左 杆 的 长 度 乘 以 吊 在 杆 上 的 重量 ， 等 于 这 个 活动 体 右边 的 同样 乘积 )， 而 且 在 其 每 个 分 支 
上 晶 着 的 子 活动 体 也 都 平衡 。 请 设计 一 个 过 程 ， 它 能 检查 一 个 二 又 活动 体 是 否 平衡 。 

d) 假定 我 们 改变 活动 体 的 表示 ， 采 用 下 Pe: 

(define (make-mobile left right) 


(cons left right)) 


(define (make-branch length structure) 


(cons length structure) ) 


你 需要 对 自己 的 程序 做 多 少 修改 ， 才 能 将 它 改 为 使 用 这 种 新 表示 ? 


对 树 的 映射 
map 是 处 理 序 列 的 一 种 强 有 力 抽 象 ， 与 此 类 似 ，map 与 递归 的 结合 也 是 处 理 树 的 一 种 中 有 
力 抽 象 。 举 例 来 说 ， 可 以 有 与 2.2.1 节 的 scale-1ist 类 似 的 scale-tree 过 程 ， 以 一 个 数值 
因子 和 一 棵 叶子 为 数值 的 树 作为 参数 ， 返 回 一 棵 具有 同样 形状 的 树 ， 树 中 的 每 个 数值 都 乘 以 
了 这 个 因子 。 对 于 scale~tree 的 递归 方案 也 与 count~leaves 的 类 似 : 
(define (scale-tree tree factor) 
(cond ((null? tree) nil) 
( (not (pair? tree)) (* tree factor)) 
(else (cons (scale-tree (car tree) factor) 
(scale-tree (cdr tree) factor))))}) 
(scale-tree (list 1 (list 2 (list 3 4) 5) {list 6 7)) 
10) 
(10 (20 (30 40) 50) (60 70)) 
实现 scale-tree 的 另 一 种 方法 是 将 树 看 成 子 树 的 序列 ， 并 对 它 使 用 map。 我 们 在 这 种 
序列 上 做 上 映射， 依次 对 各 棵 子 树 做 缩放 ， 并 返回 结果 的 表 。 对 于 基础 情况 ， 也 就 十 当 被 处 理 


的 树 是 树叶 时 ， 就 直接 用 因子 去 乘 它 : 


(define (scale-tree tree factor) 
(map (lambda (sub-tree) 
(if (pair? sub-tree) 
{(scale-tree sub-tree factor) 
{(* sub-tree factor))) 


tree) ) 
对 于 树 的 许多 操作 可 以 采用 类 似 方 式 ， 通过 序列 操作 和 递归 的 组 合 实现 
练习 2.30 ”请 定义 一 个 与 练习 2.21 中 square-1list 过 过程 类 们 的 square- ~tree;tf, th 
就 是 说 ， 它 应 该 具有 下 面 购 行为 : 


(square-tree 
(list l 
(list 2 (list 3 4) 5) 
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(list 6 7))) 
(1 (4 (9 16) 25) (36 49)) | 
请 以 两 种 方式 定义 square-tree ， 直 接 定义 〈 即 不 使 用 任何 高 阶 函 数 ) ， 以 及 使 用 map 和 递 
HEX., 
练习 2.31 将 你 在 练习 2.30 做 出 的 解答 进一步 抽象 ， 做 出 一 个 过 程 ， 使 它 的 性 质保 证 能 以 
下 面 形 式 定 义 Sdquare-tLree : | 


(define (Square-tree tree) (tree-map square tree) ) 


练习 2.32 ”我 们 可 以 将 一 个 集合 表示 为 一 个 元 素 互 不 相同 的 表 ， 因 此 就 可 以 将 一 个 集合 
的 所 有 子 集 表示 为 表 的 表 。 例 如 ， 假 定 集合 为 (1 2 3)， 它 的 所 有 子 集 的 集合 就 是 (() B) 
(2) (2 3) (1) (1 3) (1 2) (1 2 3))。 请 完成 下 面 的 过 程 定义 ， 它 生成 出 一 个 集合 的 
所 有 子 集 的 集合 。 请 解释 它 为 什么 能 完成 这 一 工作 。 
(define (subsets s) 
(if (null? s) 
(list nil) 
(let ((rest (subsets (cdr s)))) 
(append rest (map <??> rest))))) 


2.2.3 序列 作为 一 种 约定 的 界面 


我 们 一 直 强 调 数据 抽象 在 对 复合 数据 的 工作 中 的 作用 ， 借 助 这 种 思想 ， 我 们 就 能 设计 出 
不 会 被 数据 表示 的 细节 纠缠 的 程序 ， 使 程序 能 够 保持 很 好 的 弹性 ， 得 以 应 用 到 不 同 的 有 具体 表 
未 上 。 在 这 一 节 里 ,我 们 将 要 介绍 与 数据 结构 有 关 的 另 一 种 强 有 力 的 设计 原理 一 一 使 用 约定 
的 界面 。 

在 1.3 节 里 我 们 看 到 ， 可 以 通过 实现 为 高 阶 过 程 的 程序 抽象 ， 抓 住处 理 数 值 数据 的 一 些 程 
序 模式 。 要 在 复合 数据 上 工作 做 出 类 似 的 操作 ， 则 对 我 们 操控 数据 结构 的 方式 有 着 这 刻 的 依 
赖 性 。 举 个 例子 ， 考虑 下 面 与 2.2.2 节 中 count-leaves 过 程 类 似 的 过 程 ， 它 以 一 棵 树 为 参数 ， 
计算 出 那些 值 为 奇数 的 叶子 的 平方 和 : 

(define (sum-odd-squares tree) 

(cond ({(null? tree) 0) 
((not (pair? tree)) 
(if (odd? tree) (Square tree) 0)) 


(else (+ (sum-odd-squares (car tree)) 
({sum-odd-squares (cdr tree)))))) 


从 表面 上 看 ， 这 一 过 程 与 下 面 的 过 程 很 不 一 样 。 下 面 这 个 过 程 构造 出 的 是 所 有 偶数 的 斐 波 孝 
执 数 Fib(k) 的 一 个 表 ， 其 中 的 小 于 等 于 某 个 给 定 整 数 n: 


(define (even-fibs n) 
{define (next k) 
(if (> k n) 
nil 
(let ((f (fib k))) 
(if (even? f) 

(cons f (next (+ k 1))) 
(next (+ k 1)}))))) 
(next 0)) o 


虽然 这 两 个 过 程 在 结构 上 差异 非常 大 ， 但 是 对 于 两 个 计算 的 抽象 描述 却 会 揭示 出 它们 之 
间 极 大 的 相似 性 。 第 一 个 程序 : 
“。 枚 举 出 一 棵 树 的 树叶 ，. 
* 过 恋 它 们 ， 选 出 其 中 的 奇数 ， 
e 对 选 出 的 每 一 个 数 求 平方 ， 
*“ 用 + 累积 起 得 到 的 结果 ， 从 0 开始 。 
而 第 二 个 程序 : 
。 枚 举 从 0 到 nn 的 整数 ; 
。 对 每 个 整数 计算 相应 的 翡 波 那 契 数 
。 过 证 它们 ， 选 出 其 中 的 偶数 ， 
* 用 cons 累积 得 到 的 结果 ， 从 空 表 开 始 。 
信号 处 理工 程 师 们 可 能 会 发 现 ， 这 种 过 程 可 以 很 自然 地 用 流 过 一 些 级 联 的 处 理 步 驳 的 信 
号 的 方式 描述 ， 其 中 的 每 个 处 理 步 又 实现 程序 方案 中 的 一 个 部 分 ， 如 图 2-7 所 示 。 对 于 第 一 种 
情况 sum-odd-squares ， 我 们 从 一 个 枚 举 器 开始 ， 它 产生 出 由 给 定 的 树 的 所 有 树叶 组 成 
“信号 ”。 这 一 信号 流 过 一 个 过 滤器， 所 有 不 是 奇数 的 数 都 被 删除 了 。 这 样 得 到 的 信号 又 通过 
一 个 映射 ， 这 是 一 个 “转换 装置 ”， 它 将 square 过 程 应 用 于 每 个 匹 素 。 这 一 映射 的 输出 被 俩 
人 和 一 个 累积 器 ， 该 装置 用 + 将 得 到 的 所 有 元 素 组 合 起 来 ， 以 初始 的 0 开始 。even-fibs 的 工 


作 过 程 与 此 类 似 。 
filter: map: accumulate: 
odd? square +, 0 
enumerate: filter: accumulate: 
integers even? cons, () 


图 2-7 it#isum-odd-squares (上 ) 和 even-fibs (F) 
的 信号 流 图 揭示 出 这 两 个 程序 的 共性 


遗憾 的 是 ， 上 面 的 两 个 过 程 定义 并 没有 展现 出 这 种 信号 流 结构 。 璧 如 说 ， 如 果 仔 细 考 罕 
sum-odd-squares 过 程 ， 就 会 发 现 其 中 的 枚 举 工 作 部 分 地 由 检查 null? 和 pair? 实现 ， 部 
分 地 由 过 程 的 树 形 递归 结构 实现 。 与 此 类 似 ， 在 那些 检查 中 也 可 以 看 到 一 部 分 累积 工作 ， 另 
一 部 分 是 用 在 递归 中 的 加 法 。 一 般 而 言 ， 在 这 两 个 过 程 里 ， 没 有 一 个 部 分 正好 对 应 于 信号 流 
描述 中 的 某 一 要 素 。 我 们 的 两 个 过 程 采 用 不 同 的 方式 分 解 了 这 个 计算 ， 将 枚 举 工作 散布 在 程 
序 中 各 处 ， 并 将 它 与 映射 、 过 滤器 和 累积 器 混在 一 起 。 如 果 我 们 能 够 重新 组 织 这 一 程序 ， 使 
得 信号 流 结构 明显 表现 在 写 出 的 过 程 中 ， 将 会 大 大 提高 结果 代码 的 清晰 性 。 

序列 操作 | 

要 组 织 好 这 些 程序 ， 使 之 能 够 更 清晰 地 反应 上 面 信 号 流 的 结构 ， 最 关键 的 一 点 就 是 将 注 
意 力 集中 在 处 理 过 程 中 从 一 个 步骤 流向 下 一 个 步骤 的 “信号 ”。 如 果 我 们 用 一 些 表 来 表示 这 些 
信号 ， 那 么 就 可 以 利用 表 操 作 实 现 每 一 步骤 的 处 理 。 举 例 来 说 ， 我 们 可 以 用 2.2.1 节 的 map 过 






enumerate: 





tree leaves 










7 HHH 


ERM (eS Oe PAR AR : 
(map square (list 1 2 3 4 5)) 
(1 4 9 16 25) 


过 证 一 个 序列 ERE PEEP ECR, VAR Pm ie: 
(define (filter predicate sequence) 
{cond ((null? sequence) nil) 
( (predicate (car sequence) ) 
(cons (car sequence) 
(filter predicate (cdr sequence) ))) 
(else (filter predicate (cdr sequence))))) 


例如 ， 


(filter odd? (list 1 2 3 4 5)) 
(1 3 5) 


累积 工作 可 以 实现 如 下 : 


(define (accumulate op initial sequence) 
(if (null? sequence) 
initial 
(op (car sequence) 
(accumulate op initial (cdr sequence))))) 


(accumulate + 0 {list 1 2 3 4 5)) 
15 


(accumulate * 1 (list 1 2 3 4 5)) 
120 


(accumulate cons nil (list 1 2 3 4 5)) 
(1 23 4 5) 


剩 下 的 就 是 实现 有 关 的 信号 流 图 ， 枚 举 出 需要 处 理 的 数据 序列 。 对 于 even-f1bs， 我 们 
需要 生成 出 一 个 给 定 区 间 里 的 整数 序列 ， 这 一 序列 可 以 如 下 做 出 : 
(define (enumerate-interval low high) 
(if (> low high) 
nil 
(cons low (enumerate-interval (+ low 1) high)))) 


(enumerate-interval 2 7) 
(2 3 45 6 7) 


要 枚 举 出 一 棵 树 的 所 有 树叶 ， 则 可 以 用 : 


(define (enumerate-tree tree) 
(cond ((null? tree) nil) 
( (not (pair? tree)) (list tree)) 
(else (append (enumerate-tree (car tree)) 
(enumerate-tree (cdr tree)))))) 


(enumerate-tree (list 1 (list 2 (list 3 4)) 5)) 


0 注 实 际 上 就 是 练 sp Wait HEringe, CXBRERR TEE, EAT AWCE BEN TI BK 
的 一 个 组 成 部 分 。 
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SUE, RATE TAR E AS oe ARE HT Pia sum-odd-squares#leven-fibs 了。 
对 于 sum-odd-squares， 我 们 需要 枚 举 一 棵 树 的 树叶 序列 ， 过 滤 它 ， 只 留 下 序列 中 的 奇数 ， 
求 每 个 元 素 的 平方 ， 而 后 加 起 得 到 的 结 朱 : 
(define (sum-odd-squares tree) 
(accumulate + 
0 
(map square 
(filter odd? 
(enumerate-tree tree))))) 


对 于 eVven-fibs， 我 们 需要 枚 从 出 从 0 到 n 的 所 有 整数 ， PR TRE BE AB SEU AD SE M 
BETERE PRP, RARE TRE: 
(define (even-fibs n) 
(accumulate cons 
nil 
(filter even? 
(map fib 
(enumerate-interval 0 n))))) 

将 程序 表示 为 一 些 针 对 序列 的 操作 ， 这 样 做 的 价值 就 在 于 能 帮助 我 们 得 到 模块 化 的 程序 
设计 ， 也 就 是 说 ， 得 到 由 一 些 比较 独立 的 片段 的 组 合 构成 的 设计 。 通 过 提供 一 个 标准 部 件 的 
库 ， 并 使 这 些 部 件 都 有 着 一 些 能 以 各 种 灵活 方式 相互 连接 的 约定 界面 ， 将 能 进一步 推动 人 们 
去 做 模块 化 的 设计 。 | 

在 工程 设计 中 ， 模 块 化 结构 是 控制 复杂 性 的 一 种 威力 强大 的 策略 。 举 例 来 说 ， 在 真实 的 
言 号 处 理应 用 中 ， 设 计 者 通常 总 是 从 标准 化 的 过 滤器 和 变换 装置 族 中 选 出 一 些 东 西 ， 通 过 级 
联 的 方式 构造 出 各 种 系统 。 与 此 类 似 ， 序 列 操作 也 形成 了 一 个 可 以 混合 和 匹配 使 用 的 标准 的 
程序 元 素 库 。 例 如 ， 我 们 可 以 在 另 一 个 构造 前 站 + 1 个 斐 波 那 契 数 的 平方 的 程序 里 ， 使 用 取 目 
it Fsum-odd-squaresfpeven-fibsHHE : 

(define (list-fib-squares n) 

(accumulate cons 
nil 
(map square 
(map fib 
(enumerate-interval 0 n))))) 
(list-fib-squares 10) 
(0 1149 25 64 169 441 1156 3025) 


我 们 也 可 以 重新 安排 有 关 的 各 个 片段 ， 将 它们 用 在 产生 一 个 序列 中 所 有 奇数 的 平方 之 乘积 的 
计算 里 : 


(define (product-of-squares-of-odd-elements sequence) 
(accumulate * 
1 
(Map square 
(filter odd? sequence) ))) 


(product-of-squares-of-~-odd-elements (list 1 2 3 4 5)) 
225 


我 们 同样 可 以 采用 序列 操作 的 方式 ， 重 新 去 形式 化 各 种 常规 的 数据 处 理应 用 。 假 定 有 一 
个 人 事 记 录 的 序列 ， 现 在 锅 望 找 出 其 中 菏 水 最 高 的 程序 员 的 工资 数额 。 假 定 现在 有 一 个 选择 
国 数 salary 返 回 记 录 中 的 工资 数 ， 另 有 谓词 przogrammer? 检 查 茶 个 记录 契 不 丰 程 序 员 ， 此 
时 我 们 就 可 以 写 : 
(define (salary-of-highest-paid-programmer records) 
(accumulate max 
0 


(map salary 
{filter programmer? records)))) 


这 些 例子 给 了 我 们 一 些 启发 ， 范 围 广大 的 许多 操作 都 可 以 表述 为 序列 操作 “。 

在 这 里 ， 用 表 实 现 的 序列 被 作为 一 种 方便 的 界面 ， 我 们 可 以 利用 这 种 界面 去 组 合 起 各 种 
处 理 模块 。 进 一 步 说 ， 如 果 以 序列 作为 所 用 的 统一 表示 结构 ， 我 们 就 能 将 程序 对 于 数据 结构 
的 依赖 性 局 限 到 不 多 的 几 个 序列 操作 上 。 通 过 修改 这 些 操作 ， 就 可 以 在 序列 的 不 同 表示 之 间 
转换 ， 并 保持 程序 的 整个 设计 不 变 。 在 3.5 节 里 还 要 继续 探索 这 方面 的 能 力 ， 那 时 将 把 序列 处 
理 的 范 型 推广 到 无 穷 序 列 。 

练习 2.33 ”请 填充 下 面 缺 失 的 表达 式 ， 完 成 将 一 些 基 本 的 表 操作 看 作 累 积 的 定义 : 

{define (map p sequence) 


(accumulate (lambda (x y) <??>) nil sequence) ) 


(define (append seql seq2) 
{accumulate cons <??> <??>)) 


(define (length sequence) 
{accumulate <??> 0 sequence) ) 


练习 2.34 ”对 于 x 的 某 个 给 定 值 ， 求 出 一 个 多 项 式 在 x 的 值 ， 也 可 以 形式 化 为 一 种 累积 。 假 
定 需要 求 下 面 多 项 式 的 值 : l 
A,X” +Qn 1X" 十 … 十 CIKX +a 
采用 著名 的 Horner 规 则 ， 可 以 构造 出 下 面 的 计算 : 
(… (a,X +a, 1)X+ +a)) xX +a 


8i Richard Waters (1979) 开发 了 一 个 能 自动 分 析 传 统 的 Fortran 程 序 ， 并 用 映射 、 过 滤器 和 累积 器 的 观点 去 观察 它们 
的 程序 。 他 发 现 ， 在 Fortran Scientific Subroutine Package (Fortran 科 学 计算 子 程序 包 ) E, BR AIDA IBALL 
很 好 地 纳入 这 一 风范 之 中 。 作 为 程序 设计 语言 ，Lisp 取 得 成 功 的 一 个 原因 ， 就 在 于 它 用 表 作 为 表述 有 序 汇集 的 一 
种 标准 媒介 ， 并 使 它们 可 以 通过 高 阶 操作 来 处 理 。 程 序 设计 语言 APL 的 威力 和 形式 也 来 自 另 一 种 类 似 选 择 。 在 
APL 里 ， 所 有 的 数据 都 是 数组 ， 而 且 为 各 种 类 型 的 通用 数组 操作 提供 了 一 集 具有 普遍 性 、 使 用 方便 的 运算 付 。 

8 根据 Knuth (1981)， 这 一 规则 是 W. G. Horner 在 19 忆 纪 早 期 提出 的 ， 但 这 一 方法 在 100 多 年 前 就 已 经 被 牛顿 实 
际 使 用 了 。Horner 规 则 在 求 值 多项式 时 所 用 的 加 法 和 乘法 次 数 少 于 直接 方法 ， 即 那 种 先 计 算出 a, 二 ， 而 后 加 
ka, x"), 并 这 样 做 下 去 的 方法 。 事 实 上 ， 可 以 证 明 ， 任 何 多 项 式 的 求 值 算 靶 至 少 需要 做 Horner 规 则 那么 多 
次 加 法 和 乘法 ， 因 此 ，Horner 规 则 就 是 多 项 式 求 值 的 最 优 算法 。 这 一 论断 由 A. M. Ostrowski 在 1254 年 的 一 篇 
文章 中 (对 加 法 ) 证 明 ， 这 也 是 现代 最 优 算法 研究 的 开创 性 工作 。 关 于 乘法 的 类 似 论 断 由 Y. Y. Pan 在 1266 年 
证 明 。Borodin 和 Munro 的 著作 (1975) 里 有 对 这 些 工作 的 概述 和 有 关 最 优 算法 的 其 他 一 些 结 朱 。 
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填充 下 面 的 模板 ， 做 出 一 个 利用 Hormer 规 则 求 多 项 式 值 的 过 程 。 假 定 多 项 式 的 系数 安排 在 一 
个 序列 里 ， 从 和 直至 av。 


(define (horner-eval x coefficient-sequence) 
(accumulate (lambda (this-coeff higher-terms) <??>) 
0 
coefficient-sequence ) ) 
例如 ， 为 了 计算 1 +3x+35x + 和 在 x =2 的 值 ， 你 需要 求 值 : 
(horner-eval 2 (list 13 05 0 1)) 


练习 2.35 ”将 2.2.2 节 的 count-1Leaves 重 新 定义 为 一 个 累积 : 


(define (count-leaves t) 
(accumulate <??> <??> (map <??> <??>))) 


练习 2.36 过程 accumulate-n 与 accumulate 类 似 ， 除 了 它 的 第 三 个 参数 是 一 个 序列 
序列 ， 假 定 其 中 每 个 序列 的 元 素 个 数 相同 。 它 用 指定 的 累积 过 程 去 组 合 起 所 有 序列 的 第 一 
oe 而 后 是 所 有 序列 的 第 二 个 元 素 ， 并 如 此 做 下 去 ， 返 回 得 到 的 所 有 结 打 的 序列 。 例 如 ， 
如 果 s 是 包含 着 4 个 序列 的 序列 ((1 2 3) (4 5 6) (7 8 9) (10 11 12)), Ma 
(accumulate-n+0 s) 的 值 就 应 该 是 序列 (22 26 30), WHEAT PF maccumulate-nx 
义 中 所 缺失 的 表达 式 : | 
(define (accumulate-n op init seqs) 
(if (null? (car seqs)) 
nil l 
(cons (accumulate op init <??>) 
(accumulate-n op init <??>)))) 


练习 2.37 假定 我 们 将 向 量 v =() 表示 为 数 的 序列 , 将 矩阵 m= ny) RRA [Al ae ERIT ) 
的 序列 。 例 如 ， 和 矩阵 : 


12 3 4 
45 6 6 
6 7 8 9 


用 序列 ((1 2 3 4) (4 5 6 6) (6 7 8 9)) 表示 。 对 于 这 种 表示 ， 我 们 可 以 用 序列 操 
作 简 洁 地 表达 基本 的 矩阵 与 向 量 运算 。 这 些 运算 (MAKER Baie) 如 下 : 
(dot-product v w) 返回 和 iviw;; 
(matrix-*-vector mv) 返回 向 量 t, Ehi =m 
(matrix-*-matrix mn) ji& BH p, Hp, = Many 
(transpose m) 返回 矩阵 n, rpn =m; 
我 们 可 以 将 点 积 (dot product) 定义 为 ”: 


(define (dot-product v w) 
(accumulate + 0 (map * v w))) 


3 这 一 定义 里 使 用 了 脚注 78 中 描述 的 扩充 的 map，。 
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请 填充 下 面 过 程 里 缺失 的 表达 式 ， 它 们 计算 出 其 他 的 矩阵 运算 结果 (过 程 accumulate- 
n 在 练习 2.36 中 定义 )。 x 
(define (matrix-*-vector M V) 


(map <??> m)) 


{define (transpose mat) 
(accumulate~n <??> <??> mat) ) 


(define (matrix-*-matrix m n) 
(let ((cols (transpose n)}) 
(map <??> m))) 


练习 2.38 ”过程 accumulate 也 称 为 fold-zight ， 因 为 它 将 序列 的 第 一 个 元 素 组合 到 
右 思 所 有 元 素 的 组 合 结果 上 。 也 有 一 个 f061d-left， 它 与 fo1d-right 类似， 但 却 是 按照 相 
反方 加 去 操作 各 个 元 素 : 


(define (fold-left op initial sequence) war 
(define (iter result rest) 
(if (null? rest) 
result 
(iter (op result (car rest)) 
(cdr rest)))) 


(iter initial sequence) ) 
下 面 表达 式 的 值 是 什么 ? 
(fold-right / 1 (list 1 2 3)) 
(fold-left / 1 (list 1 2 3)) 
(fold-right list nil (list 1 2 3)) 
(fold-left list nil (list 1 2 3)) 


如 果 要 求 用 某 个 op 时 保证 £01d~right 和 fo1d-1left 对 任何 序列 都 产生 同样 的 结果 ， 请 给 


出 op 应 该 满足 的 性 质 。 
练习 2.39 基于 练习 2.38 的 f0o1d-right 和 fold-left 完 成 reverse (#2]2.18) 下 面 
REN: 


(define (reverse sequence) 
(fold-right (lambda (x y) <??>) nil sequence)) 


(define (reverse sequence) 
(fold-left (lambda (x y) <??>) nil sequence) ) 


HE RR SH 

BUT ATLAS FEAF HE SH RE AOR HH AS AK". MEZE T H 
的 问题 Ae TAR Bn, RO MARANA EMA, PISS, ER HERB. Hl 
an, (RENO, WER PE RE 

Mos He SER NEI RÆ David Turner 展 现 给 我 们 的 ， 他 的 语言 ARC 和 Miranda 为 处 理 这 些 结构 提供 了 很 


优美 的 形式 。 本 节 里 的 例子 (也 请 看 练习 2.42) 取 自 Turner 1981。3.5.3 节 还 要 将 这 一 途径 推广 到 处 理 无 穷 序 
列 的 情况 。 


it] 
完成 这 一 计算 的 一 种 很 自然 的 组 织 方式 ， 首 先生 成 出 所 有 小 于 等 于 n 的 正 自然 数 的 有 序 对 ， 而 
后 通过 过 补 ， 得 到 那些 和 为 素数 的 有 序 对 ， 最 后 对 每 个 通过 了 过 滤 的 序 对 (i, 站， 产生 出 一 个 
三 元 组 (i,j,i+j)，。 / 

这 里 是 生成 有 序 对 的 序列 的 一 种 方式 :对 于 每 个 整数 :<n， 枚 举 出 所 有 的 整数 /<i， 并 对 
每 一 对 i 和 /生成 序 对 (i, 站。 用 序列 操作 的 方式 说 ， 我 们 要 对 序列 (enumerate-interval 
1 on) 做 一 次 映射 。 对 于 这 个 序列 里 的 每 个 i， 我 们 都 要 对 序列 (enumerate-interval 1 
(- i 1)) 做 映射 。 对 于 后 一 序列 中 的 每 个 ， 我 们 生成 出 序 对 (list i j)。 这 样 就 对 每 
个 i 得 到 了 一 个 序 对 的 序列 。 将 针对 所 有 i 的 序列 组 合 到 一 起 (用 append 累 积 起 来 )， 就 能 产 
生出 所 需 的 序 对 序列 了 5。 


{accumulate append 
nil 
(map (lambda (1) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


(enumerate-interval 1 n))) 


由 于 在 这 类 程序 里 常 要 用 到 映射 HHappendi AR. 我 们 将 它 独 立 出 来 定义 为 一 个 过 程 : 


(define (flatmap proc seq) 
(accumulate append nil (map proc seq))) 


现在 可 以 过 滤 这 一 序 对 的 序列 ， 找 出 那些 和 为 素数 的 序 对 。 对 序列 里 的 每 个 元 素 调用 过 滤 谓 
词 。 由 于 这 个 谓词 的 参数 是 一 个 序 对 ， 所 以 它 必 须 将 两 个 整数 从 序 对 里 提取 出 来 。 这 样 ， 作 
用 到 序列 中 每 个 元 素 上 的 谓词 就 是 : 


(define (prime-sum? pair) 
(prime? (+ (car pair) (cadr pair)))) 


最 后 还 要 生成 出 结果 的 序列 ， 为 此 只 需 将 下 面 过 程 映射 到 通过 过 滤 后 的 序 对 上 ， 对 每 个 有 序 
对 里 的 两 个 元 素 ， 这 一 过 程 生成 出 一 个 包含 了 它们 的 和 的 三 元 组 : 
(define (make-pair-sum pair) 
(list (car pair) (cadr pair) (+ (car pair) (cadr pair)))) 
将 所 有 这 些 组 合 到 一 起 ， 就 得 到 了 完整 的 过 程 : 
(define (prime-sum~pairs n) 


(map make-pair-sum 
{filter prime-sum? 


(flatmap 
(lambda (i) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


5 这 里 的 序 对 被 表示 为 两 个 元 素 的 表 ， 没 有 直接 采用 Lisp 的 序 对 ， 因 此 ， 这 里 所 谓 的 “ 序 对 ”(5 7) 就 是 
(list i j), 而 不 是 (cons i j), | 
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(enumerate-interval. 1 n))))) 


RE IPR AS OLE AFAR, ey AP a Pl i RA A ER RAS BO 
有 排列 ， 也 就 是 说 ， 生 成 这 一 集合 的 元 素 的 所 有 可 能 排序 方式 。 例 如 ，{1， <，3 引 的 所 有 排列 
十，2,3}，{1,， 3, 2)}, {2, 1,，3}，{2, 3, 1}, {3,，1, 2} 和 {3, 2, 1}。 这 里 走 生 成 5 所 
有 排列 的 序列 的 一 种 方案 : 对 于 5 里 的 每 个 x， 递归 地 生成 $ 一 x 的 所 有 排列 的 序列 *， 而 后 将 x 
加 到 每 个 序列 的 前 面 。 这 样 就 能 对 3 里 的 每 个 *， 产生 出 了 3 的 所 有 LX 开头 的 排列 。 将 对 所 有 Xx 
的 序列 组 合 起 来 ， 就 可 以 得 到 的 所 有 排列 ”。 
{define (permutations s) | 
(if (null? s) ; empty set? 
(list nil) ; Sequence containing empty set 
(flatmap (lambda (x) 


(map (lambda (p) (cons x p)) 
{permutations (remove x s)))) 


S))) 

iE Pk HA AS Sm, FA Ti ERS AHER ea, 4 AE oe ee FS 的 集 
合 的 所 有 排列 的 问题 。 在 终极 情况 中 我 们 将 达到 空 表 ， 它 表示 没有 元 素 的 集合 。 对 此 我 们 生 
成 出 的 就 是 (list nil)，, 这 是 一 个 只 包含 一 个 元 素 的 序列 ， 其 中 是 一 个 没有 元 素 的 集合 。 
在 permutations 过 程 中 所 用 的 remove 过 程 返回 除 指定 项 之 外 的 所 有 元 素 ， 它 可 以 简单 地 
用 一 个 过 滤器 表示 : 

(define (remove item sequence) 

(filter (lambda (x) (not (= x item))) 
sequence) ) | 

练习 2.40 ”请 定义 过 程 unique-pairs， 给 它 整 数 4， 它 产生 出 序 对 (1, 有， 其 中 1 <J <i 
<n、 请 用 unique-pairs 去 简化 上 面 prime-sum~pairs 的 定义 。 

练习 2.41 ”请 写 出 一 个 过 程 ， 它 能 产生 出 所 有 小 于 等 于 给 定 整 数 4 的 正 的 相 异 整数 i、j 掉 nk 
的 有 序 三 元 组 ， 使 每 个 三 元 组 的 三 个 元 之 和 等 于 给 定 的 整数 s。 

练习 2.42 ““ 八 皇后 谜 题 ” 问 的 是 怎样 将 八 个 皇后 摆 在 国际 象棋 盘 上 ， 使 得 任意 一 个 星 
后 都 不 能 攻击 另 -一 个 皇后 〈 也 就 是 说 ， 任 总 两 个 皇后 都 不 在 同一 行 、 同 一 列 或 着 同一 对 人 角 线 
上 )。 一 个 可 能 的 解 如 图 2-8 所 示 。 解 决 这 一 谜 题 的 一 种 方法 按 一 个 方向 处 理 棋盘 ， 每 次 在 每 
一 列 里 放 一 个 皇后。 如 果 现 在 已 经 放 好 了 k 一 1 个 皇后 ， 第 k 个 皇后 就 必须 放 在 不 会 被 已 在 棋盘 
上 的 任何 皇后 攻击 的 位 置 上 。 我 们 可 以 递归 地 描述 这 一 过 程 : 假定 我 们 已 经 生成 了 在 棋盘 的 
前 k -1 列 中 放置 5 一 1 个 皇后 的 所 有 可 能 方式 ， 现 在 需要 的 就 是 对 于 其 中 的 每 种 方式 ， 生 成 出 
将 下 一 个 皇后 放 在 第 k 列 中 每 一 行 的 扩充 集合 。 而 后 过 滤 它 们 ， 只 留 下 能 使 位 于 第 Kk 列 的 皇后 
与 其 他 皇后 相安 无 事 的 那些 扩充 。 这 样 就 能 产生 出 将 Kk 个 皇后 放置 在 前 Kk 列 的 所 有 格局 的 序列 。 
继续 这 一 过 程 ， 我 们 将 能 产生 出 这 一 谜 题 的 所 有 解 ， 而 不 是 一 个 解 。 

将 这 一 解法 实现 为 一 个 过 程 queens , 令 它 返回 在 n xn 棋盘 上 放 n 个 皇后 的 所 有 解 时 序列 。 
queens 内 部 的 过 程 queen-cols ， 返 回 在 棋盘 的 前 k 列 中 放 皇 后 的 所 有 格局 的 序列 。 


© 集合 $ 一 x 里 包括 了 集合 S 中 除 * 之 外 的 所 有 元 素 。 
87 在 Scheme 代码 中 ， 分 号 用 于 引进 注释 。 从 分 号 开始 坦 至 行 尾 的 所 有 东西 都 将 被 解释 器 忽略 掉 。 在 本 书 里 使 用 
的 注释 并 不 多 ， 我 们 主要 是 希望 通过 使 用 有 意义 的 名 字 使 程序 具有 自 解 释 性 。 
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(define (queens board-size) 


(define (queen-cols k) 
(if (= k 0) 
(list empty-board) | 
(filter | 7 
(lambda (positions) (sate? k positions) ) 
(flatmap 3 
(lambda (rest-of-queens) 
(map (lambda (new-row) a. 
(adjoin-position new-row k rest-of- queens) ) 
(enumerate-interval 1 board-size))) 
({queen-cols (- k 1)))))) | 
(queen-cols board-size) ) 


这 个 过 程 里 的 rest-of -queens 是 在 前 k 一 1 列 放置 一 1 个 皇后 的 一 种 方式 ，new~row 是 在 第 
k 列 放置 所 考虑 的 行 编号 。 请 完成 这 一 程序 ， 为 此 需要 实现 一 种 棋盘 格局 集合 的 表示 方式 ， 还 
要 实现 过 程 adjoin-position, 它 将 一 个 新 的 行列 格局 加 入 一 个 格局 集合 , empty- board, 
它 表 示 空 的 格局 集合 。 你 还 需要 写 出 过 程 safe? ， 它 能 确定 在 一 个 格局 中 ， 在 第 k 列 的 皇后 相 
对 于 其 他 列 的 皇后 是 否 为 安全 的 (请 注意 ， 我 们 只 需 检查 新 皇 睛 是 否 安全 一 -其 他 皇后 已 经 保 
证 相安 无 事 了 ) 。 o 

练习 2.43 Louis Reasoner 在 做 练习 2.42 时 遇 到 了 麻烦 ， 他 的 queens 过 程 看 起 来 能 行 ， 
但 却 运 行 得 极 慢 (Louis 居 然 无 法 忍耐 到 它 解 出 6 x6 棋 盘 的 问题 )。 当 Louis 请 Eva Lu Ator 帮 忙 
时 ， 她 指出 他 在 ELatmap 里 交换 了 储 套 映射 的 顺序 ， 将 它 写 成 了 : 


(flatmap = 
(lambda (neW-row) 
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(map (lambda (rest-of-queens) 
(adjoin-position new-row k rest-of-—queens) ) 
(queen-cols (- k 1)))) 
(enumerate-interval 1 board-size) ) 


请 解释 一 下 ， 为 什么 这 样 交 换 顺 序 会 使 程序 运行 得 非常 慢 。 估 计 一 下 ， 用 Louls 的 程序 去 解决 
八 皇 后 问题 大 约 需 要 多 少时 间 ， 假 定 练习 2.42 中 的 程序 需 用 时 间 7 求 解 这 一 难题 。 


本 节 将 介绍 一 种 用 于 画图 形 的 简单 语言 ， 以 展示 数据 抽象 和 闭 包 的 威力 ， 其 中 也 以 一 种 
非常 本 质 的 方式 使 用 了 高 阶 过 程 。 这 一 语言 的 设计 就 是 为 了 很 容易 地 做 出 一 些 模 式 ， 例 如 图 
2-9 中 所 示 的 那 类 图 形 ， 它 们 是 由 某 些 元 素 的 重复 出现 而 构成 的 ， 这 些 元 素 可 以 变形 或 者 改变 
大 小 8 。 在 这 个 语言 里 ， 数 据 元 素 的 组 合 都 用 过 程 表 示 ， 而 不 是 用 表 结 构 表 示 MiRcons ih 
足 一 种 闭 包 性 质 ， 使 我 们 能 构造 出 任意 复杂 的 表 结 构 二 样 ， 这 二 语言 中 的 操作 也 满足 财 包 性 
质 ， 使 我 们 很 容易 构造 出 任意 复杂 的 模式 。 
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图 2-9 利用 这 一 图 形 语言 生成 的 各 种 设计 


图 形 语言 

在 1.1 节 里 开始 研究 程序 设计 时 我 们 就 强调 说 ， 在 描述 一 种 语言 时 ， 应 该 将 注意 力 集中 到 
语言 的 基本 原 语 、 它 的 组 合 手段 以 及 它 的 抽象 手段 ， 这 是 最 重要 的 。 这 里 的 工作 也 将 按照 则 
样 的 框架 进行 

这 一 图形 语 言 的 优美 之 处 ， 部 分 就 在 于 语言 中 只 有 一 种 元 素 ， 称 为 画家 (painter), — 
画家 将 画 出 一 个 图 像 ， 这 种 图 像 可 以 变形 或 者 改变 大 小 ， 以 便 能 正好 放 到 某 个 指定 的 平行 四 
力 形 框架 里 。 举 例 来 说 ， 这 里 有 一 个 称 为 wave 的 基本 画家 ， 它 能 做 出 如 图 2-10 所 示 的 折线 画 ， 
而 所 做 出 图 画 的 实际 形状 依赖 于 具体 的 框架 一 一 图 2-10 里 的 四 个 图 像 都 是 由 同一 个 画家 wave 
产生 的 ， 但 却 是 相对 于 四 个 不 同 的 框架 。 有 些 画 家 比 它 更 精妙 : 称 为 rogers 的 基本 男 家 能 图 





8 这 一 图 形 语言 是 基于 Peter Henderson 所 创建 的 ， 用 于 构造 类 似 于 M.C. Escher 的 版 画 “方形 的 极限 ”中 那样 的 
形象 ( 见 Henderson 1982) 的 一 种 语言 。Escher 的 版 画 由 一 种 重复 的 变 尺度 模 鸡 鬼 成， iR (RAS AA 
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出 MIT 的 创始 人 William Barton Rogers 的 画像 ， 如 图 2-11 所 示 ”。 图 2-11 里 的 四 个 图 像 是 相对 于 
与 图 2-10 中 wave 形 象 同样 的 四 个 框 染 画 出 来 的 。 
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图 2-10 由 画家 wave 相 对 于 4 个 不 同 框架 而 产生 出 的 图 像 。 
相应 框架 用 点 线 表 示 ， 它 们 并 不 是 图 像 的 组 成 部 分 


8° William Barton Rogers (i804 —1882) 是 MIT 的 创始 人 和 第 一 任 校 长 。 他 曾 作为 地 质 学 家 和 才华 横 溢 的 教师 ， 
在 William and Mary (威廉 和 玛丽 ) 学 院 和 弗吉尼亚 大 学 任教 。1859 年 他 搬 到 了 波士顿 ， 在 那里 他 可 以 有 更 多 
的 时 间 去 从 事 研究 工作 ， 可 以 着 手 他 的 一 个 创建 “综合 性 技术 学 院 ” 的 计划 。 此 时 他 还 是 马萨诸塞 第 一 任 的 
煤气 表 的 州 检 查 员 。 

在 1861 年 MIT 创 建 时 ，Rogers 被 选 为 第 一 任 校长 。Rogers 推 崇 一 种 “学 以 致 用 ”的 思想 ， 这 与 当时 流行 
的 有 关 大 学 教育 的 观点 截然 不 同 。 当 时 在 大 学 里 人 们 过 于 强调 经 典 ， 正 如 Rogers 所 写 的 ， 那 些 东 西 “阻碍 了 
更 广泛 、 更 深入 和 更 实际 的 自然 科学 和 社会 科学 的 教育 和 训练 ” 。Rogers 认 为 这 一 教育 方式 也 应 该 与 职业 学 校 
式 的 教育 截然 不 同 ， 用 他 的 话说 : 

强制 性 地 区 分 实践 工作 者 和 科学 工作 者 是 完全 无 益 的 ， 当 代 的 所 有 经 验 已 经 证 明 这 种 区 分 也 及 
完全 没有 价值 的 。 

Rogers 作为 MIT 的 校长 一 直到 1870 年 ， 是 年 他 因为 健康 原因 而 退休 。 到 了 1878 年 ，MIT 的 第 二 任 校长 
John Runkle 由 于 1873 年 的 金融 大 恐慌 带 来 的 财政 危机 的 压力 ,以 及 哈佛 企图 提取 MIT 的 斗争 压力 而 退休 ， 
Rogers 重新 回 到 校长 办 公 室 ,一 直 工 作 到 1881 年 。 

Rogers 在 1882 年 给 MIT 毕 业 班 举行 的 毕业 典礼 的 致辞 中 倒 下 去 世 。Runkle 在 同年 举行 的 纪念 会 致辞 中 引 
用 了 Rogers 最 后 的 话 : 

“ 当 我 今天 站 在 这 里 环顾 校园 时 ，…… 我 看 到 了 科学 的 开始 。 我 记得 在 150 年 以 前 ，Stephen 
Hales 出 版 了 一 本 小 册子 ， 讨 论 照明 用 气 的 课题 ， 在 书 中 他 写 到 ， 他 的 研究 表明 了 128 谷 (英美 重量 
单位 ， 每 谷 合 64.8 毫 克 一 一 译 者 注 ) 烟煤 … 

“烟煤 ,” 这 就 是 他 留 在 这 个 世界 上 的 最 后 一 个 词 。 当 时 他 逐渐 地 向 前 倾 下 去 ， 就 像 是 要 在 他 
面前 METFELSAH AHL, MEMRAM LRS, SRT RARE, MEH, KEM 
尘世 劳作 和 胜利 的 喜悦 感觉 转变 为 “死亡 的 明天 "”， 在 那里 生命 的 奇迹 结束 了 ， 而 脱离 了 肉体 的 有 灵魂 
则 向 往 着 那 无 穷 未 来 中 全 新 的 永远 深 不 可 测 的 奥秘 ， 并 从 中 得 到 无 尽 的 满足 。 

用 Francis A. Walker (MIT 的 第 三 任 校长 ) 的 话说 : 

他 的 整个 一 生 都 证 明 了 他 是 最 正直 和 最 勇敢 的 人 ， 他 的 死 也 像 一 个 骑士 所 最 希望 的 那样 ， 穿着 

战 入 ， 站 在 自己 的 岗位 上 ， 懂 行 着 他 对 于 社会 的 职责 。 | 
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图 2-11 William Barton Rogers (MIT 的 创始 人 和 第 一 任 校长 ) 的 图 像 ， 依据 与 
图 2-10 中 同样 的 4 个 框架 画 出 (原始 图 片 经 MII 博 物 馆 的 允许 重印 ) 


为 了 组 合 起 有 关 的 图 像 ， 我 们 要 用 一 些 可 以 从 给 定 画家 构造 出 新 画家 的 操作 。 例 如 ， 操 
作 beside 从 两 个 画家 出 发 ， 产 生 一 个 复合 型 画家 ， 它 将 第 一 个 画家 的 图 像 画 在 框架 中 左边 的 
一 半 里 ， 将 第 二 个 画家 的 图 像 画 在 框架 里 右边 一 半 里 。 与 此 类 似 ，below 从 两 个 画家 出 发 产 
生 一 个 组 合 型 画家 ， 将 第 一 个 画家 的 图 像 画 在 第 二 个 画家 的 图 像 之 下 。 有 些 操作 将 一 个 画家 
转换 为 另 一 个 新 画家 。 例 如 ，f1ip-vert 从 一 个 画家 出 发 ， 产 生 一 个 将 该 画家 所 画图 像 上 下 
颠倒 画 出 的 画家 ， 而 fl1ip-horiz 产 生 的 画家 将 原画 家 的 图 像 左右 反 转 后 画 出 。 

图 2-12 说 明了 从 wave 出 发 ， 经 过 两 步 做 出 一 个 名 为 Wave4 的 画家 的 方式 : 


hh Wy 
MY 


(define wave2 (define wave4 
(beside wave (flip-vert wave) ) ) (below wave2 wave2) ) 


图 2-12 ”从 图 2-10 的 画家 wave 出 发 ， 建 立 起 一 个 复杂 图 像 
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(define wave2 (beside wave (flip-vert wave))) 
(define wave4 (below Wave2 wave2) ) 


在 按 这 种 方法 构造 复杂 的 图 像 时 ， 我 们 利用 了 一 个 事实 : 画家 在 有 关 语 言 的 组 合 方式 下 
是 封闭 的 : 两 个 画家 的 beside 或 者 below 还 是 画家 ， 因 此 还 可 以 用 它们 作为 元 素 去 构造 更 
复杂 的 画家 。 就 像 用 cons 构造 起 各 种 表 结 构 一 样 ， 我 们 所 用 的 数据 在 组 合 方式 下 的 闭 包 性 质 
非常 重要 ， 因 为 这 使 我 们 能 用 不 多 几 个 操作 构造 出 各 种 复杂 的 结构 。 

一 旦 能 做 画家 的 组 合 之 后 ， 我 们 就 希望 能 抽象 出 典型 的 画家 组 合 模式 ， 以 便 将 这 种 组 合 
操作 实现 为 一 些 Scheme 过 程 。 这 也 意味 着 我 们 并 不 需要 这 种 图 形 语言 里 包含 任何 特殊 的 抽象 
机 制 ， 因 为 组 合 的 方式 就 是 来 用 普通 的 Scheme 过 程 。 这 样 ， 对 于 画家 ， 我 们 就 自动 有 了 能 够 
做 原来 可 以 对 过 程 做 的 所 有 事情 。 例 如 ， 我 们 可 以 将 wave4 中 的 模式 抽象 出 来 : 


{define (flipped-pairs painter) 
(let ((painter2 (beside painter (flip-vert painter)))) 
(below painter2 painter2))) 


并 将 wave4 重 新 定义 为 这 种 株式 的 实例 : 
(define wave4 (flipped-pairs wave) ) 
我 们 也 可 以 定义 递归 操作 。 下 面 就 是 一 个 这 样 的 操作 ， 它 在 图 形 的 右边 做 分 割 和 分 文 ， 
就 像 在 图 2-13 和 图 2-14 中 显示 的 那样 : 
(define (right-split painter n) 
(if (= n 0) 
painter 
(let ((smaller (right-split painter (~ n 1)))) 
(beside painter (below smaller smaller))))) 









right-split split | corner-split 


n—l 


identity 


right-split 
n—-l 


right-split 
n—i 


right-split | 
n-—l1 
n on 





right-split n corner-split n 
图 2-13 right-split 和 corner-split 的 递归 方案 


通过 同时 在 图 形 中 向 上 和 向 右 分 支 ， 我 们 可 以 产生 出 一 种 平衡 的 模式 ( 见 练习 2.44、 图 2-13 和 图 
2-14). . 
(define (corner-split painter n) 
(if (=n 0) 
painter 
(let ((up (up-split painter (- n 1))) 
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图 2-14 将 递归 操作 Eight-SspLit 和 Corner-SplLit 应 用 于 画家 wave 和 IOogeIrs 。 图 2-9 中 
显示 的 是 组 合 起 4 个 corner-split 图 形 产 生出 的 square-limit 对 称 图 形 设 计 
(right (right-split painter (- n 1)))) 
(let ((top-left (beside up up) ) 
(bottom-right (below right right) ) 
(corner (corner-split painter (- Nn 1)))) 


(beside (below painter top-left) 
(below bottom-right corner)))))) 


将 某 个 corner-split 的 4 个 拷贝 适当 地 组 合 起 来 ， 我 们 就 可 以 得 到 一 种 称 为 square- 
1imit 的 模式 ， 将 它 应 用 于 wave 和 和 rogers RIAA IL 图 2-9 。 


(define (square-limit painter n) 
(let ((quarter (corner-split painter n))) 
(let ((half (beside (flip-horiz quarter) quarter) ) ) 
(below (flip-vert half) half)))) 


练习 2.44 ”请 定义 出 corner-split 里 使 用 的 过 程 up-split， 它 与 Tight-split 类 
似 ， 除 在 其 中 交换 了 below 和 beside 的 角色 之 外 。 

高 阶 操 作 

除了 可 以 获得 组 合 画 家 的 抽象 模式 之 外 ， 我 们 同样 可 以 在 高 阶 上 工作 ， 抽 象 出 画家 的 各 
种 组 合 操作 的 模式 。 也 就 是 说 ， 可 以 把 画家 操作 看 成 是 操控 和 描写 这 些 元 素 的 组 合 方法 的 元 
素 一 一 写 出 一 些 过 程 ， 它 们 以 画家 操作 作为 参数 ， 创 建 出 各 种 新 的 画家 操作 。 


2.2 BARRE ERM 9] 


举例 来 说 ，f1lipped-pairs 和 square-1limit 两 者 都 将 一 个 画家 的 四 个 拷贝 安排 在 一 
个 正方 形 的 模式 中 ， 它 们 之 间 的 差异 仪 仅 在 这 些 撕 贝 的 旋转 角度 。 抽 象 出 这 种 画家 组 合 模 式 
的 一 种 方式 是 定义 下 面 的 过 程 ， 它 基于 四 个 单 参数 的 画家 操作 ， 产 生出 一 个 画家 操作 ， 这 一 
操作 里 将 用 这 四 个 操作 去 变换 一 个 给 定 的 画家 ， 并 将 得 到 的 结果 放 入 一 个 正方 形 里 。t1、tr、 
bl 和 br 分 别 是 应 用 于 左上 角 、 右 上 角 、 左 下 角 和 右 下 角 的 四 个 拷贝 的 变换 : 


(define (square-of-four tl tr bl br) 
(lambda (painter) 
(let ((top (beside (tl painter) (tr painter) ) ) 
(bottom (beside (bl painter) (br painter)))) 
(below bottom top)))) 
fefEflipped-pairs a 1% Fsquare-of-four#¢ Xin F”: 


(define (flipped-pairs painter) 

(let ((combine4 (square-of-four identity flip-vert 
identity flip-vert))) 
(combine4 painter))} : 
Tisquare-limit 可 以 描述 为 ?1. 

(define (square-limit painter n) 

(let ((combine4 (square-of-four flip-horiz identity 
rotatel80 flip-vert))) 
(combine4 (corner-split painter n)))) | 
练习 2.45 ”可 以 将 right-split 和 up-split 表 述 为 某 种 广义 划分 操作 的 实例 。 请 定义 
一 个 过 程 split ,使 它 具 有 如 下 性 质 ， 求 值 : 
(define rizht-split (split beside below)) 
(define up- split (split below beside) ) 


产生 能 够 出 过 程 right-split 和 up-split ， 其 行为 与 前 面 定义 的 过 程 一 伴 。 


框架 

在 我 们 进一步 弄 清 楚 如 何 实现 画家 及 其 组 合 方式 之 前 ， 还 必须 首先 考虑 框架 的 问题 。 一 
个 框架 可 以 用 三 个 向 量 描述 ， 一 个 基准 向 量 和 两 个 角 向 量 。 基 准 向 量 描述 的 是 框架 基 肉 点 相 
对 于 平面 上 某 个 绝对 基准 点 的 偏 移 量 ， 角 向 量 描述 了 框架 的 角 相 对 于 框架 基准 点 的 偏 移 量 。 
如 果 两 个 角 向 量 正 交 ， 这 个 框架 就 是 一 个 矩形 。 否 则 它 就 是 一 个 一 般 的 平行 四 边 形 。 

图 2-15 显 示 的 是 一 个 框架 和 与 之 相关 的 三 个 向 量 。 根 据 数据 抽象 原理 ， 我 们 现在 完全 不 
必 去 说 清楚 框架 的 具体 表示 方式 ,而 只 需要 说 明 ， 存 在 着 一 个 构造 函数 nake-frame ， 它 能 
从 三 个 向 量 出 发 做 出 一 个 框架 。 与 之 对 应 的 选择 函数 是 origin-Eframe、edqgel-frame 和 
edge2-frame ( 见 练 习 2.47 )。 

我 们 将 用 单位 正方 形 (O<x, y <1) 里 的 坐标 去 描述 图 像 。 对 于 每 个 框架 ， 我 们 机 为 它 关 联 
一 个 框架 坐标 映射 ， 借 助 它 完成 有 关 图 像 的 位 移 和 伸缩 ， 使 之 能 够 适 配 于 这 个 框 娘 。 这 一 映 


”我 们 也 可 以 等 价 地 将 其 写 为 : 
(define flipped-pairs 
(square-of-four identity flip-vert identity flip-vert)) 


91 rotatel80 将 一 个 画家 旋转 180 度 ( 见 练习 2.50 )。 不 用 Fotatel80， 我 们 也 可 以 利用 练习 1.42 的 compose 
过 程 ， 写 (compose flip-vert flip-horiz), © 


HBR 





框架 基 
fe 显示 屏 上 的 (0, 0) 点 


图 2-15 一 个 框架 由 三 个 向 量 描述 ， 包 括 一 个 基准 同 量 和 两 个 角 同 量 


射 的 功能 就 是 把 单位 正方 形变 换 到 相应 框架 ， 所 末 用 的 方法 也 就 是 将 癌 量 y = (x, y) 映射 到 下 
面 的 问 量 和 : 
| Origin (Frame) +x - Edge, (Frame) +y - Edge, (Frame) 
例如 ， 点 (0, 0) 将 被 映射 到 给 定 框架 的 原点 ，(1, D AIAS RAR ARMA a, m (0.5, 
0.5) 被 映射 到 给 定 框架 的 中 心 点 。 我 们 可 以 通过 下 面 过 程 建 立 起 框架 的 坐标 映射 ”: 
(define {frame-coord-map frame) 
(lambda (v) 
(add-vect 
(origin-frame frame) 


(add-vect (scale-vect (xcor-vect v) 
(edgel~frame frame) ) 


(scale-vect (ycor-vect v) 
(edge2-frame frame)))))) 


请 注意 看 ， 这 里 将 Erame-coord-map 应 用 于 一 个 框架 的 结果 是 返回 了 一 个 过 程 ， 它 对 于 每 
个 给 定 的 向 量 返 回 另 一 个 向 量 。 如 果 和 参数 向 量 位 于 单位 正方 形 里 ， 得 到 的 对 应 结 采 癌 量 也 将 
位 于 相应 的 框架 里 。 例 如 : 
((frame-coord-map a-frame) (make-vect 0 0)) 
返回 的 向 量 如 下 : | 
(origin-frame a-frame) | 
练习 2.46 ”从 原点 出 发 的 一 个 两 维 向 量 v 可 以 用 一 个 由 x 坐标 和 和 y 举 标 构 成 的 序 对 表示 。 请 
为 这 样 的 向 量 实现 一 个 数据 抽象 : 给 出 一 个 构造 函数 make-vect ， 以 及 对 应 的 选择 函数 
xcor-vect 和 ycor-vect。 借 助 于 你 给 出 的 构造 函数 和 选择 户 数 ， 实 现 过 程 add-vect.、 
sub-vect 和 scale-vect， 它 们 能 完成 向 量 加 法 、 向 量 减 法 和 向 量 的 伸缩 。 
(x1, YY +02, yo) = +x, Yı +y2) 
(X41, Yi) ~Q2, y2) = —%2, yı — y2) 
S: (x, y)=(sx, sy) 


2 过程 frame-coord-map 用 到 了 练习 2.46 里 讨论 的 向 量 操作 ， 现 在 假定 它们 已 经 在 某 种 向 量 表示 上 实现 好 了 。 
由 于 这 里 采用 了 数据 抽象 ， 只 要 这 些 向 量 操作 的 行为 是 正确 的 ， 采 用 什么 样 的 具体 向量 表示 方式 都 没有 关系 。 
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练习 2.47 ”下面 是 实现 框架 的 两 个 可 能 的 过 程 函数 : 
{define (make-frame origin edgel edge2) 


(list origin edgel edge2)) 


(define (make-frame origin edgel edge2) 
(cons origin (cons edgel edge2})) 


请 为 每 个 构造 国 数 提供 适当 的 选择 函数， 为 框架 做 出 相应 的 实现 。 


画家 
一 个 画家 被 表示 为 一 个 过 程 ， 给 了 它 一 个 框架 作为 实际 参数 ， 它 就 能 通过 适当 的 位 移 和 
伸缩 ， 画 出 一 幅 与 这 个 框架 匹配 的 图 像 。 也 就 是 说 ， 如 有 果 p 是 一 个 画家 而 f£ 是 一 个 框架 ， 通 过 
Lf 作为 实际 参数 调用 p ， 就 能 产生 出 f 中 p 的 图 像 。 | 
FE AS By Ae ASE BLA As fe TE I ASEH PREF EA BRA PR, lan, REA 
在 有 了 一 个 过 程 draw-l1ine， 它 能 在 屏幕 上 两 个 给 定点 之 间 画 出 一 条 直线 ， 那 么 我 们 就 可 以 
利用 它 创 建 一 个 画 折线 图 的 画家 ， 例 如 从 通过 下 面 的 线段 表 创 建 出 图 2-10 的 wave 画 家 ”: 
(define (segments->painter segment-list) | 


(lambda (frame) 


(for-each 
4 
(lambda (segment) 


(draw-line 
((frame-coord-map frame) (start-segment segment) ) 
((frame-coord-map frame) (end-segment segment)))) 
segment-—list) ) ) 
这 里 所 给 出 的 线段 都 用 相对 于 单位 正方 形 的 坐标 描述 ， 对 于 表 中 的 每 个 线段 ， 这 个 画家 将 根 
据 框架 坐标 映射 ， 对 线段 的 各 个 端点 做 变换 ， 而 后 在 两 个 端点 之 间 画 一 条 直线 。 
将 画家 表示 为 过 程 ， 就 在 这 一 图 形 语言 中 竖立 起 一 道 强 有 力 的 抽象 屏障 。 这 就 使 我 们 可 
以 创建 和 混用 基于 各 种 图 形 能 力 的 各 种 类 型 的 基本 画家 。 任 何 过 程 只 要 能 取 一 个 框架 作为 参 
数 ， 画 出 某 些 可 以 伸缩 后 适合 这 个 框架 的 东西 ， 它 就 可 以 作为 一 个 画家 ”。 
练习 2.48 平面 上 的 一 条 直线 段 可 以 用 一 对 向 量 表示 一 一 从 原点 到 线段 起 后 的 同 量 ， 以 及 
从 原点 到 线段 终点 的 向 量 。 请 用 你 在 练习 2.46 做 出 的 向 量 表示 定义 一 种 线段 表示 ， 其 中 用 构 
造 国 数 make-Segment[ 以 及 选择 图 数 Stat-Ssegment 和 end-segment , 
练习 2.49 利用 segments->painter 定 义 下 面 的 基本 画家 
.a) 画 出 给 定 框 架 边 历 的 画家 。 
b) 通过 连接 框架 两 对 角 画 出 一 个 大 叉子 的 画家 。 
c) 通过 连接 框架 各 边 的 中 点 画 出 一 个 凌 形 的 画家 。 
d) 画家 wavVe 。 





3 画家 segments->painter 用 到 了 练习 2.48 里 描述 的 线段 表示 ， 还 用 到 练习 2.23 里 描述 的 for~each 过 程 。 

% 举例 来 说 ， 图 2-11 里 的 rogers 画 家 是 用 一 个 灰 度 图 像 创建 的 ， 对 于 给 定 框架 中 的 每 个 点 ，rogers 画家 都 将 
在 图 像 中 确定 一 个 点 ， 它 应 该 在 有 关 的 框架 坐标 映射 下 映射 到 框架 中 的 这 个 点 ,而 且 涂 灰 这 个 点 。 通 过 允许 
不 同 种 类 的 画家 ， 我 们 大 大 发 扬 了 2.1.3 节 中 讨论 的 抽象 数据 的 思想 ， 在 那里 提出 说 一 种 有 理 数 表示 可 以 是 任 
何 的 东西 ， 只 要 它 能 满足 适当 的 条 件 。 这 里 利用 的 事实 就 是 ， 一 个 画家 可 以 以 任何 方式 实现 ， 只 要 它 能 在 指 
定 的 框架 里 责 出 一 些 东 西 来 。2.1.3 节 还 说 明了 如 何 将 序 对 实现 为 过 程 。 画 家 也 是 我 们 用 过 程 表示 数据 的 又 一 
个 例子 。 
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画家 的 变换 和 组 合 

各 种 对 画家 的 操作 (例如 f1ip-vert 或 者 beside) 的 功能 就 是 创建 另 一 个 画家 ， 这 其 
中 涉及 到 原来 的 画家 ， 还 涉及 到 根据 参数 框架 派生 出 的 某 些 框架 。 举 例 来 说 ，£f1ip-vert 在 
as BRM SK OME ENA a Te, ER GA CR THER EP RE T. 
产生 出 的 画家 使 用 的 仍 是 原来 的 画家 ， 只 不 过 是 让 它 在 一 个 颠倒 的 框架 里 工作 。 

对 于 画家 的 操作 都 基于 一 个 过 程 tranSsform-painteI ， 它 以 一 个 画家 以 及 有 关 怎 样 变 
换 框架 和 生成 画家 的 信息 作为 参数 。 对 一 个 框架 调用 这 样 的 变换 去 产生 画家 ， 实 际 完 成 的 征 
对 这 个 框架 的 一 个 变换 ， 并 基于 变换 后 的 框架 去 调用 原来 的 画家 。transftorm-painter 的 
参数 是 一 些 点 (用 向 量 表 示 ) ， 它 们 描述 了 新 框架 的 各 个 角 。 在 用 于 做 框架 变换 时 ， 第 一 个 点 ， 
描述 的 是 新 框架 的 原点 ， 另 外 两 个 点 描述 的 是 新 框架 的 两 个 边 向 量 的 终点 。 这 样 ， 位 于 单位 
正方 形 里 的 参数 描述 的 就 是 一 个 包含 在 原 框 架 里 面 的 框 织 。 

(define (transform-painter painter origin cornerl corner?) 

(lambda (frame) 
{let ((m (frame-coord-map frame) )) 
(let ((new-origin (m origin))) 
(painter 


(make-frame new-origin ; 


(sub-vect (m corneri) new-origin) 


(sub-vect (m corner2) new-origin))))))) 


从 下 面 可 以 看 到 如 何 给 出 反 转 画家 的 定义 : 
(define (flip-vert painter) 
{transform-painter painter 
(make-vect 0.0 1.0) ; new origin 
(make-vect 1.0 1.0) ; new end of edgel 
(make~vect 0.0 0.0))) ; new end of edge2 


利用 transform-painter 很 容易 定义 各 种 新 的 变换 。 例 如 ， 我 们 可 以 定义 出 一 个 画家 ， 它 
将 自己 的 图 像 收缩 到 给 定 框架 右上 的 四 分 之 一 区 域 里 : | 
(define (shrink-to-upper-right painter) 
(transform-painter painter 
(make-vect 0.5 0.5) 
(make-vect 1.0 0.5) 
(make-vect 0.5 1.0))) 


另 一 个 变换 将 图 形 按照 逆 时 针 方向 旋转 90 度 ”: 
(define (rotate90 painter) 
(transform-painter painter 
(make-vect 1.0 0.0) 
(make-vect 1.0 1.0) 
(make-vect 0.0 0.0))) 


或 者 将 图 像 向 中 心 收 缩 ”: 


(define (squash-inwards painter) 


5 变换 rotate90 只 有 对 正方 形 框架 工作 才 是 真正 的 旋转 ， 因为 它 还 要 拉 伸 或 者 压缩 图 像 去 适应 框架 。 
% 图 2-10 和 图 2-11 里 的 菱形 图 形 就 是 通过 将 squash-inwards 作用 于 wave 和 rogers 而 得 到 的 。 
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(transform-painter painter 
(make-vect 0.0 0.0) 
(make-vect 0.65 0.35) 
(make-vect 0.35 0.65))) 


框架 变换 也 是 定义 两 个 或 者 更 多 画家 的 组 合 的 关键 。 例 如 ，beside 过 程 以 两 个 画家 为 参 
数 ， 分别 将 它们 变换 为 在 参数 框 染 的 左 半边 和 右 半 边 画 图 ， 这 样 就 产生 出 一 个 新 的 复合 型 画 
家 。 当 我 们 给 了 这 一 画家 一 个 框架 后 ， 它 首先 调用 其 变换 后 的 第 一 个 画家 在 框架 的 左 半 边 夯 
图 ， 而 后 调用 变换 后 的 第 二 个 画家 在 框架 的 右 半 边 画 图 : 

(define (beside painterl painter2) 

(let ((split-point (make-vect 0.5 0.0))) 
(let ((paint-left 
{transform-painter painterl 
(make-vect 0.0 0.0) 
split-point 
(make-vect 0.0 1.0))) 
(paint-right 
(transform-painter painter2 
split-point 
(make~vect 1.0 0.0) 
(make-vect 0.5 1.0)))) 
{lambda (frame) 
{paint-left frame) 
(paint-right frame))))) 


请 特别 注意 ， 这 里 的 画家 数据 抽象 ， 特 别 是 将 画家 用 过 程 表示 ， 怎 样 使 peside 的 实现 变 
得 如 此 简单 。 这 里 的 beside 过 程 完全 不 必 了 解 作 为 其 成 分 的 各 个 画家 的 任何 东西 ， 它 只 需 知 
道 这 些 画 家 能 够 在 指定 框架 里 画 出 一 些 东 西 就 够 了 。 

练习 2.50 ”请 定义 变换 flip-horiz ， 它 能 在 水 平方 向 上 反 转 画家 。 再 定义 出 对 画家 做 
反 时 针 方向 上 180 度 和 270 度 旋转 的 变换 。 

练习 2.51 ”定义 对 画家 的 below 操 作 ， 它 以 两 个 画家 为 参数 。 在 给 定 了 一 个 框架 后 ， 由 
below 得 到 的 画家 将 要 求 第 一 个 画家 在 框架 的 下 部 画图 ， 要 求 第 二 个 画家 在 框架 的 上 部 画图 。 
请 按 两 种 方式 定义 below; 首先 写 出 一 个 类 似 于 上 面 beside 的 过 程 ， 另 一 个 则 直接 通过 
beside 和 适当 的 旋转 操作 (来 自 练 习 2.50) 完成 有 关 工 作 。 

强健 设计 的 语言 层次 

在 上 述 的 图 形 语言 中 ， 我 们 演习 了 前 面 介绍 的 有 关 过 程 和 数据 抽象 的 关键 思想 。 其 中 的 
基本 数据 抽象 和 画家 都 用 过 程 表 示 实 现 ， 这 就 使 该 语言 能 以 一 种 统一 方式 去 处 理 各 种 本 质 上 
完全 不 同 的 画图 能 力 。 实 现 组 合 的 方法 也 满足 闭 包 性 质 ， 使 我 们 很 容易 构造 起 各 种 复杂 的 设 
计 。 最 后 ， 用 于 做 过 程 抽 象 的 所 有 工具 ， 现 在 也 都 可 用 作 组 合 画家 的 抽象 手段 。 

我 们 也 对 程序 设计 的 另 一 个 关键 概念 有 了 一 点 认识 ， 这 就 是 分 层 设计 的 问题 。 这 一 概念 
说 的 是 ， 一 个 复杂 的 系统 应 该 通过 一 系列 的 层次 构造 出 来 ， 为 了 描述 这 些 层次 ， 需 要 使 用 一 
系列 的 语言 。 构 造 备 个 层次 的 方式 ， 就 是 设法 组 合 起 作为 这 一 层次 中 部 件 的 各 种 基本 元 素 ， 
而 这 样 构造 出 的 部 件 又 可 以 作为 另 一 个 层次 里 的 基本 元 素 。 在 分 层 设计 中 ， 每 个 层次 上 所 用 
的 语言 都 提供 了 一 些 基本 元 素 、 组 合 手段 ， 还 有 对 该 层次 中 的 适当 细节 做 抽象 的 手段 。 
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在 复杂 系统 的 工程 中 广泛 使 用 这 种 分 层 设计 方法 。 例 如 ， 在 计算 机 工程 里 ， 电 阻 和 晶体 
管 被 组 合 起 来 (用 模拟 电路 的 语言 )， 产 生出 一 些 部 件 ， 例 如 与 门 、 或 门 等 等 ， 这 些 门 电 路 又 
被 作为 数字 电路 设计 的 语言 中 的 基本 元 素 ”。 将 这 类 部 件 组 合 起 来 ， 构 成 了 处 理 器 、 总 线 和 存 
储 系统 ， 随 即 ， 又 通过 它们 的 组 合 构造 出 各 种 计算 机 ， 此 时 采用 的 是 适合 于 描述 计算 机 体系 
结构 的 语言 。 计 算 机 的 组 合 可 以 进一步 构成 分 布 式 系统 ， 采 用 的 是 适合 摘 述 网 络 互 联 的 语言 。 
我 们 还 可 以 这 样 做 下 去 。 

作为 分 层 设计 的 一 个 小 例子 ， 我 们 的 图 形 语言 用 了 一 些 基本 元 素 《〈 基 本 画家 ) ， 它 们 是 基 
于 描述 点 和 直线 的 语言 建立 起 来 ， 为 Segments->painter 提 供 线段 表 ， 或 者 为 rogers 之 
类 提供 着 色 能 力 。 前 面 关 于 这 一 图 形 语言 的 描述 ， 主 要 是 集中 在 这 些 基本 元 素 的 组 合 方面 ， 
采用 的 是 beside 和 below 一 类 的 几何 组 合 手 段 。 我 们 也 在 更 高 的 层次 上 工作 ， 将 beside 和 
below 作 为 基本 元 素 ， 在 一 个 具有 square-of-four 一 类 操作 的 语言 中 处 理 它 们 ， 这 些 操 作 
抓 住 了 一 些 将 几何 组 合 手段 组 合 起 来 的 利 抑 模 陈 。 

分 层 设计 有 助 于 使 程序 更 加 强健 ， 也 就 是 说 ， 使 我 们 更 有 可 能 在 给 定 规范 发 生 一 些小 改 
变 时 ， 只 需 对 程序 做 少量 的 修改 。 例 如 ， 假 定 我 们 希望 改变 图 2-9 所 示 的 基于 wave 的 图 像 ， 
我 们 就 可 以 在 最 低 的 层次 上 工作 ， 直 接 去 修改 wave 元 素 的 表现 细 市 ， 也 可 以 在 中 间 层 次 上 工 
作 ， 改变 corner-split 里 重复 使 用 wave 的 方式 ， 也 可 以 在 最 高 的 层次 上 工作 ， 改 变 对 图 
形 中 各 个 角 . 上 4 个 副本 的 安排 。 一 般 来 说 ,分 层 结 构 中 的 每 个 层次 都 为 表述 系统 的 特征 提供 了 
一 套 独 特 词 汇 ， 以 及 一 套 修改 这 一 系统 的 方式 。 

练习 2.52 在 上 面 描述 的 各 个 层次 上 工作 ， 修 改 图 2-3 中 所 示 的 方块 的 限制 。 特 别 是 : 

a) 给 练习 2.49 的 基本 wave 画家 加 入 某 些 线段 (例如 ， 加 上 一 个 笑脸 )。 

b) 修改 corner-split 的 构造 模式 (例如 ， 只 用 up-split 和 right-split 的 图 像 的 
各 一 个 副本 ， 而 不 是 两 个 )。 

c) 修改 square-limit， 换 一 种 使 用 square-of-four 的 方式 ， 以 男 一 种 不 同 模式 组 
合 起 各 个 角 区 (例如 ， 你 可 以 让 大 的 Rogers 先 生 从 正方 形 的 每 个 角 问 外 看 )。 


23 符号 数据 

到 目前 为 止 ， 我 们 已 经 使 用 过 的 所 有 复合 数据 ， 最 终 都 是 从 数值 出 发 构造 起 来 的 。 在 这 
一 节 里 ， 我 们 要 扩充 所 用 语言 的 表述 能 力 ， 引 进 将 任意 符号 作为 数据 的 功能 。 
2.3.1 引号 


如 果 我 们 能 构造 出 采用 符号 的 复合 数据 ， 我 们 就 可 以 有 下 面 这 类 的 表 : 


(a b c d) 
(23 45 17) 
( (Norah 12) (Molly 9) (Anna 7) (Lauren 6) (Charlotte 4)) 


这 些 包 含 着 符号 的 表 看 起 来 就 像 是 我 们 语言 里 的 表达 式 .: 
(* (+ 23 45) (+ x 9)) 


(define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 


”3.3.4 节 描述 了 一 个 这 样 的 语言 。 
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为 了 能 够 操作 这 些 符号 ， 我 们 的 语言 里 就 需要 有 一 种 新 元 素 ， 为 数据 对 象 加 引号 的 能 力 。 
假定 我 们 希望 构造 出 表 (a b) ， 当 然 不 能 用 (list a b) 完成 这 件 事 ， 因 为 这 一 表达 式 将 
要 构造 出 的 是 a 和 b 的 值 的 表 ， 而 不 是 这 两 个 符号 本 身 的 表 。 在 目 然 语 言 的 环境 中 ， 这 种 情况 
也 是 众所周知 的 ， 在 那里 的 单词 和 句子 可 能 看 作 语 义 实体 ， 了 岂可 以 看 作 是 字符 的 序列 (语法 
实体 )。 在 自然 语言 里 ， 常 见 的 方式 就 是 用 引号 表明 一 个 词 或 者 一 个 句子 应 作为 文字 看 待 ， 将 
它们 直接 作为 字符 的 序列 。 例 如 说 ， “John” 的 第 一 个 字母 显然 是 “J"” 。 如 果 我 们 对 某 人 说 
“大 声 说 你 的 名 字 ”， 此 时 希望 听 到 的 是 那个 人 的 名 字 。 如 果 说 “大 声 说 “你 的 名 字 ””， 此 时 
希望 听 到 的 就 是 词组 “你 的 名 字 ”。 请 注意 ， 我 们 在 这 里 不 得 不 用 和 伦 套 的 引号 去 摘 述 别人 应 该 
说 的 东西 ”。 

我 们 可 以 按照 同样 的 方式 ， 将 表 和 符号 标记 为 应 该 作为 数据 对 象 看 竺 ， 而 不 是 作为 应 该 
求 值 的 表达 式 。 然 而 ， 这 里 所 用 的 引号 形式 与 自然 语言 中 的 不 同 ， 我 们 只 在 被 引 对 角 的 前 面 
放 一 个 引号 (按照 习惯 ， 在 这 里 用 单 引 号 )。 在 >cheme 里 可 以 不 写 结束 引号 ， 因 为 这 里 已 经 靠 
空白 和 括号 将 对 象 分 隔 开 ， 一 个 单 引 号 的 意义 就 是 引用 下 一 个 对 象 ”。 

现在 我 们 就 可 以 区 分 符号 和 它们 的 值 了: 


(define a 1) 
(define b 2) 


{list a b) 
( 2) 


(list ’a ‘b) 
(a b) 


(list ’a b) 
(a 2) 


引号 也 可 以 用 于 复合 对 象 ， 其 中 采用 的 是 表 的 方便 的 输出 表示 方式 ”: 
{car ‘{a D C)) 


(cdr ‘(a b c)) 


% seve eS Be hie Si, SAH HS Mi BES SP RE 力 ， 因 为 它 破坏 了 对 等 的 东 
西 可 以 相互 替换 的 观念 。 举 个 例子 ， 三 等 于 二 加 一 ， 但 是 “三 ”这 个 字 却 不 等 于 “二 加 一 ”这 个 短语 。 引 号 
是 很 有 威力 的 东西 ， 因 为 它 使 我 们 可 以 构造 起 一 种 能 操作 其 他 表达 式 的 表达 式 (正如 我 们 将 在 第 4 章 里 看 到 的 
那样 ) 但 是 ,在 一 种 语言 里 允许 用 语句 去 讨论 这 一 语言 里 的 其 他 语句 ,那么 有 关 “ 对 等 的 东西 可 以 相互 代 换 ” 
究竟 是 什么 意思 ， 我 们 就 很 难 给 任何 具有 内 在 统一 性 的 说 法 了 。 举 例 说 ， 如 果 我 们 知道 长 庚 星 就 是 局 明星 ， 
那么 我 们 就 可 以 从 句子 “长 庚 星 就 是 金星 ”推导 出 “启明 星 就 是 金星 "”。 然 而 ， 即 使 有 “ 张 三 知道 长 庚 星 就 是 
金星 ”， 我 们 也 无 法 推论 说 “ 张 三 知 道 启明 星 就 是 金星 ”。 

9 音 引 号 和 用 于 括 起 应 该 打印 输出 的 字符 申 的 双 引 号 不 同 。 单 引号 可 以 用 于 括 起 表 和 符号 ， 而 双 引号 只 能 用 于 
字符 串 。 在 本 书 里 只 将 字符 串 用 于 需要 打印 输出 的 对 象 。 

100 严格 地 说 ， 引 号 的 这 种 使 用 方式 ， 违 背 了 我 们 语言 中 所 有 复合 表达 式 都 应 该 由 括号 限定 ， 都 具有 表 的 形式 的 
普遍 性 原则 。 通 过 引进 特殊 形式 guote 就 可 以 恢复 这 种 一 致 性 ， 这 种 特殊 形式 的 作用 与 引号 完全 一 样 。 因 此 ， 
我 们 完全 可 以 用 (quote a) 代替 a, 采用 (quote (a b c)) 而 不 是 (a b c), Kime RBH 
工作 方式 ， 引 号 只 不 过 是 一 种 将 下 一 完整 表达 式 用 (Guote <expression>) 形式 包 右 起 来 的 单字 符 缩写 形 
式 。 这 一 点 非常 重要 ， 因 为 它 维持 了 我 们 的 原则 : 解释 器 看 到 的 所 有 表达 式 都 可 以 作为 数据 对 象 去 操作 。 例 
in, RATTLE AR (car '(a b c))， 它 就 等 同 于 通过 对 表达 式 (list ‘car (list ‘quote "(a 
b c))) 的 求 值 而 得 到 的 (car (quote (a b c))), 
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(b c) 

记 住 这 些 之 后 ， 我 们 就 可 以 通过 求 值 "0 得 到 空 表 ， 这 样 就 可 以 丢掉 变量 ni1 了 。 

为 了 能 对 符号 做 各 种 操作 ， 我 们 还 需要 用 另 一 个 基本 过 程 egq? ， 这 个 过 程 以 两 个 符号 作 
为 参数 ， 检 查 它们 是 否 为 同样 的 符号 ”。 利 用 eg? 可 以 实现 一 个 称 为 memq 的 有 用 过 程 ELL 
一 个 符号 和 一 个 表 为 参数 。 如 果 这 个 符号 不 包含 在 这 个 表 里 (也 就 是 说 ， 它 与 表 里 的 任何 项 
日 都 不 eq? )，memq 就 返回 假 ， 否 则 就 返回 该 表 的 由 这 个 符号 的 第 一 次 出 现 开始 的 那个 子 表 ， 

{define (memq item x) 

(cond ((null? x) false) 


( (eq? item (car x)) x) 
{else (memq item (cdr x))))) 


(memq ’apple ‘(pear banana prune) ) 
的 值 是 假 ， 而 表达 式 : 

(memq ‘apple ’({x (apple sauce) y apple pear}) 
的 值 是 (apple pear), 

练习 2.53 解释 器 在 求 值 下 面 各 个 表达 式 时 将 打印 出 什么 ? 

(list ’a ’b ‘c) 

(list (list ‘george)) 

(car ((xl x2) (yl y2))) 

(cadr °((x1l x2) (y1 y2))) 

(pair? (car ‘(a short list))) 

(memq “red °((red shoes) (blue socks))) 


(memq ‘red '(red shoes blue socks) ) 


练习 2.54 ”如 果 两 个 表 包 含 着 同样 元 素 ， 这 些 元 素 也 按 同样 顺序 排列 ， 那 么 就 称 这 两 个 
表 equal? 。 例 如 : 


(equal? ’(this is a list) ‘(this is a list)) 


古 真 ， 而 

(equal? ’(this is a list) ’(this (is a) list)) 
是 假 。 说 得 更 准确 些 ， 我 们 可 以 从 符号 相等 的 基本 eq? 出 发 ， 以 递归 方式 定义 出 equal? a 
和 b 是 equal? 的 ， 如 果 它 们 都 是 符号 ， 而 且 这 两 个 符号 满足 eq? ， 或 者 它们 都 是 表 ， 而且 
(car a) 和 (car b) 相互 equal?， 它们 的 (cdr a) 和 (cdr b) 也 是 equal? 。 请 利 
用 这 一 思路 定义 出 egual? 过 程 “。 


Il 我 们 可 以 认为 ， 两 个 符号 是 “同样 ”的 ， 如 果 它们 是 由 同样 字符 按照 同样 顺序 构成 。 这 一 定义 回避 了 一 个 我 
们 目前 尚且 无 法 去 探讨 的 深入 问题 ， 程序 设计 语言 里 “同样 ”的 意义 问题 。 我 们 将 在 第 3 章 中 重新 回 到 这 个 
问题 〈 第 3.1.3 节 )。 

2 在 实践 中 ， 程 序 员 们 不 仅 用 equal? 比较 包含 符号 的 表 ， 也 用 它 比较 包含 数值 的 表 。 有 关 两 个 数值 相等 的 数 
(用 检测 ) 是 否 也 eq? 的 问题 高 度 依赖 于 具体 实现 。 对 于 equa1l? 的 一 个 更 好 的 定义 (例如 Scheme 中 的 基本 过 
fl) 还 要 去 检查 a 和 b 是 否 为 两 个 数 ， 如 果 是 它们 都 是 数 ， 数 值 相 等 时 就 认为 它们 egual?。 
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练习 2.55 Eva Lu Ator 输 入 了 表达 式 : 


(car `’ abracadabra) 


令 她 吃惊 的 是 解释 器 打印 出 的 是 guote 。 请 解释 这 一 情况 。 
23.2 实例 ， 符号 求 导 


为 了 阐释 符号 操作 的 情况 ， 并 进一步 前 释 数 据 抽象 的 思想 ， 现 在 考虑 设计 一 个 执行 代数 
表达 式 的 符号 求 导 的 过 程 。 我 们 希望 该 过 程 以 一 个 代数 表达 式 和 一 个 变量 作为 参数 ， 返 回 这 
个 表达 式 相 对 于 该 变量 的 导数 。 人 例如， 如果 送 给 这 个 过 程 的 参数 是 ax +bx +c 和 xY， 它 应 该 返 
回 2ax 十 b。 符 号 求 导数 对 于 Lisp 有 着 特殊 的 历史 意义 ， 它 正 是 推动 人 们 去 为 符号 操作 开发 计 
算 机 语言 的 重要 实例 之 一 。 进 一 步 说 ， 它 也 是 人 们 为 符号 数学 工作 开发 剖 有 力 系 统 的 研究 领 
域 的 开端 ， 今天 已 经 有 越 来 越 多 的 应 用 数学 家 和 物理 学 家 们 正在 使 用 这 类 系统 。 

为 了 开发 出 一 个 符号 计算 程序 ， 我 们 将 按照 2.1.1 节 开发 有 理 数 系统 那样 ， 采 用 同样 的 数 
据 抽象 策略 。 也 就 是 说 ， 首 先 定义 一 个 求 导 算法 ， 令 它 在 一 些 抽 象 对 象 上 操作 ， 例 如 “和 、 
“乘积 ”和 “变量 "， 并 不 考虑 这 些 对 象 实际 上 如 何 表 示 ， 以 后 才 去 关心 具体 表示 的 问题 。 

对 抽象 数据 的 求 导 程序 

为 了 使 有 关 的 讨论 简单 化 ， 我 们 在 这 里 考虑 一 个 非常 简单 的 符号 求 导 程序 ， 它 处 理 的 表 
达 式 都 是 由 对 于 两 个 参数 的 加 和 乘 运算 构造 起 来 的 。 对 于 这 种 表达 式 求 导 的 工作 可 以 通过 下 
面 几 条 归 约 规则 完成 : 


dc 
一 -0 当 c 是 一 个 常量 ,或 者 一 个 与 x 不 同 的 变量 





dx 

& i 

dx 

d(u+y) du dv 
dx dx dx 

dur) _ (8, (a) 


ADN, 
dx T * Vax! 


可 以 看 到 ， 这 里 的 最 后 两 条 规则 具有 递归 的 性 质 ， 也 就 是 说 ， 要 想得到 一 个 和 式 的 导数 ， 
我 们 首先 要 找 出 其 中 各 个 项 的 导数 ， 而 后 将 它们 相 加 。 这 里 的 每 个 项 又 可 能 是 需要 进 一 一 步 分 
解 的 表达 式 。 通 过 这 种 分 解 ， 我 们 能 得 到 越 来 越 小 的 片段， 最 终 将 产生 出 常量 或 者 变量 ， 

们 的 导数 就 是 0 或 者 1 。 

为 了 能 在 一 个 过 程 中 体现 这 些 规则 ， 我 们 用 一 下 按 愿 望 思维 ， 就 像 在 前 面 设 计 有 理 数 的 
实现 时 所 做 的 那样 。 如 果 现 在 有 了 一 种 表示 代数 表达 式 的 方式 ， 我 们 一 定 能 判断 出 某 个 表达 
式 是 否 为 一 个 和 式 、 乘 式 、 常 量 或 者 变量 ， 也 能 提取 出 表达 式 里 的 各 个 部 分 。 对 于 一 个 和 式 
(举例 来 说 )， 我 们 可 能 希望 取得 其 被 加 项 (第 一 个 项 ) 和 加 项 (第 二 个 项 )。 我 们 还 需要 能 从 
几 个 部 分 出 发 构造 出 整个 表达 式 。 让 我 们 假定 现在 已 经 有 了 一 些 过 程 ， 它 们 实现 了 下 述 的 构 
造 函 数 、 选 择 函 数 和 谓词 : 


(variable? e) epi? 
(same-variable? vl v2) v1 和 V2 是 同一 个 变量 吗 ? 


(sum? e) e 是 和 式 吗 ? 


(addend e) e 的 被 加 数 
(augend e) e 的 加 数 
(make-sum al a2) 构造 起 al 与 a2 的 和 式 
(product? e) e@ fe FE XK AS? 
(multiplier e) e 的 被 乘 数 
(multiplicand e) e 的 乘 数 
(make-product ml m2) 构造 起 m1 与 m2 的 乘 式 


利用 这 些 过 程 ， 以 及 判断 表达 式 是 否 数值 的 基本 过 程 humber? ， 我 们 就 可 以 将 各 种 求 寻 规则 
用 下 面 的 过 程 表 达 出 来 了 : 
(define (deriv exp var) 
(cond ((number? exp) 0) 
((variable? exp) 
(if (same-variable? exp var) 1 0)) 
( (sum? exp) 
(make-sum {deriv (addend exp) var) 
(deriv (augend exp) var))) 
((product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
{make=-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
(else 
(error "unknown expression type -- DERIV" exp)))) 


过 程 deriv 里 包含 了 一 个 完整 的 求 导 算法 。 因 为 它 是 基于 抽象 数据 表述 的 ， 因 此 ， 无 论 我 们 
如 何 选择 代数 表达 式 的 具体 表示 ， 只 要 设计 了 一 组 正确 的 选择 函数 和 构造 函数 ， 这 个 过 程 都 
可 以 工作 。 表 示 的 问题 是 下 面 必 须 考 虑 的 问题 。 

代数 表达 式 的 表示 

我 们 可 以 设想 出 许多 用 表 结 构 表 示 代 数 表达 式 的 方法 。 例 如 ， 可 以 利用 符号 的 表 去 直 
接 反 应 代数 的 记 法 形式 ， 将 表达 式 ax+5b 表 示 为 表 (a * x + b)。 然 而 ， 一 种 特别 直 截 
“了 当 的 选择 ， 是 采用 Lisp 里 面 表示 组 合式 的 那 种 带 括号 的 前 级 形 式 ， 也 就 是 说 ， 将 ax +b 表 
示 为 (+ (* a x) b)。 这 样 ， 我 们 有 关 求 导 问 题 的 数据 表示 就 是 : 

。 变量 就 是 符号 ， 它 们 可 以 用 基本 谓词 symbo1? 判断 : 

(define (variable? x) (symbol? x)) 

* 两 个 变量 相同 就 是 表示 它们 的 符号 相互 eq? : 


(define (same-variable?. vi v2) 
(and (variable? vl) (variable? v2) (eq? vl v2))) 


“MIR RARH BAR: 
(define (make~sum al a2) (list "+ al a2)) 


(define (make~product ml m2) (list * ml m2)) 


* 和 式 就 是 第 一 个 元 素 为 符号 十 的 表 : 
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(define (sum? x) | 
(and (pair? x) (eq? (car x) ‘+))) 


* 被 加 数 是 表示 和 式 的 表 里 的 第 二 个 元 素 : 


(define (addend s) (cadr s)) 


。 加 数 是 表示 和 式 的 表 里 的 第 三 个 元 素 : 
(define (augend s) (caddr s)) 
°F BT ICRA S * 的 表 : 
(define (product? x) 
(and (pair? x) (eq? (car x) ’*))) 
* 被 乘 数 是 表示 乘 式 的 表 里 的 第 二 个 元 素 : 
(define (multiplier p) (cadr p)) 
* 乘 数 是 表示 乘 式 的 表 里 的 第 三 个 元 素 : 
(define (multiplicand p) (caddr p)) | 
这 样 ， 为 了 得 到 一 个 能 够 工作 的 符号 求 导 程序 ， 我 们 只 需 将 这 些 过 程 与 deriv 装 在 一 起 。 现 
在 让 我 们 看 几 个 表现 这 一 程序 的 行为 的 实例 : 
(deriv (+ x 3) °X) 
(+ 1 0) 
(deriv ‘(* x y) x) 
(+ (* x 0) (* 1 y)) 
(deriv "(* (* x y) (+ x 3)) ‘x) 
(+ (* (* x y) (+ 1 0)) 
(* (+ (* x 0) (* 1 y)) 
(+ x 3))) | 
程序 产生 出 的 这 些 结果 是 对 的 ， 但 是 它们 没有 经 过 化 简 。 我 们 确实 有 : 
SOY) 041:y 
dx 
当然 ， 我 们 也 可 能 希望 这 一 程序 能 够 知道 x 0=0, 1: y=y 以 及 0 +y =?。 因 此 ， 第 二 个 例子 
的 结果 就 应 该 是 简单 的 y。 正 如 上 面 的 第 三 个 例子 所 显示 的 ， 当 表达 式 变 得 更 加 复杂 时 ， 这 一 
情况 也 可 能 变 成 严重 的 问题 。 : 
现在 所 面临 的 困难 很 像 我 们 在 做 有 理 数 首先 时 所 遇 到 的 问题 .希望 将 结果 化 简 到 最 简单 
的 形式 。 为 了 完成 有 理 数 的 化 简 ， 我 们 只 需要 修改 构造 函数 和 选择 函数 的 实现 。 这 里 也 可 以 
采取 同样 的 策略 。 我 们 在 这 里 也 完全 不 必修 改 deriv， 只 需要 修改 nake-sum， 使 得 当 两 个 
求 和 对 象 都 是 数 时 ，make-sum 求 出 它们 的 和 返回 。 还 有 ， 如 果 其 中 的 一 个 求 和 对 象 是 0， 那 
么 make-sum 就 直接 返回 另 一 个 对 象 。 | 


(define (make-sum al a2) 
(cond (({=number? al 0) a2) 
((=number? a2 0) al) 
((and (number? al) (number? a2)) (+ al a2)) 
(else (list + al a2)))) 
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在 这 个 实现 里 用 到 了 过 程 =number? ， 它 检查 某 个 表达 去 是 否 等 于 一 个 给 定 的 数 。 
(define (=number? exp num) 
(and (number? exp) (= exp num))) 


与 此 类 位， 我 们 也 需要 修改 make-product ， 设 法 引进 下 面 的 规则 :0 与 任何 东西 的 乘 
积 都 是 0 ，1 与 任何 东西 的 乘积 总 古 那 个 东西 : 
(define (make-product ml m2) 
(cond ((or (=number? ml 0) (=number? m2 0)) 0) 
((=number? ml 1) m2) 
((=number? m2 1) ml) 
{({and (number? ml) (number? m2)) (* ml m2)) 
(else (list * ml m2)))) 
FAE Ant RAT a = IT ea R 
(deriv "(+ x 3) ’x) 
'1 
(deriv '(* x y) °X) 
Y 
(deriv ’(* (* x y) (+ x 3)) Xx) 
(+ (* x y) (* y (+ x 3))) 
ERER EZKARA., BE, BZN FAIA, BAP, EC ERREA 
做 成 我 们 都 能 同意 的 “最 简单 ”形式 ， 前 面 还 有 很 长 的 路 要 走 。 代 数 化 简 是 一 个 非常 复杂 的 
问题 ， 除 了 其 他 各 种 因素 之 外 ， 还 有 另 一 个 根本 性 的 问题 : 对 于 某 种 用 途 的 最 向 形式 ， 对 于 
另 一 用 途 可 能 就 不 是 最 向 形式 。 . 
练习 2.56 ”请 说 明 如 何 扩充 基本 求 导 规 则 ， 以 便 能 够 处 理 更 多 种 类 的 表达 式 。 例 如 ， 通 
过 给 程序 deriv 增 加 一 个 新 子 句 ， 并 以 适当 方式 定义 过 程 exponentiation?、base. 
exponent 和 make-exponentiation 的 方式 ， 实 现下 述 求 导 规则 (你 可 以 考虑 用 符号 ** 
| RATE): 
d(u") wi du\ 
dx \dx/ 
请 将 如 下 规则 也 构造 到 程序 里 : 任何 东西 的 0 次 社 都 是 1 ， 而 它们 的 1 次 占 都 是 其 日 身 。 
练习 2.57 ”请 扩充 求 导 程序 ， 使 之 能 处 理 任意 项 (两 项 或 者 更 多 项 ) 的 和 与 乘积 。 这 样 ， 
上 面 的 最 后 一 个 例子 就 可 以 表示 为 : 
{deriv '(* x y (+ x 3)) Xx) 
设法 通过 只 修改 和 与 乘积 的 表示 ， 而 完全 不 修改 过 程 deriv 的 方式 完成 这 一 扩充 。 例 如 ， 这 
一 个 和 式 的 addend 是 它 的 第 一 项 ， 而 其 augend 是 和 式 中 的 其 余 项 。 
练习 2.58 ”假定 我 们 希望 修改 求 导 程序 ， 使 它 能 用 于 常规 数学 公式 ， 其 中 十 和 * 采用 的 
是 中 绥 运 算 符 而 不 是 前 绥 。 由 于 求 导 程序 是 基于 抽象 数据 定义 的 ， 要 修改 它 ， 使 乙 能 用 于 忆 
一 种 不 同 的 表达 式 表示 ， 我 们 只 需要 换 一 套 工作 在 新 的 、 求 导 程序 需要 使 用 的 代数 表 运 式 乓 
表示 形式 上 的 谓词 、 选 择 函 数 和 构造 函数 。 
a) 请 说 明 怎样 做 出 这 些 过 程 ,以便 完成 在 中 缀 表示 形式 (例如 (x + (3* (x+ (Y +2))))) 
上 的 代数 表达 式 求 导 。 为 了 简化 有 关 的 工作 ,现在 可 以 假定 + 和 * 总 是 取 两 个 参数 ， 而 且 表 
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达 式 中 已 经 加 上 了 所 有 的 括号 。 

b) 如 果 人 允许 标 准 的 代数 写法 ， 例 如 (x + 3* (x + y + 2)), 问题 就 会 变 得 更 困难 
许多 。 在 这 种 表达 式 里 可 能 不 写 不 必要 的 括号 ， 并 要 假定 乘法 应 该 在 加 法 之 前 完成 。 你 还 能 为 
这 种 表示 方式 设计 好 适当 的 谓词 、 选 择 函数 和 构造 函数 ， 使 我 们 的 求 导 程序 仍然 能 工作 吗 ? 


23.3 实例 ， 集合 的 表示 


在 前 面 的 实例 中 ， 我 们 已 经 构造 起 两 类 复合 数据 对 象 的 表示 : 有 理 数 和 代数 表达 式 。 在 
这 两 个 实例 中 ， 我 们 都 采用 了 某 一 种 选择 ， 在 构造 时 或 者 选择 成 员 时 去 简化 《 约 简 ) ARM 
表示 。 除 此 之 外 ， 选 择 用 表 的 形式 来 表示 这 些 结构 都 是 直截了当 的 。 现 在 我 们 要 转 到 集合 的 
表示 问题 ， 此 时 ， 表 示 方 式 的 选择 就 不 那么 显然 『。 实际 上 ， 在 这 里 存在 几 种 选择 ， 而 且 它 
们 相互 之 间 在 几 个 方面 存在 明显 的 不 同 。 

非 形 式 地 说 ， 一 个 集合 就 是 一 些 不 同 对 象 的 汇集 。 要 给 出 一 个 更 精确 的 定义 ， 我 们 可 以 
利用 数据 抽象 的 方法 ， 也 就 是 说 ， 用 一 组 可 以 作用 于 “集合 ”的 操作 来 定义 它们 。 这 些 操作 
是 union-set, intersection-set, element-of-set? 和 adjoin-set。 其 中 
element-of-set? 是 一 个 谓词 ， 用 于 确定 某 个 给 定 元 素 是 不 是 某 个 给 定 集合 的 成 员 。 
adjoin-set 以 一 个 对 象 和 一 个 集合 为 参数 ， 返 回 一 个 集合 ， 其 中 包含 了 原 集 合 的 所 有 元 素 ， 
再 加 上 刚刚 加 入 进来 的 这 个 新 元 素 。union-set 计 算出 两 个 集合 的 并 集 ， 这 也 是 一 个 集合 ， 
其 中 包含 了 所 有 属于 两 个 参数 集合 之 一 的 元 素 。intersection-set 计 算出 两 个 集合 的 交 
集 ， 它 包含 着 同时 出 现在 两 个 参数 集合 中 的 那些 元 素 。 从 数据 抽象 的 观点 看 ， 我 们 在 设计 有 
关 的 表示 方面 具有 充分 的 自由 ， 只 要 住 这 种 表示 上 实现 的 上 述 操作 能 以 某 种 方式 符合 上 面 给 
出 的 解释 。 


集合 作为 未 排序 的 表 

集合 的 一 种 表示 方式 是 用 其 元 素 的 表 ， 其 中 任何 元 素 的 出 现 都 不 超过 一 次 。 这 样 BRK 
就 用 空 表 来 表示 。 对 于 这 种 表示 形式 ，element-of-set? 类 似 于 2.3.1 节 的 过 程 nemq， 但 它 
应 该 用 equal? 而 不 是 eq? ， 以 保证 集合 元 素 可 以 不 是 符号 : 


{define (element-of-set? x set) 
(cond ((null? set) false) 
= {(equal? x (car set)) true) 
(else (element-of~set? x (cdr set))))) | 


Fil AC RAES Hadjoin-set, 如 果 要 加 入 的 对 象 已 经 在 相应 集合 里 ， 那么 就 返回 那个 集 
合 ， 否 则 就 用 cons 将 这 一 对 象 加 入 表示 集合 的 表 里 : 


(define (adjoin-set x set) 
(if (element-of-set? x set) 


03 如 果 和 希望 更 形式 化 些 ， 可 以 将 “以 某 种 方式 符合 上 面 给 出 的 解释 BUA, 有 关 操 作 必 须 满足 以 规则 : 
。 对 于 任何 集合 S 和 对 象 X ， (element-of-set? x (adjoin-set x 5)) 为 真 〈 非 形式 地 说 ，“ 将 
一 个 对 象 加 入 某 集 合 后 产生 的 集合 里 包含 荐 这 个 对 象 “) 。 
* 对 于 任何 集合 6 和 T， 以 及 对 象 X， (element-of-set? X (union-set S T)) 4+ (or 
(element-of-set? x S ) (element-of-set? X T)) { 非 形 式 地 说 ， “(union S T) 的 元 素 
就 是 在 S 里 或 者 在 7 里 的 元 素 )。 
。 对 于 任何 对 象 x，(element-of-set? x 0) 为 假 ( 非 形式 地 培 ， 任何 对 象 都 不 是 空 集 的 元 素 ) 。 


a HIB 


set 


(cons x set))) 


实现 1ntersectilon~set 了 时 可 以 采用 递归 策略 wR RNA ifi set2 SsetlAycdr 
的 交集 ， 那 么 就 只 需要 确定 是 否 应 将 set1l 上 的 car 包含 到 结果 之 中 了 ， 而 这 依赖 于 (car 
setl) 是 否 也 在 Set2 里 。 下 面 古 这 样 写 出 的 过 程 : 
(define (intersection-set setl set2) 
(cond ((or (null? setl) (null? set2)) °()) 
((element-of-set? (car setl) set2) 
(cons (car setl) 
(intersection-set (cdr setl) set2))) 


(else (intersection-set (cdr seti) set2)))) 

在 设计 一 种 表示 形式 时 ， 有 一 件 必须 关注 的 事情 是 效率 问题 。 为 考虑 这 一 问题 RES 
考虑 上 面 定 义 的 各 集合 操作 所 需要 的 工作 步 数 。 因 为 它们 都 使 用 J 了 element-of-set?,，, 这 
一 操作 的 速度 对 整个 集合 的 实现 效率 将 有 重大 影响 。 在 上 面 这 个 实现 里 ,为 了 检查 某 个 对 象 
是 否 为 -- 个 集合 的 成 员 ，element-~of-set? 机 能 不 得 不 扫 措 整个 集合 (最 坏 情 况 古 这 一 元 
素 恰 好 不 在 集合 里 )。 因 此 ， 如 果 和 集合 有 n 个 元 素 ，element-of-set? 就 可 能 需要 n 步 才能 先 
成 。 这 样 ， 这 一 操作 所 需 的 步 数 将 以 8@(n) 的 速度 增长 。adjoin-set 使 用 了 这 个 操作 ， 因 此 
它 所 需 的 步 数 也 以 B(n) 的 速度 增长 。 而 对 于 intersection-set ， 它 需要 对 set1 的 每 个 元 
素 做 一 次 element-of-set2? 检 查 ， 因 此 所 需 步 数 将 按 所 涉及 的 两 个 集合 的 大 小 之 乘积 增长 ， 
或 者 说 ， 在 两 个 集合 大 小 都 为 n 时 就 是 B( 扩 ) 。union-set 的 情况 也 是 如 此 。 

练习 2.59 请 为 采用 未 排序 表 的 集合 实现 定义 union-set 操 作 。 

练习 2.60 ”我 们 前 面 说 明了 如 何 将 集合 表示 为 没有 重复 元 素 的 表 。 现 在 假定 允许 重复 ， 
例如 ， 集 合 {1, 2, 3} 可 能 被 表示 为 表 (2 3 2 1 3 2 2), 请 为 在 这 种 表示 上 的 操作 设计 
ot felement-of-set?, adjoin-set, union-setffintersection-set, 与 前 和 面 不 
重复 表示 里 的 相应 操作 相 比 ， 现 在 各 个 操作 的 效率 怎么 样 ? 在 什么 样 的 应 用 中 你 更 倾向 于 使 
用 这 种 表示 ， 而 不 是 前 面 那 种 无 重复 的 表示 ? 


集合 作为 排序 的 表 

加 速 集 合 操作 的 一 种 方式 是 改变 表示 方式 ， 使 集合 元 素 在 表 中 按照 上 升序 排列 。 为 此 ， 
我 们 就 需要 有 某 种 方式 来 比较 两 个 元 素 ， 以 便 确 定 哪个 元 素 更 大 一 些 。 例 如 ， 我 们 可 以 按 字 
典 序 做 符号 的 比较 ， 或 者 同意 采用 某 种 方式 为 每 个 对 象 关 联 一 个 唯一 的 数 ， 在 比较 元 素 的 时 
候 就 比较 与 之 对 应 的 数 。 为 了 简化 这 里 的 讨论 ， 我 们 将 仅仅 考虑 集合 元 素 是 数值 的 情况 X 
样 就 可 以 用 > 和 < 做 元 素 的 比较 了 。 下 面 将 数 的 集合 表示 为 元 素 按 照 上 升 顺序 排列 的 表 。 在 
前 面 第 一 种 表示 方式 下 ,集合 {1，3，6，10} 的 元 素 在 相应 的 表 里 可 以 任意 排列 OEE 
的 新 表示 方式 中 ， 我 们 就 只 允许 用 表 (1 3 6 10), : 

从 操作 element~of-set? 可 以 看 到 采用 有 序 表示 的 一 个 优势 ， 为 了 检查 一 个 项 的 存在 
性 ， 现 在 就 不 必 和 扫描 整个 表 了 。 如 果 检 查 中 过 到 的 某 个 元 素 大 于 当时 要 找 的 东西 ， 那 么 就 可 
以 断定 这 个 东西 根本 不 在 表 里 : 


(define (element-of-set? x set) 
(cond ((null? set) false) 


le, ëy 


((= x (car set)) true) 

((< x (car sét)) false) 

(else (element-of-set? x (cdr set))))) 
这 样 能 节约 多 少 步 数 呢 ? 在 最 坏 情 况 下 ， 我 们 要 找 的 项 目 可 能 是 集合 中 的 最 大 元 素 ， 此 时 所 
需 步 数 与 采用 未 排序 的 表示 时 一 样 。 但 在 另 一 方面 ， 如 果 需 要 查找 许多 不 同 大 小 的 项 ， 我 们 
总 可 以 期 望 ， 有 些 时 候 这 一 检索 可 以 在 接近 表 开 始 处 的 某 一 乓 停止 ， 也 有 些 时 候 党 要 检查 表 
的 一 大 部 分 。 平 均 而 言 ， 我 们 可 以 期 望 需 要 检查 表 中 的 一 半 元 素 ， 这 样 ， 平 均 所 需 的 步 数 就 
是 大 约 n/2。 这 仍然 是 B(n) 的 增长 速度 ， 但 与 前 一 实现 相 比 ,平均 来 说 ,现在 我 们 市 约 了 大 约 
一 半 的 步 数 ( 这 一 解释 并 不 合理， 因为 前 面 说 未 排序 表 需 要 检查 整个 表 ， 考 虑 的 只 是 一 种 特 
殊 情况 : 查找 没有 出 现在 表 里 的 元 素 。 如 果 查 找 的 是 表 里 存 在 的 元 素 ， 即 使 采用 未 排序 的 表 ， 
平均 查找 长 度 也 是 表 元 素 的 一 半 ，。 译 者 注 )。 

操作 intersection-set 的 加 速 情况 更 使 人 印象 深刻 。 在 未 排序 的 表示 方式 里 ， 这 一 
操作 需要 B(n?) 的 步 数 ， 因 为 对 set1 的 每 个 元 素 ， 我 们 都 需要 对 set2 做 一 次 完全 的 扫 搞 。 对 
于 排序 表示 则 可 以 有 一 种 更 聪明 的 方法 。 我 们 在 开始 时 比较 两 个 集合 的 起 始 元 素 ， 例 如 x1 和 
x2 。 如 果 x1 等 于 x2 ， 那 么 这 样 就 得 到 了 交集 的 一 个 元 素 ， 而 交集 的 其 他 元 素 就 是 这 两 个 集合 
的 cdz 的 交集 。 如 果 此 时 的 情况 是 x1 小 于 x2 ， 由 于 Xx2 是 集合 set<2 的 最 小 元 素 ， 我 们 立即 可 
以 断定 x1 不 会 出 现在 集合 set2 里 的 任何 地 方 ， 因 此 它 不 应 该 在 交集 里 。 这 样 ， 两 集合 的 交集 
就 等 于 集合 set2 与 set1 的 cdr 的 交集 。 与 此 类 似 ， 如 果 x2 小 于 xl ， 那 么 两 集合 的 交集 就 等 
于 集合 set1 与 set2 的 cdr 的 交集 。 下 面 是 按 这 种 方式 写 出 的 过 程 : 
(define (intersection-set seti set2) 
(if (or (null? setl) (null? set2)) 
jet ({xl (car setl)) (x2 (car set2))) 
{cond ((= xl x2) 
(cons xl 


(intersection-set (cdr seti) 
(cdr set2)))) 





((< xl x2) 
(intersection-set (cdr setl) set2)) 
((< x2 xl) 
(intersection-set setl (cdr set2))))))) 
为 了 估计 出 这 一 过 程 所 需 的 步 数 ， 请 注意 ， 在 每 个 步骤 中 ， 我 们 都 将 求 交集 问题 归结 到 更 
小 集合 的 交集 计算 问题 一 -去 掉 了 set1 和 set2 之 一 或 者 是 两 者 的 第 一 个 元 素 。 这 样 ， 所 
需 步 数 至 多 等 于 set1 与 set2 的 大 小 之 和 ， 而 不 像 在 未 排序 表示 中 它们 的 乘积 。 这 也 就 是 
O(n) 的 增长 速度 ， 而 不 是 B(2) 一 一 这 一 加 速 非常 明显 ， 即 使 对 中 等 大 小 的 集合 也 是 如 此 。 
练习 2.61 “请 给 出 采用 排序 表示 时 adjoin-set 的 实现 。 通 过 类 似 element-of-set? 
的 方式 说 明 ， 可 以 如 何 利用 排序 的 优势 得 到 一 个 过 程 ， 其 平均 所 需 的 步 数 是 采用 未 排序 表示 
时 的 一 半 。 
练习 2.62 请 给 出 在 集合 的 排序 表示 上 union-set 的 一 个 8(n) 实现 。 


集合 作为 二 叉 树 
如 果 将 集合 元 素 安排 成 一 棵 树 的 形式 ， 我 们 还 可 以 得 到 比 排序 表 表 示 更 好 的 结果 。 树 中 


每 个 结 点 保存 集合 中 的 一 个 元 素 ， 称 为 该 结 点 的 “数据 项 ”， 它 还 链接 到 另外 的 两 个 结 点 (可 
能 为 空 ) 。 其 中 “左边 ”的 链接 所 指向 的 所 有 元 素 均 小 于 本 结 点 的 元 素 ， 而 “右边 ”链接 到 的 
元 素 都 大 于 本 结 点 里 的 元 素 。 图 2-16 显 示 的 是 一 棵 表示 集合 的 树 。 同 一 个 集合 表示 为 树 可 以 
有 多 种 不 同 的 方式 ， 我 们 对 一 个 合法 表示 的 要 求 就 是 ， 位 于 左 子 树 里 的 所 有 元 素 都 小 于 本 结 
点 里 的 数据 项 ， 而 位 于 右 子 树 里 的 所 有 元 素 都 大 于 它 。 


A A A 
AN A SA 
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图 2-16 #A{l, 3,5, 7, 9, 1} 的 几 种 二 又 树 表示 


树 表 示 方法 的 优点 在 于 : 假定 我 们 希望 检查 某 个 数 x 是 否 在 一 个 集合 里 ， 那 么 就 可 以 用 x 
与 树 顶 结 点 的 数据 项 相 比 较 。 如 果 X 小 于 它 ， 我 们 就 知道 现在 只 需要 搜索 左 子 树 WRX HR 
大 ， 那 么 就 只 需 搜 索 右 子 树 。 在 这 样 做 时 ， 如 果 该 树 是 “平衡 的 "， 也 就 是 说 ， 每 棵 子 树 大 约 
是 整个 树 的 一 半 大 ， 那 么 ， 这 样 经 过 一 步 ， 我 们 就 将 需要 搜索 规模 为 ”的 树 的 问题 ， 归 约 为 搜 
索 规 模 为 mw/2 的 树 的 问题 。 由 于 经 过 每 个 步骤 能 够 使 树 的 大 小 减 小 一 半 ， 我 们 可 以 期 望 搜索 规 
模 为 n 的 树 的 计算 步 数 以 BQ(log n) 速度 增长 “。 在 集合 很 大 时 ， 相 对 于 原来 的 表示 ， 现 在 的 操 
作 速 度 将 明显 快 得 多 。 

我 们 可 以 用 表 来 表示 树 ， 将 结 点 表示 为 三 个 元 素 的 表 : SHARP OREM, RATA 
右 子 树 。 以 空 表 作 为 左 子 树 或 者 右 子 树 ， 就 表示 没有 子 树 连接 在 那里 。 我 们 可 以 用 下 面 过 程 
描述 这 种 表示 “: 

(define (entry tree) (car tree)) 

(define (left~branch tree) (cadr tree) ) 

(define (right-branch tree) (caddr tree) ) 


(define (make-tree entry left right) 
(list entry left right)) 


现在 ， 我 们 就 可 以 采用 上 面 描述 的 方式 实现 过 程 element-of-set? ] : 
(define (element-of-set? x set) : 
{cond ({null? set) false) 


104 pit fa] SUR a hE, soc eR a KR PTE, RR E24 A RR A 53 
里 的 半 区 间 搜 索 算 法 中 所 看 到 的 那样 。 | 

05 我 们 用 树 来 表示 集合 ， 而 树 本 身 又 用 表 表 示 一 一 从 作用 上 看 ， 这 就 是 在 一 种 数据 抽象 上 面 构造 另 一 种 数据 抽 
2. ROTA pentry, left-branch, right-branch 和 make-tree 看 作 是 一 种 方法 ， 它 将 “二 
叉 树 ”抽象 隔离 于 如 何 用 表 结 构 表示 它 的 特定 方式 之 外 。 | | 
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((= x (entry set)) true) 

((< x (entry set) ) 

(element-of-set? x (left-branch set))) 
((> x (entry set) ) 

(element-of-set? x (right-branch set))))) 


加 集合 里 加 入 一 个 项 的 实现 方式 与 此 类 似 ， 也 需要 B(log n) HH. AT MATH, Ri 
需 楼 将 x 与 结 扣 数据 项 比较 ， 以 便 确 定 X 应 该 加 入 布 子 树 还 古 左 子 树 中 。 在 将 x 加 入 适当 的 分 
六 之 后 ， 我 们 将 新 构造 出 的 这 个 分 支 、 原 来 的 数据 项 与 另 一 分 支 放 到 一 起 。 如 果 x 每 于 这 个 数 
据 项 ， 那 么 就 直接 返回 这 个 结 点 。 如 果 需 要 将 x 加 入 一 个 空子 树 ， 那 么 我 们 就 生成 一 棵 树 ， 以 
x 作为 数据 项 ， 并 让 它 具 有 空 的 左右 分 支 。 下 面 是 这 个 过 程 : 
(define (adjoin-set x set) 
(cond ((null? set) (make-tree x () °())) 
((= x (entry set)) set) - 
((< x (entry set)) 
(make-tree {cntry set) 
{adjoin-set x (left-branch set)) 
(right-branch set))) . 
({> x (entry set)) 
{make-tree (entry set) 


(left-branch set). 
(adjoin-set x (right-branch set)})))) 


我 们 在 上 面 断言 ， 搜 索 树 的 操作 可 以 在 对 数 步 数 中 完成 ， 这 实际 上 依赖 于 树 “ 平 衡 ” 的 
假设 ， 也 就 是 说 ， 每 个 树 的 左右 子 树 中 的 结 点 大 1 
致 上 一 样 多 ， 因 此 每 标 子 树 中 包含 的 结 点 大 约 就 N 
是 其 父 的 一 半 。 但 是 我 们 怎么 才能 确保 构造 出 的 2 
树 是 平衡 的 呢 ? 即使 是 从 一 棵 平衡 的 树 开始 工作 ， \ 
采用 adjoin-set 加 入 元 素 也 可 能 产生 出 不 平衡 \ 
”的 结果 。 因 为 新 加 入 元 素 的 位 置 依赖 于 它 与 当时 4 
已 经 在 树 中 的 那些 项 比较 的 情况 。 我 们 可 以 期 望 ， N 
如 果 “ 随 机 地 ”将 元 素 加 入 树 中 ， 平 均 而 言 将 会 
使 树 趋 于 平衡 。 但 在 这 里 并 没有 任何 保证 。 例 如 ， N, 
如 果 我 们 从 空 集 出 发 ， 顺 序 将 数值 1 至 7 加 入 其 中 ， N 
我 们 就 会 得 到 如 图 2-17 所 示 的 高 度 不 平衡 的 树 。 7 
在 这 个 树 里 ， 所 有 的 左 子 树 都 为 空 ， 所 以 它 与 简 W217 通过 顺序 加 入 1 到 7 产生 的 非 平衡 树 
单 排序 表 相 比 一 点 优势 也 没有 。 解 决 这 个 问题 的 
一 种 方式 是 定义 一 个 操作 ， 它 可 以 将 任意 的 树 变换 为 -- 棵 具有 同样 元 素 的 平衡 树 。 在 每 执行 
过 几 次 adjoin-set 操 作 之 后 ， 我 们 就 可 以 通过 执行 它 来 保持 树 的 平衡 。 当 然 ， 解 决 这 一 问 
题 的 方法 还 有 许多 ， 大 部 分 这 类 方法 都 涉及 到 设计 一 种 新 的 数据 结构 ， 设 法 使 这 种 数据 结构 
上 的 搜索 和 插入 操作 都 能 够 在 6(log n) 步 数 内 完成 ”。 


106 这 种 结构 的 例子 如 B 树 和 红 黑 树 。 存 在 大 量 有 关 数 据 结 构 的 文献 讨论 这 一 问题 ， 参 见 Cormen, Leiserson, and 
Rivest 1990 。 
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练习 2.63 下 面 两 个 过 程 都 能 将 树 变换 为 表 : 


(define (tree->list-1 tree) 
(if (null? tree) 
() 
(append (tree->list-1 (left-branch tree)) 
{cons (entry tree) 
(tree->list~l (right-branch tree)))))) 


(define (tree->list-2 tree) 
(define (copy-to-list tree result-list) 
(if (null? tree) 
result-list 
(copy-to-list (left-branch tree) 
(cons (entry tree) 
(copy-to-list (right-branch tree) 
result-list))))) 
(copy-to-list tree ‘())) 


a) 这 两 个 过 程 对 所 有 的 树 都 产生 同样 结果 吗 ? 如 果 不 是 ， 它们 产生 出 的 结果 有 什么 
同 ? 它 们 对 图 2-16 中 的 那些 树 产生 什么 样 的 表 ? 

b) 将 n 个 结 点 的 平衡 树 变 换 为 表 时 ， 这 两 个 过 程 所 需 的 步 数 具有 同样 量 级 的 增长 束 度 吗 ? 
如 果 不 一 样 ， 哪 个 过 程 增 长 得 慢 一 些 ? 

练习 2.64 下面 过 程 1ist->tree 将 一 个 有 序 表 变换 为 一 棵 平衡 二 又 树 。 其 中 的 辅助 函 
数 partial~tree 以 整数 nx 和 一 个 至 少 包 含 h 个 元 素 的 表 为 参数 ， 构 造 出 一 棵 包含 这 个 表 的 前 
n 个 元 素 的 平衡 树 。 由 partial-tree 返 回 的 结果 是 一 个 序 对 (用 cons 构 造 )， 其 car 是 构造 
出 的 树 ， 其 cdr 是 没有 包含 在 树 中 那些 元 素 的 表 。 


(define (list->tree elements) 
(car (partial-tree elements (length elements)))) 


(define (partial-tree elts n) 
(if (= n Q) 
{cons ’() elts) 
(let ((left-size {quotient (- n 1) 2))) 
(let ((left-result (partial-tree elts left-size))) 
(let ((left-tree (car left-result) ) 
(non-left-elts (cdr left-result)) 
(right-size (- n (+ left-size 1)))) 
(let ((this-entry (car non-left-elts) ) 
(right-result (partial-tree (cdr non-left-elts) 
right-size))}) 
(let ((right-tree (car right-result) ) 
(remaining-elts (cdr right-result) )) 
(cons (make-tree this-entry left-tree right-tree) 
remaining-elts)))))))) 


a) 请 简要 地 并 尽 可 能 清楚 地 解释 为 什么 Partial- -tree 能 先 成 工作 。 请 画 出 将 11st- 
>tree 用 于 表 (13579 11) 产生 出 的 树 。 

b) 过 程 1ist->tree 转 换 n 个 元 素 的 表 所 需 的 步 数 以 什么 量 级 增长 ? 

练习 2.65 “利用 练习 2.63 和 练习 2.64 的 结果 ， 给 出 对 采用 (平衡 ) 二 又 树 方式 实现 的 集合 
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的 union-set 和 intersection-set 操 作 有 的 GQ(n) XHY, 


集合 与 信息 检索 

我 们 考察 了 用 表 表 示 集 合 的 各 种 选择 ， 并 看 到 了 数据 对 象 表示 的 选择 可 能 如 何 深 刻 地 影 
响 到 使 用 数据 的 程序 的 性 能 。 关 注 集合 的 另 一 个 原因 是 ， 这 里 所 讨论 的 技术 在 涉及 信息 检索 
的 各 种 应 用 中 将 会 一 次 又 一 次 地 出 现 。 

现在 考虑 一 个 包含 大 量 独 立 记录 的 数据 库 ， 例 如 一 个 企业 中 的 人 事 文件 ， 或 者 一 个 会 计 
系统 里 的 交易 记录 。 典 型 的 数据 管理 系统 都 需 将 大 量 时 间 用 在 访问 和 修改 所 存 的 数据 上 ,. 因 
此 就 需要 访问 记录 的 高 效 方法 。 完 成 此 事 的 一 种 方式 是 将 每 个 记录 中 的 一 部 分 当 作 标识 key 
( 键 值 ) 。 所 用 键 值 可 以 是 任何 能 唯一 标识 记录 的 东西 。 对 于 人 事 文件 而 言 ， 它 可 能 是 懂 员 的 
ID 编码 。 对 于 会 计 系 统 而 言 ， 它 可 能 是 交易 的 编号 。 在 确定 了 采用 什么 键 值 之 后 ， 就 可 以 将 
记录 定义 为 一 种 数据 结构 ， 并 包含 key 选 择 过 程 ， 它 可 以 从 给 定 记 录 中 提取 出 有 关 的 键 值 。 

现在 就 可 以 将 这 个 数据 库 表 示 为 一 个 记录 的 集合 。 为 了 根据 给 定 键 值 确定 相关 记录 的 位 
E, 我们 用 一 个 过 程 l00kup , 它 以 一 个 键 值 和 一 个 数据 库 为 参数 ,返回 具有 这 个 键 值 的 记录 ， 
或 者 在 找 不 到 相应 记录 时 报告 失败 。lookup 的 实现 方式 几 平 与 slement-of~set? 一 模 一 
样 ， 如 果 记 录 的 集合 被 表示 为 未 排序 的 表 ， 我 们 就 可 以 用 : 

(define (lookup given-key set-of-records) 

(cond ((null? set-of-records) false) 
( (equal? given-key (key (car set-of-records) )) 


(car set-of-records) ) 
(else (lookup given-key (cdr set-of-records))))) 


不 言 而 喻 ， 还 有 比 未 排序 表 更 好 的 表示 大 集合 的 方法 。 常 常 需要 “随机 访问 ”其 中 记录 
的 信息 检索 系统 通常 用 某 种 基于 树 的 方法 实现 ， 例 如 用 前 面 讨论 过 的 二 叉 树 。 在 设计 这 种 系 
统 时 ， 数 据 抽 象 的 方法 学 将 很 有 帮助 。 设 计 师 可 以 创建 某 种 简单 而 直接 的 初始 实现 ， 例 如 采 
用 未 排序 的 表 。 对 于 最 终 系 统 而 言 ， 这 种 做 法 显然 并 不 合适 ， 但 采用 这 种 方式 提供 一 个 “一 
挥 而 就 ”的 数据 库 ， 对 用 于 测试 系统 的 其 他 部 分 则 可 能 很 有 帮助 。 然 后 可 以 将 数据 表示 修改 
得 更 加 情 细 如 果 对 数据 库 的 访问 都 是 基于 抽象 的 选择 函数 和 构造 函数 ， 这 种 表示 的 改变 就 

会 变 求 对 系统 其 余部 分 做 任何 修改 。 

练习 2.66 ”假设 记录 的 集合 来 用 二 又 树 实 现 ， 按照 其 中 作为 键 值 的 数值 排序 。 请 实现 相 
应 的 lookup 过 程 。 


2.3.4 ”实例 Huffman 编码 树 


本 节 将 给 出 一 个 实际 使 用 表 结 构 和 数据 抽象 去 操作 集合 与 树 的 例子 。 这 一 应 用 是 想 确 定 
一 些 用 0 和 1 (二 进 制 位 ) 的 序列 表示 数据 的 方法 。 举 例 说 ， 用 于 在 计算 机 里 表示 文本 的 
ASCII 标 准 编码 将 每 个 字符 表示 为 一 个 包含 7 个 二进制 位 的 序列 ,采用 7 个 二 进 制 位 能 够 区 分 
27 种 不 同情 况 ， 即 128 个 可 能 不 同 的 字符 。 一 般 而 言 ， 如 果 我 们 需要 区 分 # 个 不 同 字符 ， 那 么 
就 需要 为 每 个 字符 使 用 log: 2 个 二 进 制 位 。 假 设 我 们 的 所 有 信息 都 是 用 A、B、C、D、E、 工 、 
G 和 H 这 样 8 个 字符 构成 的 ， 那 么 就 可 以 选择 每 个 字符 用 3 个 二 进 制 位 ， 例 如 : 


1) 练习 2.63 到 2.65 来 自 Pauil Hilfinger 。 


Mg RH A 


A 000 C 010 E 100 G 110 
B 001 D O11 F 101 H 111 


RAIS PRIJA, TA: 
BACADAEAFABBAAAGAH 


将 编码 为 4 个 二 进 制 位 
001000010000011000100000101000001001000000000110000111 


像 ASCH 码 和 上 面 A 到 旦 编码 这 样 的 编码 方式 称 为 定 长 编码 ， 因 为 它们 采用 同样 数目 的 二 进 制 
位 表示 消息 中 的 每 一 个 字符 。 变 长 编码 方式 就 是 用 不 同 数 目的 二 进 制 位 表示 不 同 的 字符 ， 这 
种 方式 有 时 也 可 能 有 些 优势 。 举 例 说 ， 莫 尔 斯 电报 码 对 于 字母 表 中 各 个 字母 驶 没有 采用 同样 
数目 的 点 和 划 ， 特 别 是 最 常见 的 字母 E 只 用 一 个 点 表示 。 一 般 而 言 ， 如 有 打 在 我 们 的 消息 里 ， 某 
些 符号 出 现 得 很 频繁 ， 而 另 一 些 却 很 少见 ， 那 么 如 凡 为 这 些 频 莹 出 现 的 字符 指定 较 短 的 码 字 ， 
我 们 就 可 能 更 有 效 地 完成 数据 的 编码 (对 于 同样 消息 使 用 更 少 的 二 进 制 位 )。 请 考虑 下 面 对 于 
字母 A 到 所 的 另 一 种 编码 : 

AO C 1010 E 1100 G 1110 

B 100 D 1011 F 1101 H 1111 


采用 这 种 编码 方式 ， 上 面 的 同样 信息 将 编码 为 如 下 的 串 : 
100010100101101100011010100100000111001111 


kA Bb A fy S424— eH iz, tote, 5 EEE Raw th, ME A A 20 TE 
过 20 多 的 空间 。 

采用 变 长 编码 有 一 个 困难 ， 那 就 是 在 读 0/1 序列 的 过 程 中 确定 何 时 到 达 了 一 个 字符 的 结束 。 
莫 尔 斯 码 解决 这 一 问题 的 方式 是 在 每 个 字母 的 点 划 序 列 之 后 用 一 个 特殊 的 分 隔 符 〈 写 用 的 是 
一 个 间歇 )。 另 一 种 解决 方式 是 以 某 种 方式 设计 编码 ， 使 得 其 中 每 个 字符 的 完整 编码 都 不 古 曙 
一 字符 编码 的 开始 一 段 〈 或 称 前 缓 )。 这 样 的 编码 称 为 前 缓 码 。 在 上 面 例子 里 ， 全 编码 AN 而 
编码 为 100， 没 有 其 他 字符 的 编码 由 0 或 者 100 开 始 。 | 

mE, ee ieee ict te AAR FA ob Sa STA LS BLY FEE, BB aE 
能 明显 地 节约 空间 。 完 成 这 件 事 情 的 一 种 特定 方式 称 为 Huffman 编 码 ， 这 个 名 称 取 目 其 发 明和 人 
David Huffman。 一 个 Huffman 编码 可 以 表示 为 一 棵 二 又 树 ， 其 中 的 树叶 是 被 编码 的 他 号 。 树 
中 每 个 非 叶 结 点 代表 一 个 集合 ， 其 中 包含 了 这 一 结 点 之 下 的 所 有 树叶 上 的 符号 。 队 此 之 外 ， 
位 于 树叶 的 每 个 符号 还 被 赋予 一 个 权重 (也 就 是 它 的 相对 频 度 )， 非 叶 结 点 所 包含 的 权重 十 位 
于 它 之 下 的 所 有 叶 结 点 的 权重 之 和 。 这 种 权重 在 编码 和 解码 中 并 不 使 用 。 下 面 将 会 看 到 ， 在 
构造 树 的 过 程 中 需要 它们 的 帮助 。 

图 2-18 显 示 的 是 上 面 给 出 的 A 到 H 编码 所 对 六 的 Huffman 编 码 树 ， 树 叶 上 的 权重 表明 ， 这 
棵 树 的 设计 所 针对 的 消息 是 ， 字 母 A 具 有 相对 权重 8 ，B 具有 相对 权重 3 ， 其 余 字 母 的 相对 权重 
都 是 1 。 | 

给 定 了 一 棵 Huffman 树 ， 要 找 出 任 一 符号 的 编码 ， 我 们 只 和 需 从 树 根 开始 向 下 运动 ， 直 到 到 ， 
达 了 保存 着 这 一 符号 的 树叶 为 止 ， 在 每 次 向 左 行 时 就 给 代码 加 上 一 个 0， 右 行 时 加 上 一 个 1。 
在 确定 向 哪 一 分 支 运 动 时 ， 需 要 检查 该 分 支 是 否 包含 着 与 这 一 符号 对 应 的 叶 结 点 ， 或 者 其 集 
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合 中 包含 着 这 个 符号 。 举 例 说 ， 从 图 2-18 中 树 的 根 开始 ， 到 达 D 的 叶 结 点 的 方式 是 走 一 个 布 分 
支 ， 而 后 一 个 左 分 支 ， 而 后 是 右 分支 ， 而 后 又 是 右 分 支 ， 因 此 其 代码 为 1011。 


IABCDEFGH} 17 


{BCDEFGH}9 
A8 


{BC D}5 


ICD} 2 IEFGHI4 


B 3 


Cl D1 
P {EF} 2 


E 1 F |] 


图 2-18 —#@Huffman 编码 树 


在 用 Hufftman 树 做 一 个 序列 的 解码 时 ， 我 们 也 从 树 根 开始 ， 通 过 位 序列 中 的 0 或 1 确定 是 移 
各 左 分 支 还 是 右 分 支 。 每 当 我 们 到 达 一 个 叶 结 点 上 时， 就 生成 出 了 消息 中 的 一 个 符号 。 此 时 就 
重新 从 树 根 开始 去 确定 下 一 个 符号 。 例 如 ， 如 果 给 我 们 的 是 上 面 的 树 和 序列 10001010 。 从 树 
根 开始 ， 我 们 移 向 右 分 支 (因为 串 中 第 一 个 位 是 1 )， 而 后 向 左 分 支 (因为 第 二 个 位 是 0 )， 而 
后 再 向 左 分 支 (因为 第 三 个 位 也 是 0) 。 这 时 已 经 到 达 B 的 叶 ， 所 以 被 解码 消息 中 的 第 一 个 符号 
是 B ， 现 在 再 次 从 根 开始 ， 因 为 序列 中 下 一 个 位 是 0， 这 就 导致 一 次 向 左 分 支 的 移动 ， 使 我 们 
到 达 A 的 叶 。 然 后 我 们 再 次 从 根 开始 处 理 剩 下 的 串 1010 ， 经 过 右 左 右 左 移动 后 到 达 了 C 。 这 样 ， 
整个 消息 也 就 是 BAC 。 

生成 Huffman 树 : : | 

给 定 了 符号 的 “字母 表 ” 和 它们 的 相对 频 度 ， 我 们 怎么 才能 构造 出 “最 好 的 ”编码 呢 ? 
换 名 话说， 哪样 的 树 能 使 消息 编码 的 位 数 达到 最 少 ? Huffman 给 出 了 完成 这 件 事 的 一 个 算法 ， 
并 且 证 明了 ， 对 于 符号 所 出 现 的 相对 频 度 与 构造 树 的 消息 相符 的 消息 而 言 ， 这 样 产生 出 的 纺 
码 确实 是 最 好 的 变 长 编码 。 我 们 并 不 打算 在 这 里 证 明 Huffman 编 码 的 最 优 性 质 ， 但 将 展示 如 何 
+g Huffman fH , 

生成 Huffman 树 的 算法 实际 上 十 分 简单 ， 其 想法 就 是 设法 安排 这 标 树 ， 使 得 那些 带 有 最 低 
频 度 的 符号 出 现在 离 树 根 最 远 的 地 方 。 这 一 构造 过 程 从 叶 结 点 的 集合 开始 ， 这 种 结 点 中 包含 
各 个 符号 和 它们 的 频 度 ， 这 就 是 开始 构造 编码 的 初始 数据 。 现 在 要 找 出 两 个 具有 最 低 权 重 的 
叶 ， 并 归并 它们 ， 产 生出 一 个 以 这 两 个 结 点 为 左右 分 支 的 结 点 。 新 结 点 的 权重 就 是 那 两 个 结 
点 的 权重 之 和 。 现 在 我 们 从 原来 集合 里 删除 前 面 的 两 个 叶 结 点 ， 并 用 这 一 新 结 点 代替 它们 。 
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随后 继续 这 一 过 程 ， 在 其 中 的 每 一 步 都 归并 两 个 具有 最 小 权重 的 结 点 ， 将 它们 从 集合 中 删除 ， 
并 用 一 个 以 这 两 个 结 点 作为 左右 分 支 的 新 结 扣 取而代之 。 当 集合 中 只 剩 下 一 个 结 点 时 ， 这 一 
过 程 终 止 ， 而 这 个 结 点 就 是 树 根 。 下 面 显 示 的 是 图 2-18 中 的 Huffiman 树 的 生成 过 程 : 


初始 树叶 (A8) (B 3) CD DD Œ 1) F 1) (G1) HYD) 
归并 ((A 8) (B 3) ({C D} 2) (ŒE 1) (F 1) (G 1) H 1)} 
归并 ((A 8) (B 3) dC D} 2) UE F} 2) (G D H 1)} 
归并 ICA 8) (B 3) ({C D} 2) (E F} 2) ({G H} 2)] 
归并 ICA 8) (B 3) CC D} 2) (EF GH} 4)) 

归并 ICA 8) ({B C D} 5) QE F G H} 4)} 

归并 ((A 8)({BCDEFGH}%) 

最 后 归并 (({A BC DEFGH} 17)} 


X — ARGH ARERR EA, EWA, BPR a) REA RA REAM. 
还 有 ， 在 做 归并 时 ， 两 个 结 点 的 顺序 也 是 任意 的 ， 也 就 是 说 ， 随 便 哪 个 都 可 以 作为 左 分 文 或 
i IT KX 

Huffman 树 的 表示 

在 下 面 的 练习 中 ， 我 们 将 要 做 出 一 个 使 用 Hufftman 树 完成 消息 编码 和 解码 ， 并 能 根据 上 面 
给 出 的 梗概 生成 Huffman 树 的 系统 。 开 始 还 是 讨论 这 种 树 的 表示 。 | 

将 一 棵 树 的 树叶 表示 为 包含 符号 leaf 、 叶 中 符号 和 权重 的 表 : 

(define (make-leaf symbol weight) | 

(list ‘leaf symbol weight) ) 
(define (leaf? object) 


(eq? (car object) ‘leaf)) 


(define (symbol-leaf x) (cadr x)) 
(define (weight-leaf x) (caddr x)) 


一 棵 一 般 的 树 也 是 一 个 表 ， 其 中 包含 一 个 左 分 支 、 一 个 右 分 支 、 一 个 符号 集合 和 一 个 权重 。 
符号 集合 就 是 符号 的 表 ， 这 里 没有 用 更 复杂 的 集合 表示 。 在 归并 两 个 结 点 做 出 一 棵 树 时 ， 树 
的 权重 也 就 是 这 两 个 结 点 的 权重 之 和 ， 其 符号 集 就 是 两 个 结 点 的 符号 集 的 并 集 。 因 为 这 里 的 
符号 集 用 表 来 表示 ， 通 过 2.2.1 节 的 append 过 程 就 可 以 得 到 它们 的 并 集 . 
(define (make-code-tree left right) 
(list left 
right | 
{append (symbols left) (symbols right) ) 
(+ (weight left) (weight right)))) 
如 果 以 这 种 方式 构造 ， 我 们 就 需要 采用 Ve RAN : 
{define (left-branch tree) (car tree)) 
(define (right-branch tree) (cadr tree) ) 


(define (symbols tree) 


(if (leaf? tree) 
{list (symbol-leaf tree)) 
(caddr tree))) 
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(define (weight tree) 
(if (leaf? tree) 
(weight-leaf tree) 
(cadddr tree))) 


在 对 树叶 或 者 一 般 树 调用 过 程 symbols 和 weight 时 ， 它 们 需要 做 的 事情 有 一 点 不 同 。 这 些 
不 过 是 通用 型 过 程 以 外 理 多 于 一 种 数据 的 过 程 ， 的 简单 实例 ， 有 关 这 方面 的 情 次 ， 在 2.4 
PHS A RS Li 


解码 过 程 
下 面 的 过 程 实现 解码 算法 ， 它 以 一 个 0/1 的 表 和 一 棵 Huffman 树 为 参数 ， 
(define (decode bits tree) 
(define (decode-1 bits current-branch) 
(if (null? bits) 
"() 
(let ((next-branch 
(choose-branch (car bits) current-branch) ) ) 
(if (leaf? next~-branch) | 
(cons (symbol-leaf next—branch) 
(decode-1l (cdr bits) tree)) 
(decode-1 (cdr bits) next-branch}y))) 
(decode-1 bits tree) ) 
(define (choose-branch bit branch) 
(cond ({= bit 0) (left-branch branch) ) 
((= bit 1) (right-branch branch) ) 
(else (error "bad bit -- CHOOSE-BRANCH” bit)))) > 


过 程 decode-1 有 两 个 参数 ， 其 中 之 一 是 包含 二 进 制 位 的 表 ， 另 一 个 是 树 中 的 当前 位 置 。 它 
不 断 在 树 里 “向 下 ”移动 ， 根 据 表 中 下 一 个 位 是 0 或 者 1 选择 树 的 左 分 支 或 者 右 分 支 (这 一 工 
作 由 过 程 choose-branch 完 成 )。 一 旦 到 达 了 叶 结 点 ， 它 就 把 位 于 这 里 的 符号 作为 消 息 中 的 
下 一 个 符号 ， 将 其 cons 到 对 于 消息 里 随后 部 分 的 解码 结果 之 前 。 而 后 这 一 解码 又 从 树 根 重新 
开始 。 MNE Bchoose-branch BR ki Tii ree 如 果 过 程 遇 到 了 不 是 0/1 的 东西 
时 就 会 报告 错误 。 ” 

带 权重 元 素 的 集合 | / | 

在 树 表 示 里 ， 每 个 非 叶 结 点 包含 着 一 个 符号 集合 ， 在 这 里 表示 为 一 个 简单 的 表 。 然 而 ， 
上 面 讨论 的 树 生成 算法 要 求 我 们 也 能 对 树叶 和 树 的 集合 工作 ， 以 便 不 断 地 归并 一 对 一 对 的 最 
小 项 。 央 为 在 这 里 需要 反复 去 确定 集合 里 的 最 小 项 ， 采 用 某 种 有 序 的 集合 表示 会 比较 方便 。 

我 们 准备 将 树叶 和 树 的 集合 表示 为 一 批 元 素 的 表 ， 按 照 权 重 的 上 升 顺序 排列 表 中 的 元 素 。 
下 面 用 于 构造 集合 的 过 程 adjoin-set 与 练习 2.61 中 描述 的 过 程 类 似 但 这 里 比较 的 是 元 素 
的 权重 , 而 且 加 入 集合 的 新 元 素 原来 绝 不 会 出 现在 这 个 集合 里 。 | 


(define: (adjoin-set x set) . 
(cond ({(null?. set) (list x)) . | 
({< (weight x) (weight (car set))) (cons x set)) 
(else (cons (car set) 
(adjoin-set x (cdr set)))))) 
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下面 过 程 以 一 个 符号 -权重 对 偶 的 表 为 参数 ， 例 如 ((A 4) (B 2) (C 1) (D 1)), EH 
造 出 树叶 的 初始 排序 集合 ， 以 便 Hufftman 算 法 能 够 去 做 归并 : 
(define (make-leaf-set pairs) 
(if (null? pairs) 
() 
«e (let ((pair (car pairs))) 
(adjoin-set (make-leaf (car pair) ; symbol 
(cadr pair)) ; frequency 
{make-leaf-set {cdr pairs)))))) 


练习 2.67 请 定义 一 棵 编码 树 和 一 个 样 例 消息 : 


(define sample-tree 
(make-code-tree (make-leaf ‘A 4) 
{make-code-tree 
(Make-leaf B 2) 
(make-code-tree (make-leaf D 1) _ 
{make-leaf C 1))))) 


(define sample-message "(0 1 1 001010 1 1 1 0)) . 


然后 用 过 程 decode 完 成 该 消息 的 编码 ， 给 出 编码 的 结 采 。 
练习 2.68 ”过程 encode 以 一 个 消息 和 一 棵 树 为 参数 ， 产 生出 被 编码 消息 所 对 应 的 二 进 制 
位 的 表 : : 
(define (encode message tree) 
(if (null? message) 
"() 
{append (encode-symbol (car message) tree) 
(encode (cdr message) tree)))) 


其 中 的 encode-symbol 是 需要 你 写 出 的 过 程 ， 它 能 根据 给 定 的 树 产生 出 给 定 符号 的 一 进 制 
位 表 。 你 所 设计 的 encode-symbol 在 遇 到 未 出 现在 树 中 的 符号 时 应 报告 错误 。 请 用 在 练习 
2.67 中 得 到 的 结果 检查 所 实现 的 过 程 ， 工 作 中 用 同样 一 棵 树 。 看 看 得 到 的 结果 是 不 是 原来 那 
个 消息 。 Oe 

练习 2.69 ”下 面 过 程 以 一 个 符号 - 频 度 对 侦 表 为 参数 (其 中 没有 任何 符号 出 现在 多 于 一 个 
对 偶 中 ) ， 并 根据 Huffman 算 法 生成 出 Huffman 编 码 树 。 


(define (generate-huffman-tree pairs) 
(successive-merge (make-leaf-set pairs))) 


其 中 的 make-leaf-set 是 前 面 给 出 的 过 程 ， 它 将 对 偶 表 变换 为 叶 的 有 序 集 ，successive-~ 
merge 是 需要 你 写 的 过 程 ， 它 使 用 make-code-tree 反 复归 并 集合 中 具有 最 小 权重 的 元 素 ， 
直至 集合 里 只 剩 下 一 个 元 素 为 止 。 这 个 元 素 就 是 我 们 所 需要 的 Huffman 树 。( 这 一 过 程 稍微 有 
点 技巧 性 ， 但 并 不 很 复杂 。 如 果 你 正在 设计 的 过 程 变 得 很 复杂 ， 那 么 几乎 可 以 肯定 是 在 什么 
地 方 搞 错 了 。 你 应 该 尽 可 能 地 利用 有 序 集合 表示 这 一 事实 。) E 

练习 2.70 ”下面 带 有 相对 频 度 的 8 个 符号 的 字母 表 ，、 是 为 了 有 效 编码 20 世 纪 50 年 代 的 摇滚 
歌曲 中 的 词语 而 设计 的 。( 请 注意 , “字母 表 ”中 的 “符号 ”不 必 是 单个 字母 。) 

A 2 NA 16 
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请 用 (练习 2.69 的 ) generate-huffman-tree 过 程 生 成 对 应 和 的 Huffman 树 ， 用 (练习 2.68 
的 ) encode 过 程 编码 下 面 的 消息 : 

Get a job 

Sha na na na na na na nana 

Get a job 

Sha na na na na na na nana 

Wah yip yip yip yip yip yip yip yip yip 

Sha boom | 
这 一 编码 需要 多 少 个 二 进 制 位 ? 如 果 对 这 8 个 符号 的 字母 表 采 用 定 长 编码 ， 完 成 这 个 歌曲 的 编 
码 最 少 需要 多 少 个 二 进 制 位 ? = 

练习 2.71 ”假定 我 们 有 一 棵 ?个 符号 的 字母 表 的 Huftman 树 ， 其 中 各 符号 的 相对 频 度 分 别 
E1, 2,4, =, 2-1, 3n =5 和 n=10 勾 勒 出 有 关 的 树 的 样子 。 对 于 这 样 的 树 (对 于 一 般 
的 n ) ， 编 码 出 现 最 频繁 的 符号 用 多 少 个 二 进 制 位 ? 最 不 频繁 的 符号 呢 ? : 

练习 2.72 考虑 你 在 练习 2.68 中 设计 的 编码 过 程 。 对 于 一 个 符号 的 编码 ， 计 算 步 数 的 增长 
速率 是 什么 ? 请 注意 ， 这 时 需要 把 在 每 个 结 点 中 检查 符号 表 所 需 的 步 数 包括 在 内 。 一 般 性 地 
回答 这 一 问题 是 非常 困难 的 。 现 在 考虑 一 类 特殊 情况 ， 其 中 的 n 个 符号 的 相对 频 度 如 练习 2.71 
所 描述 的 。 请 给 出 编码 最 频繁 的 符号 所 需 的 步 数 和 最 不 频繁 的 符号 所 需 的 步 数 的 增长 速度 
(作为 n 的 函数 )。 | 
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我 们 已 经 介绍 过 数据 抽象 ， 这 是 一 种 构造 系统 的 方法 学 ， 采 用 这 种 方法 ， 将 使 一 个 程序 中 
的 大 部 分 描述 能 与 这 一 程序 所 操作 的 数据 对 象 的 具体 表示 的 选择 无 关 。 举 例 来 说 ， 在 2.1.1 节 
里 ， 我 们 看 到 如 何 将 一 个 使 用 有 理 数 的 程序 的 设计 与 有 理 数 的 实现 工作 相互 分 离 ， 具 体 实 现 
中 采用 的 是 计算 机 语言 所 提供 的 构造 复合 数据 的 基本 机 制 。 这 里 的 关键 性 思想 就 是 构筑 起 一 
道 抽象 屏障 一 -对 于 上 面 情况 ， 也 就 是 有 理 数 的 选择 函数 和 构造 函数 (make-rat, numer, 
denom) 一 它 能 将 有 理 数 的 使 用 方式 与 其 借助 于 表 结 构 的 具体 表示 形式 隔离 开 。 与 此 类 似 的 
抽象 屏障 ， 也 把 执行 有 理 数 算术 的 过 程 (add-rat, sub-rat, mul-rat 和 div-rat) 5 
使 用 有 理 数 的 “高 层 ” 过 程 隔 离开 。 这 样 做 出 的 程序 所 具有 的 结构 如 图 2-1 所 示 。 

数据 抽象 屏障 是 控制 复杂 性 的 强 有 力 工 具 。 通 过 对 数据 对 象 基础 表示 的 屏蔽 ， 我 们 就 可 
以 将 设计 一 个 大 程序 的 任务 ， 分 割 为 一 组 可 以 分 别处 理 的 较 小 任务 。 但 是 ， 这 种 类 型 的 数据 
抽象 还 不 够 强大 有 力 ， 因 为 在 这 里 说 数据 对 象 的 “基础 表示 ”并 不 一 定 总 有 意义 。 

从 一 个 角度 看 ， 对 于 一 个 数据 对 象 也 可 能 存在 多 种 有 用 的 表示 方式 ， 而 且 我 们 也 可 能 希 
望 所 设计 的 系统 能 处 理 多 种 表示 形式 。 举 一 个 简单 的 例子 ， 复 数 就 可 以 表示 为 两 种 几乎 等 价 
的 形式 : 直角 坐标 形式 (KAM) 和 极 坐标 形式 〈 模 和 幅 角 )。 有 时 采用 直角 坐标 形式 更 
合适 ， 有 时 极 坐 标 形 式 更 方便 。 的 确 ， 我 们 完全 可 能 设想 一 个 系统 ， 其 中 的 复数 同时 采用 了 
两 种 表示 形式 ， 而 其 中 的 过 程 可 以 对 具有 任意 表示 形式 的 复数 工作 。 
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更 重要 的 是 ， 一 个 系统 的 程序 设计 常常 是 由 许多 人 通过 一 个 相当 长 时 期 的 工作 完成 的 ， 
系统 的 需求 也 在 随 着 时 间 而 不 断 变化 。 在 这 样 一 种 环境 里 ， 要 求 每 个 人 都 在 数据 表示 的 选择 
上 达成 一 臻 是 根本 就 不 可 能 的 事情 。 因 此 ， 除 了 需要 将 表示 与 使 用 相隔 离 的 数据 抽象 屏障 之 
外 ， 我 们 还 需要 有 抽象 屏障 去 隔离 互 不 相同 的 设计 选择 ， 以 便 允 许 不 同 的 设计 选择 在 同一 个 
程序 里 共存 。 进 一 步 说 ， 由 于 大 型 程序 常常 是 通过 组 合 起 一 些 现 存 模块 构造 起 来 的 ， 而 这 些 
模板 又 是 独立 设计 的 ， 我们 也 需要 一 些 方法 ， 使 程序 员 可 能 逐步 地 将 许多 模块 结合 成 一 个 大 
型 系统 ， 而 不 必 去 重新 设计 或 者 重新 实现 这 些 模块 。 

在 这 一 节 里 ， 我 们 将 学 习 如 何 去 处 理 数据 ， 使 它们 可 能 在 一 个 程序 的 不 同 部 分 中 采用 
不 同 的 表示 方式 。 这 就 需要 我 们 去 构造 通用 型 过 程 一 一 也 就 是 那 种 可 以 在 不 止 一 种 数据 表 
示 上 操作 的 过 程 。 这 里 构造 通用 型 过 程 所 采用 的 主要 技术 ,是 让 它们 在 带 有 类 型 标志 的 数 
据 对 象 上 工作 。 也 就 是 说 ， 让 这 些 数据 对 象 包 含 着 它们 应 该 如 何 处 理 的 明确 信息 。 我 们 还 
要 讨论 数据 导向 的 程序 设计 ， 这 是 一 种 用 于 构造 采用 了 通用 型 操作 的 系统 有 力 而 且 方 便 的 
技术 。 

我 们 将 从 简单 的 复数 实例 开始 ， 看 看 如 何 采用 类 型 标志 和 数据 导向 的 风格 ， 为 复数 分 别 
设计 出 直角 坐标 表示 和 极 坐标 表示 ， 而 又 维持 一 种 抽象 的 “复数 ”数据 对 象 的 概念 。 做 到 这 
一 点 的 方式 就 是 定义 基于 通用 型 选择 函数 定义 复数 的 算术 运算 (add-complex, sub- 
complex. mul-compLex 和 div-complex)， 使 这 些 选 择 函 数 能 访问 一 个 复数 的 各 个 部 分 ， 
无 论 复数 采用 的 是 什么 表示 方式 。 作 为 结果 的 复数 系统 如 图 2-19 所 示 ， 其 中 包含 两 种 不 同类 
型 的 抽象 屏 隆 , “水 平 ”抽象 屏障 扮演 的 角色 与 图 2-1 中 的 相同 ， 它 们 将 “高 层 ” 操 作 与 “ 低 
E” 表示 隔离 开 。 此 外 ， 还 存在 着 王道“ 垂直 ”屏障 ， 它 使 我 们 能 够 隔离 不 同 的 设计 ， 并 且 
还 能 够 安装 其 他 的 表示 方式 。 


使 用 复 数 的 程序 
add-complex sub-complex mul-complex div-complex 
复数 算术 包 


极 坐 标 表 示 





A AE RRT 


表 结 构 和 基本 机 器 算术 
图 2-19 复数 系统 中 的 数据 抽象 屏障 
在 2.5 节 里 ,我 们 将 说 明 如 何 利用 类 型 标志 和 数据 导向 的 风格 去 开发 一 个 通用 型 算术 包 ， 


其 中 提供 的 过 程 (add, mul 等 等 ) 可 以 用 于 操作 任何 种 类 的 数 ， 在 需要 另 一 类 新 的 数 时 
由 很 容易 进行 扩充 。 在 2.5.3 节 里 ， 我 们 还 要 展示 如 何在 执行 符号 代数 的 系统 里 使 用 通用 型 算 


术 功 能 。 
2.4.1 复数 的 表示 


这 里 要 开发 一 个 完成 复数 算术 运算 的 系统 ， 作 为 使 用 通用 型 操作 的 程序 的 一 个 向 单 的 ， 
但 不 那么 实际 的 例子 。 开 始 时 ， 我 们 要 讨论 将 复数 表示 为 有 序 对 的 两 种 可 能 表示 方式 : 直角 
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坐标 形式 (SERB ALME AB) 以 及 极 坐标 形式 〈 模 和 幅 角 ) '”。2.4.2 节 将 展示 如 何 通过 类 型 标志 
和 通用 型 操作 ， 使 这 两 种 表示 共存 于 同一 个 系统 中 。 

与 有 理 数 一 样 ， 复数 也 可 以 很 自然 地 用 有 序 对 表示 。 我 们 可 以 将 复数 集合 设想 为 “个 带 
有 两 个 坐标 轴 〈“ 实 ” 轴 和 “ 虚 ” 轴 ) 的 两 维 空间 ( 见 图 2-20) 。 按 照 这 一 观点 ， 复 数 z =x +iy 
(Sieh? =—-1) 可 看 作 这 个 平面 上 的 一 个 点 ， 其 中 的 实 坐 标 是 zx 而 虚 坐 标 为 y 。 在 这 种 表示 下 ， 
复数 的 加 法 就 可 以 归结 为 两 个 坐标 分 别 相 加 


实 部 (zl +22) = 实 部 (z1) + 实 部 (z2) 
虚 部 (z; +22) = 虚 部 (21) + EW (z2 


虚 坐 标 





z =x +iy=re“ 


和 


实 坐 标 


图 -20 将 复数 看 作 平 面 上 的 所 


在 需要 乘 两 个 复数 时 ， 更 自然 的 考虑 是 采用 复数 的 极 坐标 形式 ， 此 时 复数 用 一 个 模 和 一 
个 幅 角 表示 (图 2-20 中 的 r 和 A4 )。 两 个 复数 的 乘积 也 是 一 个 向 量 ， 得 到 它 的 方式 是 模 相 乘 ， 幅 
角 相 加 。 | 

模 (21 > 22) = {R (21) - BR (22) 
幅 角 (z 22) = 幅 角 (21) + 幅 角 (22) 

BY YL, 复数 有 两 种 不 同 表示 方式 ， 它们 分 别 适 合 不 同 的 运算 。 当 然 ， 从 编写 使 用 复数 的 
程序 的 开发 人 员 角度 看 ， 数 据 抽象 原理 的 建议 是 所 有 复数 操作 都 应 该 可 以 使 用 ， 无 论 计算 机 
所 用 的 具体 表示 形式 是 什么 。 例 如 ， 我们 也 常常 需要 取得 一 个 复数 的 模 ， 即 使 它 原 本 采用 的 
是 复数 的 直角 坐标 表示 。 同 样 ， 我 们 也 常常 需要 得 到 复数 的 实 部 ， 即 使 它 实 际 采 用 的 古 极 坐 
标 形式 .。 

在 设计 一 个 这 样 的 系统 时 ， 我 们 将 沿用 在 2. L. LAE HEA E AO RT 的 同样 的 数据 抽 
象 策略 ， 假 定 所 有 复数 运算 的 实现 都 基于 如 下 四 个 选择 函数 : real- -part, imag-part 、 
magnitudefjangle, 还 要 假定 有 两 个 构造 复数 的 过 程 : make- from-real-imagjik |W — 
个 采用 实 部 和 虚 部 描述 的 复数 ，make-from-mag- -ang 返 回 一 个 采用 模 和 幅 角 描述 术 的 复数 。 
这 些 过 程 的 性 质 是 ， 对 于 任何 复数 z， 下 面 两 者 : 


(make-from-real-imag (real-part z) (imag-part z)) 


09 在 实际 计算 系统 里 ， 大 部 分 情况 下 人 们 都 倾向 于 采用 直角 坐标 形式 而 不 是 极 坐 标 形式 ， 这 样 做 的 原因 是 在 
直角 坐标 形式 和 极 坐 标 形 式 之 间 转 换 的 伟人 误差 。 这 也 是 为 什么 说 这 个 复数 实例 不 实际 的 原因 。 但 无 论 如 
何 ， 这 一 实例 清晰 地 阐释 了 采用 通用 型 操作 时 的 系统 设计 , 也 是 对 于 本 章 后 面 开发 的 更 实际 的 系统 的 一 个 
(Ret HE . 
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和 


(make~from-mag-ang (magnitude z) (angle 2)). 


产生 出 的 复数 都 等 于 z 。 

利用 这 些 构造 函数 和 选择 函数 ,我们 就 可 以 实现 复数 算术 了 ， 其 中 使 用 由 这 些 构造 函数 
和 选择 函数 所 刻画 的 “抽象 数据 ”， 就 像 前 面 在 2.1.1 节 中 针对 有 理 数 所 做 的 那样 。 正 如 上 面 公 
式 中 所 描述 的 ， 复 数 的 加 法 和 减法 采用 实 部 和 虚 部 的 方式 描述 ， 而 乘法 和 除法 采用 模 和 幅 角 
的 方式 描述 : / 

(define (add-complex z1 22) 


(make-from-real-imag {+ (real-part zl) (real-part 22)) 
(+ (imag-part 21) (imag-part 22)))) 


(define (sub-complex zl 22) 
(make-from-real-imag (- (real-part zl} (real-part 22))} 
(- (imag-part z1) (imag-part 22)))) 


(define (mul-complex z1 22) 
(make-from-mag-ang (* (magnitude zl) (magnitude 22)) 
(+ (angle z1) (angle 2z2)))) 


(define (div-complex z1 z2) 
(make-from-mag-ang (/ (magnitude zl) (magnitude z2)) 
(~ (angle zl) (angle z2)))) 


为 了 完成 这 一 复数 包 ， 我 们 必须 选择 一 种 表示 方式 ， 而 且 必 须 基 于 基本 的 数值 和 基本 表 
结构 ， 基 于 它们 实现 各 个 构造 函数 和 选择 函数 。 现 在 有 两 种 显 见 的 方式 完成 这 一 工作 : 可 以 
将 复数 按 “ 直 和 角 坐 标 形式 ”表示 为 一 个 有 序 对 ( 实 部 ， 虚 部 ) ， 或 者 按照 “ 极 坐 标 形式 ”表示 
为 有 序 对 ( 模 ， 幅 角 )。 究 竟 应 该 选择 哪 一 种 方式 呢 ? 

为 了 将 不 同 选 择 的 情况 看 得 更 清楚 些 ， 现 在 让 我 们 假定 有 两 个 程序 员 ，Ben Bitdiddle 和 
Alyssa P. Hacker， 他 们 正在 分 别 独立 地 设计 这 一 复数 系统 的 具体 表示 形式 。Ben 选 择 了 复数 的 
直角 坐标 表示 形式 ， 采 用 这 一 选择 ， 选 取 复 数 的 实 部 与 虚 部 是 直截了当 的 ， 因 为 这 种 复数 束 
是 由 实 部 和 虚 部 构成 的 。 而 为 了 得 到 模 和 幅 角 ， 或 者 需要 在 给 定 模 和 幅 角 的 情况 下 构造 复数 
时 ， 他 利用 了 下 面 的 三 角 关 系 : 

x=rcosA r= jx +y 
y =r sin A A =arctan (y, x) 
这 些 公式 建立 起 实 部 和 虚 部 对 偶 (x，y) 与 模 和 幅 角 对 偶 (r，4) 之 间 的 联系 ”。Ben 在 这 种 表 
示 之 下 给 出 了 下 面 这 几 个 选择 函数 和 构造 国 煞 : 
(define (real-part z) (car 2)) 
(define (imag-part z) (cdr 2)) 


(define (magnitude z) 
(sqrt (+ (Square (real-part z)) (square (imag-part z))))) - 


(define (angle 2z) 


NO 这 里 所 用 的 反正 切 函 数 由 Scheme 的 atan 过 程 计算 ， 其 定义 取 两 个 参数 ?和 x， 返 回 正切 是 y/x 的 角度 。 参 数 的 
符号 决定 角度 所 在 的 象限 。 


(atan (imag-part z) (real-part 2z))) 
(define (make-from-real-imag x y) (cons x y)) 
(define (make-from-—mag-ang r a) 
(cons (* r (cos a)) (* r (sin @a)))) 
而 在 另 一 边 ，Alyssa 却 选择 了 复数 的 极 坐 标 形式 。 对 于 她 而 言 ， 选 取 模 和 幅 角 的 操作 直 截 
SS, 但 必须 通过 三 角 关 系 去 得 到 实 部 和 虚 部 。 AYssa 的 表示 是 : 


(define (real-part z) 
(* (magnitude z) (cos (angle z)))) 


(define (imag-part z) 

(* (magnitude z) (sin (angle z)))) 
(define (magnitude z) (car 2)) 
(define (angle z) (cdr z)) 

(define (make-from-real-imag x y) 


{cons (sqrt (+ (square x) (square y))) 
(atan y x))) 


(define (make-from-mag-ang r a) (cons r a)) 


W te bh ee AMEE Tadd-complex, sub-complex, mul-complexfdiv- 
complex fj |al— EKMA FBen a KR BAlyssa hI ZA REE A LIE. | 


2.4.2 带 标志 数据 


认识 数据 抽象 的 一 种 方式 是 将 其 看 作 “ 最 小 允诺 原则 ”的 一 个 应 用 。 在 2-4.1 节 中 实现 复 
数 系统 时 ， 我 们 可 以 采用 Ben 的 直角 坐标 表示 形式 或 者 Alyssa 的 极 坐 标 表示 形式 ， 由 选择 函数 
和 构造 函数 形成 的 抽象 屏障 ， 使 我 们 可 以 把 为 自己 所 用 数据 对 象 选择 具体 表示 形式 的 事情 尽 
量 向 后 推 ， 而 且 还 能 保持 系统 设计 的 最 大 灵活 性 。 

最 小 多 诺 原 则 还 可 以 推进 到 更 极端 的 情况 。 如 果 我 们 需要 的 话 ， 那 么 还 可 以 在 设计 完成 选 
择 函 数 和 构造 函数 ， 并 决定 了 同时 使 用 Ben 的 表示 和 Alyssa 的 表示 之 后 ， 仍 然 维持 所 用 表示 方 
式 的 不 确定 性 ， 如 果 要 在 同一 个 系统 里 包含 这 两 种 不 同 表示 形式 ， 那 么 就 需要 有 一 种 方式 ， 将 
极 坐 标 形式 的 数据 与 直角 坐标 形式 的 数据 区 分 开 。 否 则 的 话 ， 如 果 现 在 要 找 出 对 偶 (3, 4) 的 
magnitude， 我 们 将 无 法 知道 答案 是 5 (将 数据 解释 为 直角 坐标 表示 形式 ) 还 是 3 (将 数据 解 
释 为 极 坐标 表示 )。 完 成 这 种 区 分 的 一 种 方式 ， 就 是 在 每 个 复数 里 包含 一 个 类 型 标志 部 分 一 一 
用 符号 rectangular 或 者 polar 。 比 后 如 果 我 们 需要 操作 一 个 复数 ， 借助 于 这 个 标志 就 可 以 
确定 应 该 使 用 的 选择 函数 了 。 

为 了 能 对 带 标志 数据 进行 各 种 操作 ， 我 们 将 假定 有 过 程 type- _tag 和 contenks ， 它 们 
分 别 从 数据 对 象 中 提取 出 类 型 标志 和 实际 内 容 (对 于 复数 的 情况 ， 其 中 的 极 坐 标 或 者 直角 坐 
标 ) 。 还 要 假定 有 一 个 过 程 attach-tag ， 它 以 一 个 标志 和 实际 内 容 为 参数 ， 生成 出 一 个 带 标 
志 的 数据 对 象 。 实 现 这 些 的 直接 方式 就 是 采用 普通 的 表 结构 : 7 


(define (attach-tag type-tag contents) 
(cons type-tag contents) ) 


(define (type-tag datum) 
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(if (pair? datum) 
(car datum) 
(error "Bad tagged datum -- TYPE-TAG" datum) )) 


(define (contents datum) 
(if (pair? datum) 
(cdr datum) 
(error "Bad tagged datum -- CONTENTS" datum) ) ) 
利用 这 些 过 程 ， 我 们 就 可 以 定义 出 谓词 rectangular? 和 polar?， 它 们 分 别 辨识 直角 坐标 
的 和 极 坐 标的 复数: 
(define (rectangular? 2) 


(eq? (type-tag z) ‘rectangular) ) 

(define (polar? z) 

(eq? (type-tag z) polar)})) 

有 了 类 型 标志 之 后 ，Ben 和 Alyssa 现 在 就 可 以 修改 自己 的 代码 ， 使 他 们 的 两 种 不 同 表示 能 
Woke tm tee. 当 Ben 构 造 一 个 复数 时 ， 总 为 它 加 上 标志 ， 说 明 采 用 的 是 直角 坐 
标 ， 而 当 Alyssa 构 造 复数 时 ， 总 将 其 标志 设置 为 极 坐标 。 此 外 ，Ben 和 Alyssa 还 必须 保证 他 们 
所 用 的 过 程 名 并 不 冲突 。 保 证 这 一 点 的 一 种 方式 是 ，Ben 总 为 在 他 的 表示 上 操作 的 过 程 名 字 加 
上 后 缀 rectangular ， 而 Alyssa 为 她 的 过 程 名 加 上 后 组 polar 。 这 里 是 Ben 根 据 2.4.1 节 修改 
后 的 直角 坐标 表示 : 


(define (real~part-rectangular z) (car z}) 
{define (imag-part-rectangular z) (cdr z)) 


(define (magnitude-rectangular z) 
(sqrt (+ (Square (real-part-—-rectangular z)) 
(Square {imag-part-rectangular z))))) 


(define (angle-rectangular 2) 
(atan (imag-part-rectangular zZ) 
(real-part-rectangular z))) 


(define (make-from-real-imag-rectangular x y) 


(attach-tag ‘rectangular (cons x y))) 


(define (make-from-mag~ang-rectangular r a) 
(attach-tag ‘rectangular 
(cons (* r (cos a)) (* (sin a))))) 


下 面 是 修改 后 的 极 坐 标 表 示 


(define (real-part-polar 2) 
(* ,(magnitude-polar z) (cos (angle-polar 2z)))) 


{define (imag-part-polar z) 
(* (magnitude-polar z) (sin (angle-polar z)))) 


(define (magnitude-polar z) (car 2z)) 
(define (angle-polar z) (cdr z)) 


(define (make-from-real-imag-polar x Yy) 


{attach-tag ‘polar 
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(cons (sqrt (+ (square x) (Square y))) 
(atan y X)))) 


{define (make-from-mag~ang- -polar r a) 
(attach-tag '’polar (cons r a))) 


每 个 通用 型 选择 函数 都 需要 实现 为 这 样 的 过 程 ， 它 首先 检查 参数 的 标志 ， 而 后 去 调用 处 
理 该 类 数据 的 适当 过 程 。 例 如 ， 为 了 得 到 一 个 复数 的 实 部 ，real-part 需 要 通过 检查 ,设法 
确定 是 去 使 用 Ben 的 real-part-rectangular ,还 是 所 用 Alyssa 的 real-part-polar.， 
在 这 两 种 情况 下 ， 我 们 都 用 contents 提 取出 原始 的 无 标志 数据 ， 并 将 它 送 给 所 需 的 直角 坐 
标 过 程 或 者 极 坐标 过 程 : 

(define (real-part z) 

(cond ((rectangular? z) 
(real-part-rectangular (contents z))) 
( (polar? z) 


(real-part-polar (contents z))) 
(else (error "Unknown type -- REAL-PART" z)))) 


(define (imag-part z) 
(cond ((rectangular? z) 
(imag-part-rectangular (contents 2z))) 


({polar? 2) 
(imag-part-polar (contents 2z))) 


(else (error "Unknown type -- IMAG-PART" 2)))) 


(define (magnitude 2) 
(cond ((rectangular? 2) | 
‘magnitude-rectangular (contents 2z))) 


( (polar? z) 
(magnitude-polar (contents z))) 
(else (error "Unknown type ~- MAGNITUDE" 2z)))) 


(define (angle z) 
(cond ((rectangular? z) 
(angle-rectangular (contents 2z))) 
( (polar? z) 
(angle-polar (contents z))) 
(else (error "Unknown type -- ANGLE" 2)))) 


在 实现 复数 算术 运算 时 ， 我 们 仍然 可 以 采用 取 自 2.4.1 节 的 同样 过 程 add-complex .、 
sub-complex、mul-complex 和 div-complex， 因 为 它们 所 调用 的 选择 函 数 现在 都 是 通 
用 型 的 ， 对 任何 表示 都 能 工作 。 例 如 ， 过 程 add-complex 仍 然 是 : | 


(define (add-complex zi 22) 
(make~from-real-imag (+ (real-part zi) (real-part 22)) 
(+ (imag-part zl) (imag-part 22)))) 


最 后 ， 我 们 还 必须 选择 是 采用 Ben 的 表示 还 是 Alyssa 的 表示 构造 复数 。 一 种 合理 选择 龙 ， 
在 手头 有 实 部 和 虚 部 时 采用 直角 坐标 表示 ， FUERA RE ATR ARS Pre 


(define (make-from-real-imag x y) 
(make-from-real-imag-rectangular x y)) 


a 


e HERE E 


(define (make-from-mag-ang r a) 
(make-from-mag-ang-polar r a)) 


这 样 得 到 的 复数 系统 所 具有 的 结构 如 图 2-21 所 示 。 这 一 系统 已 经 分 解 为 三 个 相对 独立 的 
部 分 ， 复数 算术 运算 、Alyssa 的 极 坐 标 实 现 和 Ben 的 直角 坐标 实现 。 极 坐标 或 直角 坐标 的 实现 
可 以 是 Ben 和 Alyssa 独 立 工作 写 出 的 东西 ， 这 两 部 分 又 被 第 三 个 程序 员 作为 基础 表示 ， 用 于 在 
抽象 构造 函数 和 选择 函数 界面 之 上 实现 各 种 复数 拭 术 了 过 酝 。 


使 用 复数 的 程序 


add-complex sub-complex mul-complex div-complex 


复数 算术 包 
real-part imag-part 


magnitude angle 


直角 坐标 表示 极 坐 标 表示 


表 结 构 和 基本 机 器 算术 
图 2-21 通用 型 复数 算术 系统 的 结构 


因为 每 个 数据 对 象 都 以 其 类 型 作为 标志 ， 选 择 函 数 就 能 够 在 不 同 的 数据 上 以 一 种 通用 的 
方式 操作 。 也 就 是 说 ， 每 个 选择 函数 的 定义 行为 依赖 于 它 操作 其 上 的 特定 的 数据 类 型 。 请 注 
音 这 里 建立 不 同 表示 之 间 的 界面 的 一 般 性 机 制 ， 在 一 种 给 定 的 表示 实现 中 例如 Alyssa 的 极 
坐标 包 )， ne nek set ( 模 , 幅 角 ) 。 当 通用 型 选择 函数 对 一 个 Polar 类 型 的 复数 
进行 操作 时 ， 它 会 剥 去 标志 并 将 相应 内 容 传递 给 Alyssa 的 代码 。 与 此 相对 应 ， 当 人 Alyssa 去 构 霹 
个 供 一 般 性 使 用 的 复数 办， 她 也 为 其 加 上 类 型 标志 ， 使 这 个 数据 对 象 可 以 为 高 层 过 程 所 识 
别 。 在 将 数据 对 象 从 一 个 层次 传 到 另 一 层次 的 过 程 中 ， 这 种 剥 去 和 加 上 标志 的 规 缉 方式 可 以 
成 为 一 种 重要 的 组 织 策略 ， 正 如 我 们 将 在 2.5 节 中 看 到 的 那样 。 


2.4.3 数据 导向 的 程序 设计 和 可 加 性 


份 查 一 个 数据 项 的 类 型 ,并 据 此 去 调用 某 个 适当 过 程 称 为 基于 类 全 的 分 派 。 在 系统 设计 中 ， 
这 是 一 种 获得 模块 性 的 强 有 力 策略 。 而 在 为 一 方面 ， 像 2.4.2 节 那样 实现 的 分 派 有 两 个 显著 胎 弦 
点 。 第 一 个 弱点 是 ， 其 中 的 这 些 通用 型 界面 过 程 (real~part.、 imag-part, magnitude 
和 angle) 必须 知道 所 有 的 不 同 表 示 。 举 例 来 说 ， 假 定 现 现在 希望 能 为 前 面 的 复数 系统 增加 长 一 
种 表示 ， 我 们 就 必须 将 这 一 新 表示 方式 标识 为 一 种 新 类 型 ， 而 且 要 在 每 个 通用 界面 过 程 里 增加 
一 个 子 句 ， 检 查 这 一 新 类 型 ， 并 对 这 种 表示 形式 使 用 适当 的 选择 饥 数 。 

这 一 技术 还 有 另 一 个 弱点 。 即 使 这 些 独 立 的 表示 形式 可 以 分 别 设计 ， 我 们 也 必须 保证 在 
整个 系统 里 不 存在 两 个 名 字 相 同 的 过 程 。 正 因为 这 一 原因 ， Ben 和 Alyssa 必 须 去 修改 原来 在 
2.4.1 节 中 给 出 的 那些 过 程 的 名 字 。 

位 于 这 两 个 弱点 之 下 的 基础 问题 万 ， 上 而 这 种 实现 通用 型 界面 的 技术 不 具有 可 加 性 。 在 
每 次 增加 一 种 新 表示 形式 时 ， 实现 通用 选择 函数 的 人 都 必须 修改 他 们 的 过 程 ， 而 那些 做 独立 
表示 的 界面 的 人 也 必须 修改 其 代码 ， 以 避免 名 字 冲 突 问题 。 在 做 这 些 事情 时 ， 所 有 修改 都 必 
须 吉 接 对 代码 去 做 ， 而 且 必 须 准 确 无 误 。 这 当然 会 带 来 极 大 的 不 便 ， 而 且 还 很 容易 引进 错 充 。 
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对 于 上 面 这 样 的 复数 系统 ， 这 种 修改 还 不 是 什么 大 问题 。 但 如 果 假 定 现在 需要 处 理 的 不 是 复 
数 的 两 种 表示 形式 ， 而 是 几 百 种 不 同 表示 形式 ， 假 定 在 抽象 数据 界面 上 有 许 许多 多 需要 维护 
的 通用 型 选择 函数 ， 再 假定 (事实 上 ) 没有 一 个 程序 员 了 解 所 有 的 界面 过 程 和 表示 形式 ， 情 
况 又 会 怎样 呢 ? 在 例如 大 规模 的 数据 库 管 理 系统 中 ， 这 一 问题 是 现实 存在 ， 且 必须 去 面 对 的 : 

现在 我 们 需要 的 是 一 种 能 够 将 系统 设计 进一步 模块 化 的 方法 。 一 种 称 为 数据 导向 的 程序 
设计 的 编程 技术 提供 了 这 种 能 力 。 为 了 理解 数据 导向 的 程序 设计 如 何 工作 ， 我 们 首先 应 该 看 
和 到， 在 需要 处 理 的 是 针对 不 同类 型 的 一 集 公 共通 用 型 操作 时 ， 事 实 上 ,我们 正 是 在 处 理 一 个 
二 维 表格 ， 其 中 的 一 个 维 上 包含 着 所 有 的 可 能 操作 ， 另 一 个 维 就 是 所 有 的 可 能 类 型 。 表 格 中 
“的 项 目 是 一 些 过 程 ， 它 们 针对 作为 参数 的 每 个 类 型 实现 每 一 个 操作 。 在 前 一 节 中 开发 的 复数 
系统 里 ， 操 作 名 字 、 数 据 类 型 和 实际 过 程 之 间 的 对 应 关系 散布 在 各 个 通用 界面 过 程 的 各 个 条 
件 子 句 里 ， 我 们 也 可 以 将 同样 的 信息 组 织 为 一 个 表格 ， 如 图 2-22 所 示 。 





类 型 
Polar | o Rectangular 
real-part įj|real-part-polar real-part-rectangular 
S imag-part | imag-part-polar imag-part-rectangular 
magnitude | magnitude-polar magnitude-rectangular 
angle angle-polar angle-rectangular | 


图 2-22 复数 系统 的 操作 表 


数据 导向 的 程序 设计 就 是 一 种 使 程序 能 直接 利用 这 种 表格 工作 的 程序 设计 技术 。 在 我 们 
前 面 的 实现 里 ,是 采用 一 集 过 程 作为 复数 算术 与 两 个 表示 包 之 闻 的 界面 , -并 让 这 些 过 程 中 的 
一 个 去 做 基于 类 型 的 显 式 分 派 。 下 面 我 们 要 把 这 一 界面 实现 为 一 个 过 程 ， 由 它 用 操作 名 和 
参数 类 型 的 组 合 到 表格 中 查找 ， 以 便 找 出 应 该 调用 的 适当 过 程 ， 并 将 这 一 过 程 应 用 于 参数 的 
AA. 。 如 果 能 做 到 这 些 ， 再 把 一 种 新 的 表示 包 加 入 系统 里 ， 我 们 就 不 需要 修改 任何 现存 的 过 
程 ， 而 只 要 在 这 个 表格 里 添加 一 些 新 的 项 目 即 可 。 
为 了 实现 这 一 计划 ， 现 在 假定 有 两 个 过 程 Put 和 get， 用 于 处 理 这 种 操作 类 型 表格 


e (put <op> <type> <item>) 


将 项 <item> 加 入 表格 中 ， 以 <op> 和 <Dpe> 作 为 这 个 表 项 的 案 9|。 : 


* (get <op> <fype>) 


在 表 中 查找 与 <op> 和 <type> 对 应 的 项 ， 如 来 找 到 就 返回 找到 的 项 ， 否则 就 返回 假 。 

从 现在 起 ， 我 们 将 假定 put 和 get 已 经 包含 在 所 用 的 语言 里 。 在 第 3 章 里 (3.3.3 节 ， 练 习 
3.24) 可 以 看 到 如 何 实现 这 些 函 数 ， 以 及 其 他 操作 表格 的 过 程 。 | 

下 面 我 们 要 说 明 ， 这 种 数据 导向 的 程序 设计 可 以 如 何 用 于 复数 系统 。 在 开发 了 直角 坐标 
表示 时 ，Ben 完 全 按 他 原来 所 做 的 那样 实现 了 自己 的 代码 ， 他 定义 了 一 组 过 程 或 者 说 一 个 程序 
外 ， 并 通过 向 表格 中 加 入 一 些 项 的 方式 ， 告 诉 系 统 如 何 去 操 作 直角 坐标 形式 表示 的 数 ， 这 样 
就 建立 起 了 与 系统 其 他 部 分 的 务 面 。 SERIE RES SARE 下 Bes : 


{define (install- _rectangular-package) 


'; internal procedures 
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(define (reai-part z) (car 2Z)) 
{define (imag-part z) (cdr 2z)) 
(define (make-from-real-imag x y) (cons x y)) 
(define (magnitude z) 

(sqrt (+ (Square (real-part z)) 

(Square (imag-part 2z))))) 

(define (angle z) 

(atan (imag-part z) (real-part 2z))) 
(define (make-from-mag-ang r a) 

(cons (* r (cos a)) (* r (sin a)))) 


;; interface to the rest of the system 
(define (tag x) (attach-tag ‘rectangular x)) 
(put ’real-part (rectangular) real-~part) 
(put ’imag-part (rectangular) imag-part) 
(put ‘magnitude ’ (rectangular) magnitude) 
(put ‘angle ’(rectangular) angle) 
(put ’make-from-real-imag ‘rectangular 
(lambda (x y) (tag (make-from~-real-imag x y)))) 
(put ’make-from-mag-ang ‘rectangular 
(lambda (r a) (tag (make-from-mag-ang r a))})) 


‘done) 


请 注意 ， 这 里 的 所 有 内 部 过 程 ， 与 2.4.1 节 里 Ben 在 自己 独立 工作 中 写 出 的 过 程 完 全 一 样 ， 
在 将 它们 与 系统 的 其 他 部 分 建立 联系 时 ， 也 不 需要 做 任何 修改 。 进 一 步 说 ， 由 于 这 些 过 程 定 
义 都 是 上 述 安装 过 程 内 部 的 东西 ，Ben 完 全 不 必 担 心 它 们 的 名 字 会 与 直角 坐标 程序 包 外 面 的 其 
他 过 程 的 名 字 相 互 冲突 。 为 了 能 与 系统 里 的 其 他 部 分 建立 起 联系 ，Ben 将 他 的 real-Pazt 过 
程 安装 在 操作 名 字 real~part 和 类 型 (rectangular) 之 下 ,其 他 选择 次 数 的 情况 也 都 与 
此 类 似 !。 这 一 界面 还 定义 了 提供 给 外 部 系统 的 构造 函数 “， 它 们 也 与 Ben 自己 定义 的 构造 锯 
数 一 样 ， 只 是 其 中 还 需要 完成 添加 标志 的 工作 。 
Alyssa 的 极 坐标 包 与 此 类 似 : 
(define (install-polar~package) 
;; internal procedures | 
(define (magnitude z) (car 2) ) 
(define (angle z) (cdr 2)) 
(define (make-from-mag-ang r a) (cons r a)) 
(define (real-part z) 
(* (magnitude z) (cos (angle Z)))) 
(define (imag-part z} 
(* (magnitude z) (sin (angle 2Z)))) 
(define (make-from-real-imag x y) . 
(cons (sqrt (+ (Square x) (square y))) 
(atan y x))) 
+: interface to the rest of the system 
(define (tag x) {attach-tag ‘polar x)) 


nl 这 里 采用 的 是 表 (rectangular) 而 不 是 符号 rectangular ， 以 便 能 允许 某 些 带 有 多 个 参数 ， 而 且 这 些 


参数 又 并 非 都 是 局 一 类 型 的 操作 。 
nz 这 里 安装 的 构造 函数 所 用 的 类 型 不 必 是 表 ， 因 为 每 个 构造 函数 总 是 只 用 于 做 出 某 个 特定 类 型 的 对 象 。 
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{put ‘real-part ‘(polar) real-part) 
(put “imag-part *(polar) imag-part) 
(put “magnitude ’(polar) magnitude) 
(put ’angle ‘(polar) angle) 
(put ‘make-from-real-imag ‘polar 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put ‘make-from-mag-ang ‘polar 
(lambda {r a) (tag (make-from-mag-ang r a)))) 
‘done) | 


虽然 Ben 和 Alyssa 两 个 人 仍然 使 用 着 他 们 原来 的 过 程 定义 ， 这 些 过 程 也 有 着 同样 的 名 字 
(例如 real-part)，, 但 对 于 其 他 过 程 而 言 ， 这 些 定义 都 是 内 部 的 (参见 1.1.8 节 )， 所 以 在 这 
里 不 会 出 现 名 字 冲 突 问题 。 

复数 算术 的 选择 孔 数 通过 一 个 通用 的 名 为 apPPly~generic 的 “操作 ”过 程 访问 有 关 表 
格 ， 这 个 过 程 将 通用 型 操作 应 用 于 一 些 参数 。app1ly- ~generic 在 表格 中 用 操作 名 和 参数 类 
型 查找 ， 如 果 找 到 ， 就 去 应 用 查找 中 得 到 的 过 程 ，: 


(define (apply-generic op . args) 
(let ((type-tags (map type-tag args))) 
(let ((proc (get op type-tags))) 


(if proc | 
{apply proc (map contents args) ) 
(error 
"No method for these types -- APPLY- GENERIC" 


(list op type-tags)))))) 


利用 apply-generic， 各 种 通用 型 选择 函数 可 以 定义 如 下 : 

(define (real-part z) (apply-generic ‘real-part 2z)) 

(define (imag-part z) (apply-generic ’imag-part 2)) 

(define (magnitude z) (apply-generic ‘magnitude 2z)) 

{define (angle z) (apply-generic ‘angle z)) 
请 和 注意， 如 果 要 将 一 个 新 表示 形式 加 入 这 个 系统 ， 上 述 这 些 都 完全 不 必修 改 。 

我 们 同样 可 以 从 表 中 提取 出 构造 函数 ， 用 到 包 之 外 的 程序 中 ， 从 实 部 和 虚 部 或 者 模 和 由 
角 构 造 出 复数 来 。 就 像 在 2.4.2 节 中 那样 ， 当 我 们 有 的 是 实 部 和 并 部 时 就 构造 直角 坐标 表示 的 
复数 ， 有 模 和 幅 角 时 就 构造 极 坐标 的 数 ， 

(define (make-from-real-imag x y) 


(({get ’make-from-real-imag ‘rectangular) x y)) 


(define (make-from-mag-ang r a) 
((get "’make-from-mag-ang ’polar) r a)) 


练习 2.73 2.3.2 节 描述 了 一 个 执行 符号 求 导 的 程序 ; 


(define (deriv exp var) 
(cond ((number? exp) 0) 


3 apply-generic ti 722.20 Pi RHA BIC, AA TAN MR EER TR REN. E 
apply-generic 里 ，op 将 取得 aPPly~9generic 的 第 一 个 参数 的 值 margs 的 值 是 其 余 参数 的 表 。 
apply-generic 还 使 用 了 基本 过 程 aApPlY， 这 一 过 程 需要 两 个 参数 、 一 个 过 程 和 一 个 表 。apPPly 将 应 用 这 
一 过 程 ， 用 表 的 元 素 作为 其 参数 。 例 如 (apply+ (list 1 2 3 4)) 的 结果 是 10 。 
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((variable? exp) (if (same~variable? exp var) 1 0)) 
((sum? exp) : 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var))) 
( (product? exp) 
{make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var)) 
({make-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
< 更 多 规则 可 以 加 在 这 里 > 
{else (error "unknown expression type -~ DERIV" exp))))} 
可 以 认为 ， 这 个 程序 是 在 执行 一 种 基于 被 求 导 表 达 式 类 型 的 分 派 工 作 。 在 这 里 ， 数 据 的 “类 
型 标志 ”就 是 代数 运算 侍 〈 例 如 +) ， 需 要 执行 的 操作 是 aeriv。 我 们 也 可 以 将 这 一 程序 变换 
到 数据 导 问 的 风格 ， 将 基本 求 寻 过 程 重新 写成 : 
{define (deriv exp var) 
(cond ((number? exp) 0) 
({variable? exp) (if (same-variable? exp var) 1 0)) 
(else ((get ‘deriv (operator exp)) (operands exp) 
var)))) 


(define {operator exp) (car exp) ) 


{define (operands exp) (cdr exp)) 


a) 请 解释 上 面 究 竟 做 了 些 什 么 。 为 什么 我 们 无 法 将 相近 的 谓词 number? 和 Same~varIables? 
也 加 入 数据 导 癌 分 派 中 ? 

b) 请 写 出 针对 和 式 与 积 式 的 求 导 过 程 ， 并 把 它们 安装 到 表格 里 ， 以 便 上 面 程序 使 用 所 需 
要 的 辅助 性 代码 。 

c) 请 选择 一 些 你 希望 包括 的 求 导 规则 ， 例 如 对 乘 害 《练习 2.36) 求 导 等 等 ， 并 将 它们 安 
装 到 这 一 数据 导 闪 的 系统 里 。 

d) 在 这 一 简单 的 代数 运算 器 中 ， 表 达 式 的 类 型 就 是 构造 起 它们 来 的 代数 运算 符 。 假 定 我 
们 想 以 另 一 种 相反 的 方式 做 索引 ， 使 得 deriv 里 完成 分 派 的 代码 行 像 下 面 这 样 : 

((get (operator exp) ‘deriv) (operands exp) var) | 
求 导 系统 里 还 需要 做 哪些 相应 的 改动 ? 

练习 2.74 Insatiable Enterprise 公 司 是 一 个 高 度 分 散 经 营 的 联合 公司 ， 由 大 量 分 布 在 世 办 
各 地 的 分 支 机 构 组 成 。 公 司 的 计算 机 设施 已 经 通过 一 种 非常 巧妙 的 网 络 连 接 模 式 联 为 一 体 ， 
它 使 得 从 任何 一 个 用 户 的 角度 看 ， 整 个 网 络 就 像 是 一 台 计算 机 。 在 第 一 次 试图 利用 网 络 能 力 
从 各 分 支 机 构 的 文件 中 提取 管理 信息 时 ，Insatiable 的 总 经 理 非 常 诅 赤 地 发 现 ， 昌 然 所 有 分支 
机 构 的 文件 都 被 实现 为 Scheme 的 数据 结构 ， 但 是 各 分 支 机 构 所 用 的 数据 结构 却 各 不 相同 。 她 
马上 招集 了 各 分 支 机 构 的 经 理会 议 ， 和 希望 寻找 一 种 策略 集成 起 这 些 文件 ， 以 便 在 维持 各 个 分 
支 机 构 中 现存 独立 工作 方式 的 同时 ， 又 能 满足 公司 总 部 管理 的 需要 。 

请 说 明 这 种 策略 可 以 如 何 通 过 数据 导向 的 程序 设计 技术 实现 。 作 为 例子 ， 假 定 每 个 分 文 
机 构 的 人 事 记 录 都 存放 在 一 个 独立 文件 里 ， 其 中 包含 了 一 集 以 雇员 名 字 作 为 键 值 的 记录 。 而 
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有 关 集 合 的 结构 却 由 于 分 支 机 构 的 不 同 而 不 同 。 进 一 步 说 ， 某 个 屠 员 的 记录 本 身 又 是 一 个 集 
合 (各 分 支 机 构 所 用 的 结构 也 不 同 )， 其 中 所 包含 的 信息 也 在 一 些 作为 键 值 的 标识 符 之 下 ， 例 
address 和 salary。 特 别 是 考虑 如 下 问题 : ' 

a) 请 为 公司 总 部 实现 一 个 get-record 过 程 ， 使 它 能 从 一 个 特定 的 人 事 文件 里 提取 出 一 
个 特定 的 雇员 记录 。 这 一 过 程 应 该 能 应 用 于 任何 分 支 机 构 的 文件 。 请 说 明 各 个 独立 分 支 机 构 
的 文件 应 具有 怎样 的 结构 。 特 别 是 考虑 ， 它 们 必须 提供 哪些 类 型 信息 ? 

b) 请 为 公司 总 部 实现 一 个 get-salary 过 程 ， 它 能 从 任何 分 支 机 构 的 人 事 文件 中 取得 某 
个 给 定 雇员 的 薪金 信息 。 为 了 使 这 一 操作 能 够 工作 ， 这 些 记 录 应 具有 怎样 的 结构 ? 

c) 请 为 公司 总 部 实现 一 个 过 程 Eind-~emp1loyee-zecord， 该 过 程 需 要 针对 一 个 特定 殿 
员 名 ， 在 所 有 分 支 机 构 的 文件 去 查找 对 应 的 记录 ， 并 返回 找到 的 记录 ， 假定 这 一 过 程 的 参数 
是 一 个 雇员 名 和 所 有 分 支 文件 的 表 。 

d) 当 Iinsatiable 购 并 新 公司 后 ， 要 将 新 的 人 事 文 件 结合 到 系统 中 ， 必须 做 哪些 修改 ? 


消息 传递 

在 数据 导向 的 程序 设计 里 ， 最 关键 的 想法 就 是 通过 + 显 式 处 理 操作 - 类 型 表格 (例如 图 2- 
22 里 的 表格 ) 的 方式 ， 管 理 程序 中 的 各 种 通用 型 操作 。 我 们 在 2.4.2 市 中 所 用 的 程序 设计 风格 ， 
是 一 种 基于 类 型 进行 apenas 共 中 让 每 个 操作 管理 自己 的 分 泊 从 效果 上 看 ， 这 种 
”方式 就 是 将 操作 一 类 型 表格 分 解 为 一 行 一 行 ， 每 个 通用 型 过 程 表示 表格 中 的 一 行 。 

另 种 实现 第 略 是 将 这 表格 接 列 进 行 分 角 不 是 采用 一 批 “ 智 能 操作 ”去 基于 数据 类 
型 进行 分 派 ， 而 是 采用 “智能 数据 对 象 ”， 让 它们 基于 操作 名 完成 所 需 的 分 派 工 作 。 如 有 果 我 们 
想 这 样 做 ， 所 需要 做 的 就 是 做 出 一 种 安排 ， 将 每 一 个 数据 对 象 〈 例 如 一 个 采用 直角 坐标 表示 
的 复数 ) 表示 为 一 个 过 程 。 它 以 操作 的 名 字 作 为 输入 ， 能 够 去 执行 指定 的 操作 。 按照 过 种 万 
x, make-from-real-imag Miz 成 下 面 样子 : | 


(define (make-from-real-imag x y) 
(define (dispatch op) 
(cond ((eq? op ‘real-part) x) 
((eq? op ’imag-part) y) 
((eq? op ’magnitude) 
(sqrt (+ (square x) (Square y)))) 
( (eq? op ’angle) (atan y x) 
(else 
(error "Unknown op -- MAKE-FROM-REAL-IMAG" op)))) 


dispatch) 


与 之 对 应 的 apP1LY- _generic 过 程 应 该 对 其 参数 应 用 一 个 通用 型 操作 ， 此 时 它 只 需要 简单 地 
将 操作 名 馈 人 该 数据 对 象 ， 并 让 那个 对 和 象 去 完成 工作 ””， 四 _ 

(define (apply~generic op arg) (arg op)) | i 
请 注意 ， make-from-real-imag 返 回 的 值 是 一 个 过 程 -一 它 内 部 的 dispatch 过 程 。 这 也 
就 是 当 apP1Y-generic 要 求 执行 一 个 操作 时 所 调用 的 过 程 。 

这 种 风格 的 程序 设计 称 为 消息 传递 ， 这 一 名 字源 自 将 数据 对 象 设 想 为 一 个 实体 ， 它 以 
“消息 ”的 方式 接收 到 所 需 操作 的 名 字 。 在 2.1.3 节 中 我 们 已 经 看 到 过 一 个 消息 传递 的 例子 ， 在 


us 这 种 组 织 方 式 的 一 个 限制 是 只 允许 一 个 参数 的 通用 型 过 程 。 
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那里 看 到 的 是 如 何 用 没有 数据 对 象 而 只 有 过 程 的 方式 定义 cons 、car 和 cdr 。 现 在 我 们 看 到 
的 是 ， 消 息 传 递 并 不 是 一 种 数学 机 巧 ， 而 是 一 种 有 价值 的 技术 ， 可 以 用 于 组 织带 有 通用 型 操 
作 的 系统 。 在 本 章 剩 下 的 部 分 里 ， 我 们 将 要 继续 使 用 数据 导向 的 程序 设计 (而 不 是 用 消息 传 
递 )， 进 一 步 讨论 通用 型 算术 运算 的 问题 。 在 第 3 章 里 我 们 将 会 回 到 消息 传递 ， 并 在 那里 看 到 
它 可 能 怎样 成 为 构造 模拟 程序 的 强 有 力 工 具 。 

练习 2.75 请 用 消息 传递 的 风格 实现 构造 函数 make-from-mag~ang。 这 一 过 程 应 该 与 
上 面 给 出 的 nake-from-real-1imag 过 程 类 似 。 

练习 2.76 ”一 个 带 有 通用 型 操作 的 大 型 系统 可 能 不 断 演化 ， 在 演化 中 常 需要 加 入 新 的 数 
据 对 象 类 型 或 者 新 的 操作 。 对 于 上 面 提出 的 三 种 策略 一 - 带 有 显 式 分 派 的 通用 型 操作 ， 数 据 
导向 的 风格 ， 以 及 消息 传递 的 风格 一 一 请 描述 在 加 入 一 个 新 类 型 或 者 新 操作 时 ， 系 统 所 必须 
做 的 修改 。 哪 种 组 织 方式 最 适合 那些 经 常 需要 加 入 新 类 型 的 系统 ? 哪 种 组 织 方 式 最 适合 那些 
经 常 需要 加 入 新 操作 的 系统 ? 


2.5 带 有 通用 型 操作 的 系统 


在 前 一 节 里 ， 我 们 看 到 了 如 何 去 设 计 一 个 系统 ， 使 其 中 的 数据 对 象 可 以 以 多 于 一 神 方 式 
表示 。 这 里 的 关键 思想 就 是 通过 通用 型 界面 过 程 ， 将 描述 数据 操作 的 代码 连接 到 几 种 不 同 表 
示 上 。 现 在 我 们 将 看 到 如 何 使 用 同样 的 思想 ， 不 但 定义 出 能 够 在 不 同 表示 上 的 通用 操作 ， 还 
能 定义 针对 不 同 参数 种 类 的 通用 型 操作 。 我 们 已 经 看 到 过 几 个 不 同 的 算术 运算 包 : 语言 内 部 
的 基本 算术 (+ 二， 一 ，*,/)，2.1.1 节 的 有 理 数 算术 (add-rat, sub-rat, mul-rat, 
div-rat), 以 及 2.4.3 节 里 实现 的 复数 算术 。 现 在 我 们 要 使 用 数据 导向 技术 构造 起 一 个 算术 
运算 包 ， 将 前 面 已 经 构造 出 的 所 有 算术 包 都 结合 进去 。 

图 2-23 展 示 了 我 们 将 要 构造 的 系统 的 结构 。 请 注意 其 中 的 各 抽象 屏障 。 从 某 些 使 用 数 
从 ”的 人 的 观点 看 ， 在 这 里 只 存在 一 个 过 程 adG ， 无论 提供 给 它 的 数 是 什么 。add 是 通用 型 界 
面 的 一 部 分 ， 这 一 界面 将 使 那些 使 用 数 的 程序 能 以 一 种 统一 的 方式 ， 访问 相互 分 离 的 常规 算 
术 、 有 理 数 算术 和 复数 算术 程序 包 。 任 何 独立 的 算术 程序 包 (例如 复数 包 ) 本 身 也 可 能 通过 
通用 型 过 程 (例如 add~complex ) 访问 ， 它 也 可 能 由 针对 不 同 表示 形式 设计 的 包 (AAE 





使 用 数 的 程序 
通用 型 算术 包 
add-rat sub-rat add-complex sub-complex 
mul-rat div-rat mul-complex div-complex 
有 理 数 算术 复数 算术 常规 算术 
直角 坐标 极 坐 标 





表 结 构 和 基本 机 器 算术 
图 2-23 通用 型 算术 系统 


2.5 PREM IEN Hy RH | 129 


标 表示 和 极 坐标 表示 ) 组 合 而 成 。 进 一 步 说 ， 这 一 系统 具有 可 加 性 ， 这 样 ， 人 们 还 可 以 设计 
出 其 他 独立 的 算术 包 ， 并 将 其 组 合 到 这 一 通用 型 的 算术 系统 中 。 


2.5.1 通用 型 算术 运算 


设计 通用 型 算术 运算 的 工作 类 似 于 设计 通用 型 复数 运算 。 我 们 希望 (例如 ) 有 一 个 通用 
型 的 加 法 过 程 add ， 对 于 常规 的 数 ， 它 的 行为 就 像 常规 的 基本 加 法 + ， 对 于 有 理 数 ， 它 就 像 
add-Iat， 对 于 复数 就 像 add-comP1ex。 PUT STA BEES A PARAS BENET EE 
函数 所 用 的 同样 策略 ， 去 实现 add 和 其 他 通用 算术 运算 。 下 面 将 为 每 种 数 附着 一 个 类 型 标 
以 便 通用 型 过 程 能 够 根据 其 参数 的 类 型 完成 到 某 个 适用 的 程序 包 的 分 派 。 

通用 型 算术 过 程 的 定义 如 下 : 


(define (add x y) (apply-generic ’add x y)) 
(define (sub x y) (apply-generic ‘sub x y)) | 
(define (mul x y) (apply-generic ’mul x y)) ` 
(define (div x y) (apply-generic ‘div x y)) 


下 面 我 们 将 从 安装 处 理 常 规 数 ( 即 ， 语 言 中 基本 的 数 ) 的 包 开 始 ， 对 这 种 数 采 用 的 标志 
是 符号 scheme~number , 这 个 包 里 的 算术 运算 都 是 基本 算术 过 程 . (因此 不 需要 再 定义 过 程 
去 处 理 无 标志 的 数 ) 。 因 为 每 个 操作 都 有 两 个 参数 ， PLA ARE (scheme-number scheme- 
number) 作为 表格 中 的 键 值 去 安装 它们 ; : 


(define (install-scheme-number-package) . 
(define (tag x) 
(attach-tag ‘scheme-number x)}) 

(put ’add ’(scheme-number scheme-number ) 
(lambda (x y) (tag (+ x y)))) 

{put ’sub ’(scheme-number scheme-number ) 
(lambda (x y) (tag (- x y)))) 

(put "mul *(scheme-number scheme-number ) 
(lambda (x y) (tag (* X y)))) 

(put ‘div (Scheme-number scheme-number ) 
(lambda (x y) (tag (/ x y))))_ 

put "make ‘scheme-number 
(lambda (x) (tag Xx) ).) 

‘done) 


Scheme 数值 包 的 用 户 可 以 通过 下 面 过 程 ， 创建 带 标志 的 常规 数 : 
(define (make-scheme-number n) 3 
({get ’make ’scheme-number) n)) 
现在 我 们 已 经 做 好 了 通用 型 算术 系统 的 框架 ， 可 以 将 新 的 数 类 型 加 入 其 中 了 。 下 面 是 一 
个 执行 有 理 数 算术 的 程序 包 。 请 注意 ， 由 于 具有 可 加 性 ， 我 们 可 以 直接 把 取 自 2.1.1 节 的 有 理 
数 代 码 作为 这 个 程序 包 的 内 部 过 程 ， 完 全 不 必 做 任何 修改 : 


(define (install-rational-package) 

;; internal procedures 
(define (numer x) (car x)) 
(define (denom x) (cdr x)) 
(define (make-rat n d) 
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(let ((g (gcd n d))) 
(cons (/ ng) (/ d g)))) 
(define (add-rat x y) 
(make-rat (+ (* (numer x) (denom y)) 
(* (numer y} (denom x))) 
(* (denom x) (denom y)))) 
(define (sub-rat x y) | 
(make-rat (- (* (numer x) (denom y)) 
(* (numer y) (denom x))) 
(* (denom x) (denom y)))) 
(define (mul-rat x y) 
(make-rat (* (numer x) (numer y)) 
{* (denom x) (denom y)))) 
(define (div-rat x y) 
(make-rat (* (numer x) (denom y) ) 
(* (denom x) (numer y)))) 


;; interface to rest of the system 

(define (tag x) (attach-tag ‘rational X)) 
(put ‘add "(rational rational) 

(lambda (x y) (tag (add-rat x y)))) 
(put ‘sub ’(rational rational) 

(lambda (x y) (tag (sub-rat x y)))) 
(put ’mul ’(rational rational) 

(lambda (x y) (tag (mul-rat x y)))) 
(put ‘div ’(rational rational) 

(lambda (x y) (tag (div-rat x y)))) 


(put ‘make ‘rational | 
(lambda (n d) (tag (make-rat n d)))) 
*done) 


(define (make-rational n qd) 
( (get ’make ’rational) n d)) 


我 们 可 以 安装 上 另 一 个 处 理 复数 的 类 似 程序 包 ， 采 用 的 标志 是 complex。 在 创建 这 个 程 
序 包 时， 我 们 要 从 表格 里 抽取 出 操作 make-from-real-imag make-from-mag-ang, 
它们 原来 分 别 定 义 在 直角 坐标 和 极 坐 标 包 里 。 可 加 性 使 我 们 能 把 取 自 2.4.1 玉 同样 的 add-~ 
complex, sub-complex, mul-complex 和 div-complex 过 程 用 作 内 部 操作 。 | 


(define (install-complex-package) 
;; imported procedures from rectangular and polar packages 
(define (make-from-real-imag x y) 
((get ’make-from-real-imag rectangular) x y)) 
(define (make-from-mag-ang r a) 
((get ’make-from-mag-ang ‘polar) r a)) 


;; internal procedures 
(define (add-complex 21 22) 
(make-from-real-imag (+ (real-part zl) (real-part 22)) 
(+ (imag-part z1) (imag-part 22)))) 
(define (sub-complex zl Z2) 
(make-~from-real-imag (- (real-part zl) (real-part 22)) 
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(~ (limag-part 21) (imag-part 22))})) 
(define (mul-complex z1 z2) 
(make-from-mag-ang (* (magnitude zl) (magnitude 2z2)) 
(+ (angle zl) (angle 22)))) 
{define {div-complex zl 22) 
(make-from-mag-ang (/ (magnitude zl) (magnitude 2z2)) 
(- (angle zl) (angle 22)))) 


;; interface to rest of the system 
(define (tag z) (attach-tag ‘complex 2z)) 
(put ’add *(complex complex) . 
(lambda (zl z2) (tag (add-complex 21 z2)))) 
(put ’sub ’(complex complex) 
(lambda (zl 22) (tag (sub-complex 21 22)))) 
‘¢ (put mul ‘(complex complex) 
(lambda (z1 22) (tag (mul-complex zl 22)))) 
(put ’div ’(complex complex) | 
(lambda (zl 22) (tag (div-complex zl 22)))) 
(put ’make-from-real-imag ‘complex 
| (lambda (x y) (tag (make-from-real-imag x y)))) 
(put ‘make-from-mag-ang "complex 
(lambda (r a) (tag (make-from-mag-ang r-a)))) 
*done) | | | 
TEA ga SP ER PPT CAAA SE PE A RAS, WAT. AE 
这 里 如 何 将 原先 定义 在 直角 坐标 和 极 坐 标 包 里 的 集成 过 程 导 出 ， 放 入 复数 包 中 ， 又 如 何 从 这 
里 导出 送 给 外 面 的 世 乔 。 
(define (make-complex-—from-real-imag x Y) 
( (get ’make~from-real-imag ‘complex) x y})} 


(define (make-complex-from-mag-ang r a) 
((get ‘make-from-mag-ang complex) r a)) 


这 里 描述 的 是 一 个 具有 两 层 标 志 的 系统 。 一 个 典型 的 复数 如 直角 坐标 表示 的 3 +41, BUTE 
的 表示 形式 如 图 2-24 所 示 。 外 层 标 志 (complex) 用 于 将 这 个 数 引 导 到 复数 包 ， 一 旦 进入 复 
数 包 ， 下 一 个 标志 (rectangular ) 就 会 引导 这 个 数 进入 直角 坐标 表示 包 。 在 一 个 大 型 的 
复杂 系统 里 可 能 有 许多 层次 ， 每 层 与 下 一 层次 之 间 的 连接 都 借助 于 一 些 通 用 型 操作 。 当 一 个 
数据 对 象 被 “向 下 ”传输 时 ， 用 于 引导 它 进 入 适当 程序 包 的 最 外 层 标 志 被 剥 除 (通过 使 用 
contents)， 下 一 层次 的 标志 (如 果 有 的 话 ) 变 成 可 见 的 ， 并 将 被 用 于 下 一 次 分 派 。 | 





图 2-24 直角 坐标 形式 的 3 +4; 的 表示 

在 上 面 这 些 程 序 包 里 ,我 们 使 用 了 add-rat 、add-complex 以 及 其 他 算术 过 程 ， 完 全 

按照 它们 原来 写 出 的 形式 。 一 旦 把 这 些 过 程 定 义 为 不 同安 装 过 程 内 部 的 东西 ， 它 们 的 名 字 就 
没有 必要 再 相互 不 同 了 ， 可 以 在 两 个 包 中 都 简单 地 将 它们 命名 为 add、 sub, mulfiidiv, 
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练习 2.77 Louis Reasoner 试 着 去 求 值 (magnitude z), 其 中 的 z 就 是 图 2-24 里 的 那个 
对 象 。 令 他 吃惊 的 是 ， 从 app1Y-geneIric 出 来 的 不 是 "而 是 一 个 错 己 信息 ， 说 没 办 法 对 类 型 
(complex) 做 操作 magnitude。 他 将 这 次 交互 的 情况 给 Alyssa P. Hacker 看 ，Alyssa 说 “ 问 
题 出 在 没有 为 complex 数 定义 复数 选择 函数 ， 而 只 是 为 Poplar 和 rectangular 数 定义 了 它 
们 。 你 需要 做 的 就 是 在 complex 包 里 加 入 下 面 这 些 东 本 ”: 


(put ‘real-part (complex) real-part) 

(put “imag-Part ‘(complex) imag-part) 

(put ‘magnitude ’' (complex) magnitude) 

{put ’angle ‘(complex) angle) 
请 详细 说 明 为 什么 这 样 做 是 可 行 的 。 作 为 一 个 例子 ， 请 考虑 表达 式 (magnitude z) 的 求 
值 过 程 ， 其 中 z 就 是 图 2-24 里 展示 的 那个 对 象 ， 请 追 踊 一 下 这 一 求 值 过 程 中 的 所 有 国 数 ， 
特别 是 看 看 apply-generic 被 调用 了 几 次 ?每 次 调用 中 分 派 的 是 哪个 过 程 ? 

练习 2.78 包 scheme-number 里 的 内 部 过 程 几乎 什么 也 没 做 ， 只 不 过 是 去 调用 基本 过 
程 +、-- 等 等 。 直 接 使 用 语言 的 基本 过 程 当然 是 不 可 能 的 ， 因 为 我 们 的 类 型 标志 系统 要 求 每 
个 数据 对 象 都 附加 一 个 类 型 。 然 而 ， 事 实 上 所 有 Lisp 实 现 都 有 自己 的 类 型 系统 ， 使 用 在 系统 
实现 的 内 部 ， 基 本 谓词 symbo1? 和 numbezr? 等 用 于 确定 某 个 数据 对 象 是 否 具 有 特定 的 类 型 。 
请 修改 2.4.2 节 中 type-tag、contents 和 attach-tag 的 定义 ， 使 我 们 的 通用 算术 系统 可 
以 利用 Scheme 的 内 部 类 型 系统 。 这 也 就 是 说 ， 修 改 后 的 系统 应 该 像 原来 一 样 工作 ， 除 了 其 中 
常规 的 数 直接 采用 Scheme 的 数 形式 ， 而 不 是 表示 为 一 个 ca 部 分 是 符号 scheme-numpber 的 
序 对 。 

练习 2.79 ”请 定义 一 个 通用 型 相等 谓词 equ? ， 它 能 检查 两 个 数 是 否 相 等 。 请 将 它 安 疙 到 
通用 算术 包 里 。 这 一 操作 应 该 能 处 理 常规 的 数 、 有 理 数 和 复数 。 

练习 2.80 ”请 定义 一 个 通用 谓词 =zero? ， 检 查 其 参数 是 否 为 0 ， 并 将 它 安装 到 通用 只 本 
包 里 。 这 一 操作 应 该 能 处 理 常规 的 数 、 有 理 数 和 复数 。 


25.2 不 同类 型 数据 的 组 合 


前 面 已 经 看 到 了 如 何 定义 出 一 个 统一 的 算术 系统 ， 其 中 包含 常规 的 数 、 复 数 和 有 理 数 ， 
以 及 我 们 希望 发 明 的 任何 其 他 数值 类 型 。 但 在 那里 也 忽略 了 一 个 重要 的 问题 。 我 们 至 今 定 义 
的 所 有 运算 ， 都 把 不 同 数据 类 型 看 作 相互 完全 分 离 的 东西 ， 也 就 是 说 ， 这 里 有 几 个 完全 分 离 
的 程序 包 ， 它 们 分 别 完成 两 个 常规 的 数 ， 或 者 两 个 复数 的 加 法 。 我 们 至 今 还 没有 考虑 的 问题 
是 下 面 事实 ,定义 出 能 够 跨 过 类 型 界限 的 操作 也 很 有 意义 ， 警 如 完成 一 个 复数 和 一 个 常规 数 
的 加 法 。 在 前 面 ， 我 们 一 直 敏 费 苦 心地 在 程序 的 各 个 部 分 之 间 引 进 了 屏障 ， 以 使 它们 能 够 分 
中 开发 和 分 别 理解 。 现 在 却 又 要 引进 跨 类 型 的 操作 。 当 然 ， 我 们 必须 以 一 种 经 过 精心 考虑 的 
可 挖 方式 去 做 这 件 事 情 ， 以 使 我 们 在 支持 这 种 操作 的 同时 又 没有 严重 地 损害 模块 间 的 分 界 。 

处 理 跨 类 型 操作 的 一 种 方式 ， 就 是 为 每 一 种 类 型 组 合 的 合法 运算 设计 一 个 特定 过 程 。 例 
如 ， 我 们 可 以 扩充 复数 包 ， 使 它 能 提供 一 个 过 程 用 于 加 起 一 个 复数 和 一 个 常规 的 数 ， 并 用 标 
+ (complex scheme-number ) 将 它 安装 到 表格 BATT? 


:; to be included in the complex package 


115 我 们 还 需要 另 一 个 几乎 相同 的 过 程 去 处 理 类 型 (scheme-number complex), 


“.” WA IE A) ARSE HS RH. | 133 


(define (add-complex-to-schemenum z x) 
(make-from-real-imag (+ (real-part z) x) 
(imag-part 2z))) 


(put ‘add ‘(complex scheme-number ) 
{lambda (2 x) (tag (add-complex-to-schemenum z x)))) 


这 一 技术 确实 可 以 用 ， 但 也 非常 麻烦 。 对 于 这 样 的 一 个 系统 ， 引 进 一 个 新 类 型 的 代价 就 
不 仅仅 需要 构造 出 针对 这 一 类 型 的 所 有 过 程 的 包 ， 还 需要 构造 并 安装 好 所 有 实现 跨 类 型 操作 
的 过 程 。 后 一 件 事 所 需要 的 代码 很 容易 就 会 超过 定义 类 型 本 身 所 需 的 那些 操作 。 这 种 方法 也 
损害 了 以 添加 方式 组 合 独立 开发 的 程序 包 的 能 力 ， 至 少 给 独立 程序 包 的 实现 者 增加 了 一 些 限 
制 |， 要 求 他 们 在 对 独立 程序 包工 作 时 ， 必须 同时 关注 其 他 的 程序 包 。 比 如 ， 在 上 面 例子 里 ， 
如 果 要 处 理 复数 和 常规 数 的 混合 运算 ， 将 其 看 作 复 数 包 的 责任 是 合理 的 。 然 而 ， 有 关 有 理 数 
和 复数 的 组 合 工 作 却 存 在 许多 选择 ， 完 全 可 以 由 复数 包 、 有 理 数 包 ， 或 者 由 另外 的 ， 使 用 了 
从 前 面 两 个 包 中 取出 的 操作 的 第 三 个 包 完 成 。 在 设计 包含 许多 程序 包 和 许多 跨 类 型 操作 的 系 
统 时 ， 要 想 规 划 好 一 套 统 一 的 策略 ， 分 清 各 种 包 之 间 的 责任 ， 很 容易 变 成 非常 复杂 的 任务 。 

强制 

最 一 般 的 情况 是 需要 处 理 针 对 一 批 完 全 无 关 的 类 型 的 一 批 完全 无 关 的 操作 ， 直 接 实现 跨 
类 型 操作 很 可 能 就 是 解决 问题 的 最 好 方式 了 ， 当 然 ， 这 样 做 起 来 确实 比较 麻烦 。 幸 运 的 是 ， 
我 们 常常 可 以 利用 潜藏 在 类 型 系统 之 中 的 一 些 额外 结构 ， 将 事情 做 得 更 好 些 。 不 同 的 数据 类 
型 通常 都 不 是 完全 相互 无 关 的 ， 常 常 存在 一 些 方 式 ， 使 我 们 可 以 把 一 种 类 型 的 对 象 看 作 另 一 
种 类 型 的 对 象 。 这 种 过 程 就 称 为 强制 。 举 例 来 说 ， 如 果 现 在 需要 做 常规 数值 与 复数 的 混合 算 
术 ， 我 们 就 可 以 将 常规 数值 看 成 是 虚 部 为 0 的 复数 。 这 样 就 把 问题 转换 为 两 个 复数 的 运算 问题 ， 
可 以 由 复数 包 以 正常 的 方式 处 理 了 。 

一 般 而 言 ， 要 实现 这 一 想 东 ,我们 可 以 设计 出 一 些 强 制 过 程 ， 它 们 能 把 一 个 类 型 的 对 象 
转换 到 另 一 类 型 的 等 价 对 象 。 下 面 是 一 个 典型 的 强制 过 程 ， 它 将 给 定 的 常规 数值 转换 为 一 个 
复数 ， 其 中 的 实 部 为 原来 的 数 而 虚 部 是 0 : | 


{define (scheme-number->complex n) 
(make-complex-from-real-imag (contents n) 0)) 
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(put-coercion ’scheme-number ‘complex scheme- number- ->complex) 


(这 里 假定 了 存在 着 用 于 操纵 这 个 表格 的 put-coercion 和 get- coercion 过 程 。) 一 般 而 
言 ， 这 一 表格 里 的 某 些 格 子 将 是 空 的 ， 因 为 将 任何 数据 对 象 转换 到 另 一 个 类 型 并 不 是 都 能 做 
的 。 例 如 并 不 存在 某 种 将 任意 复数 转换 为 常规 数值 的 方式 ， 因 此 ， 这 个 表格 中 就 不 应 包括 一 
般 性 的 complex->scheme-number 过 程 。 

一 旦 将 上 述 转换 表格 装配 好 ， 我 们 就 可 以 修改 2.4.3 市 的 apply-generic 过 程 ， 得 到 一 
种 处 理 强 制 的 统一 方法 。 在 要 求 应 用 一 个 操作 时 ， 我 们 将 首先 检查 是 否 存 在 针对 实际 参数 类 
型 的 操作 定义 ， 就 像 前 面 一 样 。 如 果 存 在 ， 那 么 就 将 任务 分 派 到 由 操作 一 类 型 表格 中 找 出 的 
相应 过 程 去 ， 否 则 就 去 做 强制 。 为 了 简化 讨论 ， 这 里 只 考虑 两 个 参数 的 情况 。 我 们 检查 强 
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制 表 格 ， 查 看 其 中 第 一 个 参数 类 型 的 对 象 能 否 转 换 到 第 二 个 参数 的 类 型 。 如 果 可 以 ， 那 就 对 
第 一 个 参数 做 强制 后 再 试验 操作 。 如 果 第 一 个 参数 类 型 的 对 象 不 能 强制 到 第 二 个 类 型 ABA 
就 试验 另 一 种 方式 ， 看 看 能 否 从 第 二 个 参数 的 类 型 转换 到 第 一 个 参数 的 类 型 。 最 后 ， 如 琳 不 
存在 从 一 个 类 型 到 另 一 类 型 的 强制 ， 那 么 就 只 能 放弃 了。 下 面 是 这 个 过 程 : 
(define (apply~generic op . args) 
{let ((type-tags (map type-tag args))) 
(let ({proc (get op type~-tags) ) ) 
(if proc 
(apply proc (map contents args)) 
(if (= (length args) 2) 
{let ((typel (car type-tags) ) 
(type2 (cadr type-tags})} 
(al (car args)) 
(a2 (cadr args)}) 
(let ((tl->t2 (get-coercion typel type2)) 
(t2->tl (get-coercion type2 typel))) 
(cond (tl->t2 
{apply-generic op (tl->t2 al) a2)) 
(t2->t1 
(apply-generic op al (t2=->ti a2))) 
(else | 
(error "No method for these types" 
(list op type-tags)))))) ` 
(error "No method for these types” | 
(list op type-tags))))))) 


与 显 式 定义 的 跨 类 型 操作 相 比 ， 这 种 强制 模式 有 许多 优越 性 。 就 像 在 上 面 已 经 说 过 的 。 
虽然 我 们 仍然 需要 写 出 一 些 与 各 种 类 型 有 关 的 强制 过 程 (Tn TKR BE’ Tit 
程 )， 但 是 却 只 需要 为 每 一 对 类 型 写 一 个 过 程 ， 而 不 是 为 每 对 类 型 和 每 个 通用 型 操作 写 一 个 过 
EU 能够 这 样 做 的 基础 就 是 ， 类 型 之 间 的 适当 转换 只 依赖 于 类 型 本 身 ， 而 不 依赖 于 所 实际 
应 用 的 操作 。 

在 另 一 方面 ， 也 可 能 存在 一 些 应 用 ， 对 于 它们 而 言 我 们 的 强制 模式 还 不 足够 一 般 。 即 使 
所 要 运算 的 两 种 类 型 的 对 象 都 不 能 转换 到 另 一 种 类 型 ， 也 完全 可 能 在 将 这 两 种 类 型 的 对 象 都 
转换 到 第 三 种 类 型 后 执行 这 一 运算 。 为 了 处 理 这 种 复杂 性 ， 同 时 又 能 维持 我 们 系统 的 模块 性 ， 
通常 就 需要 在 建立 系统 时 利用 类 型 之 间 的 进一步 结构 ， 有 关 情 况 见 下 面 的 讨论 。 

类 型 的 层次 结构 

上 面 给 出 的 强制 模式 ， 依 赖 于 一 对 对 类 型 之 间 存 在 着 某 种 自然 的 关系 。 在 实际 中 ， 还 常 
党 存在 着 不 同类 型 间 相互 关系 的 更 “全 局 性 ”的 结构 。 例 如 ， 假 定 我 们 想 要 构造 出 一 个 通用 
型 的 算术 系统， 处 理 整 数 、 有 理 数 、 实 数 、 复 数 。 在 这 样 的 一 个 系统 里 ， 一 种 很 自然 的 做 法 
是 把 整数 看 作 是 一 类 特殊 的 有 理 数 ， 而 有 理 数 又 是 一 类 特殊 的 实数 ， 实 数 转 而 又 是 一 类 特殊 


u7 如 果 做 得 更 聪明 些 ， 常 常 不 需要 写 出 忆 那 么 多 个 强制 过 程 。 例 如 ， 如 果 知道 如 何 从 类 型 1 转换 到 类 型 < ， 以 及 
如 何 从 类 型 2 转换 到 类 型 3 ， 那 么 也 就 可 以 利用 这 些 知识 从 类 型 1 转换 到 类 型 3 。 这 将 大 大 减少 在 向 系统 中 加 入 
新 类 型 时 需要 显 式 提供 的 转换 过 程 的 个 数 。 如 果真 的 希望 ， 也 完全 可 以 将 这 种 复杂 方式 做 到 系统 里 ， 让 系统 
去 查找 类 型 之 间 的 关系 “图 "， 而 后 自动 地 通过 显 式 提 供 的 强制 过 程 ， 生 成 其 他 能 够 推导 出 的 强制 过 程 。 
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的 复数 。 这 样 ， 我 们 实际 有 的 就 是 一 个 所 谓 的 类 型 的 层次 结构 ， 在 复数 

其 中 ，( 例 如 ) 整数 是 有 理 数 的 子 类 型 (也 就 是 说 ， 任 何 可 以 应 用 A 

于 有 理 数 的 操作 都 可 以 应 用 于 整数 ) 。 与 此 相对 应 ， 人 们 也 说 有 理 n 

数 形 成 了 整数 的 一 个 超 类 型 。 在 这 个 例子 里 所 看 到 的 类 型 层次 结构 

是 最 简单 的 一 种 ， 其 中 一 个 类 型 只 有 至 多 一 个 超 类 型 和 至 多 一 个 子 | 

类 型 。 这 样 的 结构 称 为 一 个 类 型 塔 ， 如 图 2-25 所 示 。 有 理 数 
各 果 我 们 面 对 的 是 _ 个 塔 结构 ”那么 将 一 个 新 类 型 加 入 层次 结 | 


构 的 问题 就 可 能 极 大 地 简化 了 ， 因 为 需要 做 的 所 有 事情 ， 也 就 是 刻 
画 清楚 这 一 新 类 型 将 如 何 颈 入 正好 位 于 它 之 上 的 超 类 型 ， 以 及 它 如 
何 作为 下 面 一 个 类 型 的 超 类 型 。 举 例 说 ， 如 果 我 们 希望 做 一 个 整数 图” 一 个 类 型 典 
和 一 个 复数 的 加 法 ， 那 么 并 不 需要 明确 定义 一 个 特殊 强制 函数 ijnteger->complex。 相 反 ， 
我 们 可 以 定义 如 何 将 整数 转换 到 有 理 数 ， 如 何 将 有 理 数 转换 到 实数 ， 以 及 如 何 将 实数 转换 到 
复数 。 而 后 让 系统 通过 这 些 步骤 将 该 整数 转换 到 复数 ， 在 此 之 后 再 做 两 个 复数 的 加 法 。 

我 们 可 以 按照 下 面 的 方式 重新 设计 那个 apPLyY-generic 过 程 。 对 于 每 个 类 型 ， 都 需要 
提供 一 个 raise 过 程 ， 它 将 这 一 类 型 的 对 象 “提升 ”到 塔 中 更 高 一 层 的 类 型 。 此 后 ， 当 系统 
遇 到 需要 对 两 个 不 同类 型 的 运算 时 ， 它 就 可 以 逐步 提升 较 低 的 类 型 ， 直 至 所 有 对 象 都 达到 了 
塔 的 同一 个 层次 (练习 2.83 和 练习 2.84 关 注 的 就 是 实现 这 种 策略 的 一 些 细节 )。 

类 型 塔 的 另 一 优点 ， 在 于 使 我 们 很 容易 实现 一 种 概念 : 每 个 类 型 能 够 “继承 ”其 超 类 型 
中 定义 的 所 有 操作 。 举 例 说 ， 如 果 我 们 没有 为 找 出 整数 的 实 部 提供 一 个 特定 过 程 ， 但 也 完全 
可 能 期 望 real-part 过 程 对 整数 有 定义 ， 因 为 事实 上 整数 是 复数 的 一 个 子 类 型 。 对 于 类 型 塔 
的 情况 ， 我 们 可 以 通过 修改 apply-generic 过 程 ， 以 一 种 统一 的 方式 安排 好 这 些 事情 。 如 
果 所 需 操作 在 给 定 对 象 的 类 型 中 没有 明确 定义 ， 那么 就 将 这 个 对 象 提升 到 它 的 超 类 型 并 再 次 
检查 。 在 向 塔 顶 权 登 的 过 程 中 ， 我 们 也 不 断 转换 有 关 的 参数 ， 直 至 在 某 个 层次 上 找到 了 所 需 
的 操作 而 后 去 执行 它 ， 或 者 已 经 到 达 了 塔 顶 (此 时 就 只 能 放弃 了 )。 

与 其 他 层次 结构 相 比 ， 塔 形 结构 的 另 一 一 优点 是 它 使 我 们 有 一 种 简单 的 方式 去 “下 降 ” 

个 数据 对 象 ， 使 之 达到 最 简单 的 表示 形式 。 例 如 ， 如 果 现 在 做 了 2 +3i 和 4 一 3i 的 加 法 ， 如 朱 结 
果 是 整数 6 而 不 是 复数 6 +0i 当 然 就 更 好 了 。 练 习 2.85 讨 论 了 实现 这 种 下 降 操 作 的 一 种 方式 。 这 
里 的 技巧 在 于 需要 有 一 种 一 般 性 的 方式 ， 分 辨 出 哪些 是 可 以 下 降 的 对 象 (1506 +04) 哪些 
是 不 能 下 降 的 对 象 ( 例 如 6 +2i)。 


层次 结构 的 不 足 

如 果 在 一 个 系统 里 ， 有 关 的 数据 类 型 可 以 目 然 地 安排 为 一 个 塔 形 ， 那么 正如 在 前 面 已 经 
看 到 的 ， 处 理 不 同类 型 上 通用 型 操作 的 问题 将 能 得 到 极 大 的 简化 。 遗 憾 的 是 ， 事 情 通 常 都 不 
是 这 样 。 图 2-26 展 示 的 是 类 型 之 间 关系 的 一 种 更 复杂 情况 ， 其 中 显示 出 的 是 表示 几何 图 形 的 
各 种 类 型 之 间 的 关系 。 从 这 个 图 里 可 以 看 到 ， 一 般 而 言 ， 一 个 类 型 可 能 有 多 于 一 个 子 类 型 ， 
例如 三 角形 和 四 边 形 都 是 多 边 形 的 子 类 型 。 此 外 ， 一 个 类 型 也 可 能 有 多 于 一 个 超 类 型， 例如 ， 
等 腰 直 角 三 角形 可 以 看 作 是 等 腰 三 角形 ， 又 可 以 看 作 是 直角 三 角形 。 Pr 
问题 特别 令 人 二 手 ， 因 为 这 就 意味 着 ， 并 不 存在 一 种 唯一 一 方式 在 层次 结构 中 去 提升 
类 型 。 当 我 们 需要 将 一 个 操作 应 用 于 一 个 对 象 时 ， 为 此 而 找 出 “正确 ” 超 类 型 的 工作 (例如 ， 


整数 
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梯形 
三 角形 
平行 四 边 形 
等 腰 三 角形 直角 三 角形 
矩形 
正三 角形 SERA 
角形 正方 形 


图 2-26 几何 图 形 类 型 则 的 关系 


这 就 是 apPPly-generic 这 类 过 程 中 的 一 部 分 ) 可 能 涉及 到 对 整个 类 型 网 络 的 大 范围 搜索 。 
由 于 一 般 说 一 个 类 型 存在 着 多 个 子 类 型 ， 需 要 在 类 型 层次 结构 中 “下 降 ” 一 个 值 时 也 会 遇 到 
类 似 的 问题 。 在 设计 大 型 系统 时 ， 处 理 好 一 大 批 相互 有 关 的 类 型 而 同时 又 能 保持 模块 性 ， 这 
是 一 个 非常 困难 的 问题 ， 也 是 当前 正在 继续 研究 的 一 个 领域 '。 


练习 2.81 Louis Reasoner 注 意 到 ， 甚 至 在 两 个 参数 的 类 型 实际 相同 的 人 情况 下 ，apP1yY- 
generic 也 可 能 试图 去 做 参数 间 的 类 型 强制 。 由 此 他 推论 说 ， 需 要 在 强制 表格 中 加 入 一 些 过 
程 ， 以 将 每 个 类 型 的 参数 “强制 ”到 它们 自己 的 类 型 。 例 如 ， 除 了 上 面 给 出 的 scheme- 
number->complex 强 制 之 外 ， 他 觉得 应 该 有 : 


(define (scheme-number->scheme-number n) n) 

(define (complex->complex z) 2) 

(put-coercion ’scheme-number ‘scheme-number 
scheme-number->scheme-number ) 


Ne 这 和 句 话 也 出 现在 本 书 的 第 1 版 里 ， 它 在 现在 就 像 20 年 前 写 出 时 一 样 的 正确 。 开 发 出 一 种 有 用 的 ， 具 有 一般 意 
义 的 框架 ， 以 描述 不 同类 型 的 对 象 之 间 的 关系 (这 在 哲学 中 称 为 “本 体 论 ") ， 看 来 是 一 件 极其 困 难 的 工作 。 
在 10 年 前 存在 的 混乱 和 今天 存在 的 混乱 之 间 的 主要 差异 在 于 ， 今 天 已 经 有 了 一 批 各 式 各 样 的 并 不 合适 的 本 体 
理论 ， 它 们 已 经 被 拣 入 到 数量 过 多 而 又 先天 不 足 的 各 种 程序 设计 语言 里 。 举 例 来 说 ， 面 向 对 象 语言 的 大 部 分 
复杂 性 一 -以 及 当前 各 种 面向 对 象 语言 之 间 细 微 的 而 且 使 入 迷惑 的 差异 一 -的 核心 ， 就 是 对 类 型 之 间 通 用 弄 
操作 的 处 理 。 我 们 在 第 3 章 有 关 计算 性 对 象 的 讨论 中 完全 避免 了 这 些 问 题 。 热 悉 面 向 对 象 程序 设计 的 读者 将 
会 注意 到 ， 在 第 3 章 里 关于 局 部 状态 说 了 许多 东西 ， 但 是 却 根 本 没有 提 到 “类 ”或 者 “继承 "。 事 实 上 ， 我 们 
的 猜想 是 ， 如 果 没 有 知识 表示 和 自动 推理 工作 的 帮助 ， 这 些 问 题 是 无 法 仅仅 通过 计算 机 语言 设计 的 方式 合理 
处 理 的 。 
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(put-coercion ‘complex ‘complex complex->complex) 


a) 如 果 安 装 了 Louis 的 强制 过 程 ， 如 果 在 调用 apply-generic 时 各 参数 的 类 型 都 为 
scheme~-number 或 者 类 型 都 为 complex， 而 在 表格 中 又 找 不 到 相应 的 操作 ， 这 时 会 出 现 什 
么 情况 ? 例如 ， 假 定 我 们 定义 了 一 个 通用 型 的 求 蜗 运 算 : 

(define (exp x y) (apply-generic ’exp x y))} | 
F-fEScheme H(i BWA T-TREE, 但 其 他 程序 包 里 都 没有 : 

;; following added to Scheme-number package 
(put ‘exp ’(scheme-number scheme-number ) 
(lambda (x y) (tag (expt x y)))) ņ; using primitive expt 
如 果 对 两 个 复数 调用 exp 会 出 现 什么 情况 ? oF 

b) Louis 真 的 纠正 了 有 关 同 样 类 型 参数 的 强制 问题 吗 ? apply-9generic 还 能 像 原 来 那样 
正确 工作 吗 ? 

c) 请 修改 apply-generi < ， 使 之 不 会 试 着 去 强制 两 个 同样 类 型 的 参数 。 

练习 2.8< ”请 阐述 一 种 方法 ， 设 法 推广 apPPly-9generic， 以 便 处 理 多 个 参数 的 一 般 性 
情况 下 的 强制 问题 。 一 种 可 能 策略 是 试 着 将 所 有 参数 都 强制 到 第 一 个 参数 的 类 型 ， 而 后 试 着 
强制 到 第 二 个 参数 的 类 型 ， 并 如 此 斌 下去。 请 给 出 一 个 例子 说 明 这 种 策略 还 不 够 一 般 RR 
上 面 对 两 个 参数 的 情况 给 出 的 例子 那样 )。( 提 示 : 请 考虑 一 些 情况 ， 其 中 表格 里 某 些 合用 的 
操作 将 不 会 被 考虑 。) | | 

练习 2.83 ”假定 你 正在 设计 一 个 通用 型 的 算术 包 ， 处 理 图 2-25 所 示 的 类 型 塔 ， 包 括 整数 、 有 
理 数 、 实 数 和 复数 。 请 为 每 个 类 型 ( 除 复数 外 ) 设计 一 个 过 程 ， 它 能 将 该 类 型 的 对 和 象 提升 到 塔 中 
的 上 面 一 层 。 请 说 明 如 何 安装 一 个 通用 的 raise 操 作 ，, 使 之 能 对 各 个 类 型 工作 〈 除 复数 之 外 )。 

练习 2.84 利用 练习 2.83 的 raise 操 作 修 改 apply-generic 过 程 ， 使 它 能 通过 逐 层 提升 
的 方式 将 参数 强制 到 同样 的 类 型 ， 正 如 本 节 中 讨论 的 。 你 将 需要 安排 一 种 方式 ， 去 检查 两 个 
类 型 中 哪个 更 高 。 请 以 一 种 能 与 系统 中 其 他 部 分 ARE, 而 且 又 不 会 影响 同 塔 中 加 入 新 层次 
的 方式 完成 这 一 工作 。 

练习 2.85 APRA ST “We” Sei a dem — 种 方法 ， 就 是 使 之 在 类 型 塔 中 尽 可 
能 地 下 降 。 请 设计 一 个 过 程 drop (下 落 )， 使 它 能 在 如 练习 2.83 所 描述 的 类 型 塔 中 完成 这 一 
工作 。 这 里 的 关键 是 以 某 种 一 般 性 的 方式 ， 判 断 一 个 数据 对 象 能 否 下 降 。 举 例 来 说 ， 复 数 
1.5 +0i 至 多 可 以 下 降 到 real ， 复 数 1 +0i 至 多 可 以 下 降 到 integer ， 而 复数 2 +3i 就 根本 无 法 
下 降 。 现 在 提出 一 种 确定 一 个 对 象 能 否 下 降 的 计划 : 首先 定义 一 个 运算 Project (投影 )， 
它 将 一 个 对 象 “ 压 ”到 塔 的 下 面 一 层 。 例 如 ， 投 影 一 个 复数 就 是 丢掉 其 虚 部 。 这 样 ， 一 个 数 
能 够 向 下 落 ， 如 果 我 们 首先 project 它 而 后 将 得 到 的 结果 raise 到 开始 的 类 型 ， 最 终 得 到 的 
东西 与 开始 的 东西 相等 。 请 阐述 实现 这 一 想法 的 具体 细节 ， 并 写 出 一 个 drop 过 程 ， 使 它 可 以 
将 一 个 对 象 尽 可 能 地 下 落 。 你 将 需要 设计 各 种 各 样 的 投影 函数 ”， 并 需要 把 Br9ject 安 装 为 
系统 里 的 一 个 通用 型 操作 。 你 还 需要 使 用 一 个 通用 型 的 相等 谓词 ， 例 如 练习 2.79 所 描述 的 。 
最 后 ， 请 利用 drop 重 写 练习 2.84 的 apply-generic， 使 之 可 以 “简化 ”其 结果 。 

练习 2.86 ”假定 我 们 希望 处 理 一 些 复数 ， 它 们 的 实 部 、 虚 部 、 模 和 幅 角 都 可 以 是 常规 数 


9 实数 可 以 用 基本 过 程 Tround 投 射 到 整数 ， 它 返回 最 接近 参数 的 整数 值 。 
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值 、 有 理 数 ,或 者 我 们 希望 加 入 系统 的 任何 其 他 数值 类 型 。 请 描述 和 实现 系统 需要 做 的 各 种 
修改 ， 以 满足 这 一 需要 。 你 应 设法 将 例如 sine 和 cosine 一 类 的 运算 也 定义 为 在 常规 数 和 有 
理 数 上 的 通用 运算 。 


29.3 实例: 符号 代数 


符号 表达 式 的 操作 是 一 种 很 复杂 的 计算 过 程 ， 它 能 够 展示 出 在 设计 大 型 系统 时 常常 会 出 
现 的 许多 困难 问题 。 一 般 来 说 ， 一 个 代数 表达 式 可 以 看 成 一 种 具有 层次 结构 的 东西 ， 它 是 将 
运算 符 作用 十 -- 些 运算 对 象 而 形成 的 一 棵 树 。 我 们 可 以 从 一 集 基 本 对 象 ， 例 如 常量 和 变量 出 
发 ,通过 各 种 代数 运算 符 如 加 法 和 乘法 的 组 合 ， 构 造 起 各 种 各 样 的 代数 表达 式 。 就 像 在 其 他 
语 管 里 一 样 ， 在 这 里 也 需要 形成 各 种 抽象 ， 使 我 们 能 够 有 简单 的 方式 去 引用 复合 对 象 。 在 符 
号 代数 中 ， 与 典型 抽象 的 有 关 想 法 包括 线性 组 合 、 多 项 式 、 有 理 函数 和 三 角 函 数 等 等 。 可 以 
将 这 些 看 作 是 复合 的 “类 型 "， 它 们 在 制导 对 表达 式 的 处 理 过 程 方面 非常 有 用 ， 例如 ， 我 们 可 
以 将 表达 式 : 

x? sin (y? +1) +x cos 2y +cos (y _2y2) 


看 作 一 个 的 多 项 式 ， 其 参数 是 ?的 多 项 式 的 三 角 函 数 ， 了 而 y 的 多 项 式 的 系数 是 整数 。 

下 面 我 们 将 试 着 开发 一 个 完整 的 代数 演算 系统 。 这 类 系统 都 是 异 平 寻常 地 复杂 的 程序 ， 
包含 着 深入 的 代数 知识 和 美妙 的 算法 。 我 们 将 要 做 的 ， 只 是 考察 代数 演算 系统 中 一 个 简单 但 
却 很 重要 的 部 分 ， 多 项 式 算术 。 我 们 将 展示 在 设计 这 样 一 个 系统 时 所 面临 的 各 种 抉择 ， 以 及 
如 何 应 用 抽象 数据 和 通用 型 操作 的 思想 ， 以 利于 组 织 好 这 一 工作 项 目 。 


多 项 式 算 术 
要 设计 一 个 执行 多 项 式 算术 的 系统 ， 第 一 件 事情 就 是 确定 多 项 式 到 底 是 什么 。 多 项 式 通 
常 总 是 针对 某 些 特定 的 变量 (多项式 中 的 未 定 元 ) ELH. HTML, RMA 
的 多 项 式 限制 到 只 有 一 个 未 定 元 的 情况 ( 单 变 元 多 项 式 ) '”。 下 面 将 多 项 式 定义 为 项 的 和 式 ， 
而 每 个 项 或 者 就 是 一 个 系数 ， 或 者 是 未 定 元 的 乘 方 ， 或 者 是 一 个 系数 与 一 个 未 定 元 乘 方 的 乘 
积 。 系 数 也 定义 为 一 个 代数 表达 式 ， 但 它 不 依赖 于 这 个 多 项 式 的 未 定 元 。 例 如 
5x? +3x+7 


是 x 的 一 个 简单 多 项 式 ， 而 
(y? +1) x +(2y)x +1 


是 x 的 一 个 多项式， 而 其 参数 又 是 7 的 多 项 式 .。 

这 样 ， 我 们 就 已 经 绕 过 了 某 些 棘手 问题 。 例 如 ， 上 而 的 第 一 个 多 项 起 是 否 与 多 项 起 5y 十 
3y +7 相 同 ? 为 什么 ? 合理 的 回答 可 以 是 “是 ， 如 果 我 们 将 多 项 式 看 作 一 种 纯粹 的 数学 函数 ， 
但 又 不 是 ， 如 果 只 是 将 多 项 式 看 作 一 种 语法 形式 ”"。 第 二 个 多 项 式 在 代数 上 等 价 于 一 个 的 多 
项 式 ， 其 系数 是 x 的 多 项 式 。 我们 的 系统 将 应 认定 这 一 情况 吗 ， 或 者 不 认定 ? 进一步 说 ， 表 示 
一 个 多 项 式 的 方式 可 以 有 很 多 种 一 一 例如 ， 将 其 作为 因子 的 乘积 ， 或 者 (对 于 单 变 元 多 项 式 ，) 


20 在 另 一 方面 ， BAI PoP 项 式 的 系数 本 身 是 其 他 变 元 的 多 项 式 ， AMAT RN Sa SEER 样 充 
分 的 表达 能 力 ， 虽 然 会 引起 一 些 强制 问题 。 详 情 见 下面 的 讨论 。 
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作为 一 组 根 ， 或 者 作为 多 项 式 在 些 特定 集合 里 各 个 点 处 的 值 的 列表 ' 站 。 我 们 可 以 使 一 点 手段 
以 避免 这 些 问题 。 现 在 我 们 确定 ， 在 这 一 代数 演算 系统 里 ， 一 个 “多 项 式 ” 就 是 一 种 特殊 的 
语法 形式 ， 而 不 是 在 其 之 下 的 数学 意义 。 

现在 必须 进一步 去 考虑 怎样 做 多 项 式 算术 。 在 这 个 简单 的 系统 里 ， 我 们 将 仅仅 考虑 加 法 
乘法。 进一步 说 ， 我 们 还 强制 性 地 要 求 两 个 参与 运算 的 多 项 式 具 有 相同 的 未 定 元 。 

下 面 将 根据 我 们 已 经 熟悉 的 数据 抽象 的 一 套 方 式 ， 开 始 设计 这 个 系统 。 多 项 式 将 用 一 种 称 
为 Po1Ly 的 数据 结构 表示 ， 它 由 一 个 变量 和 一 组 项 组 成 。 我 们 假定 已 有 选择 国 数 variable 和 
term-1ist， 用 于 从 一 个 多 项 式 中 提取 相应 的 部 分 。 还 有 一 个 构造 国 数 make-poly ， 从 给 
定 变 量 和 项 表 构 造 出 一 个 多 项 式 。 一 个 变量 也 就 是 一 个 符号 ， 因 此 我 们 可 以 用 2.3.2 节 的 
same-variable? 过 程 做 变量 的 比较 。 下 面 过 程 定义 多 项 式 的 加 法 和 乘法 : 


define (add-poly pl pz) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(add-terms (term-list pl) 
(term-list p2})) 
{error "Polys not in same var -~ ADD-POLY" 
(list pl p2)))) 


(define (mul-poly pl p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable pl) 
(mul-terms (term-list pl) 
(term-list p2))) 
(error "Polys not in same var -~ MUL-POLY" 
(list pl p2)))) 


AT HE MAAS SAH BKB KARE, RER AR ERRE we. CHK 
”用 标志 polynomial， 并 将 适合 用 于 带 标志 多 项 式 的 操作 安装 到 操作 表格 里 。 我 们 将 所 有 代 
码 都 嵌入 完成 多 项 式 包 的 安装 过 程 中 ， 与 在 2.5.1 节 里 采用 的 方式 类 似 : 


(define (install-polynomial-package) 
;; internal procedures 
;; representation of poly 
(define (make-poly variable term-list) 
(cons variable term-list)) 
(define (variable p) (car p)) 
(define (term-list p) (cdr p)) 
< 过 程 same-variable? 和 variable? 取 自 2.3.2 节 > 


;; representation of terms and term lists 


< 过 程 adjoin-term ...coeff 在 下 面 定义 > 


(define (add-poly pl p2) ...) 
<add-poly 使 用 的 过 程 > 
(define (mul-poly pl p2) ...) 
<mul-poly 使 用 的 过 程 > 


2 对 于 单 变 元 多 项 式 而 言 ， 给 出 一 个 多 项 式 在 一 集 点 的 值 可 能 成 为 一 种 特别 好 的 表示 方式 。 这 将 使 多 项 式 算 术 
变 得 特别 简单 。 例 如 ， 要 得 到 两 个 以 这 种 方式 表示 的 多 项 式 之 和 ， 我 们 只 需 加 起 这 两 个 多 项 式 在 对 应 点 的 值 。 
要 将 它们 变换 到 我 们 更 熟悉 的 形式 ， 可 以 利用 拉 格 户 日 插值 公式 ， 它 说 明了 如 何 从 多 项 式 在 n+1 个 点 的 给 定 
值 构 造 出 一 个 * 阶 多 项 式 的 各 个 系数 。 
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;; interface to rest of the system 
(define (tag p) (attach-tag ‘polynomial p)) 
(put ’add ’(polynomial polynomial) 
(lambda (pl p2) (tag (add-poly pl p2)))) 
(put ’mul ’(polynomial polynomial) 
(lambda (pl p2) (tag (mul-poly pl p2)))) 
(put "make *polynomial 
{lambda (var terms) (tag (make-poly var terms)))) 
*done ) | 
多 项 式 加 法 通过 一 项 项 的 相 加 完成 ， 同 次 的 项 (BD, BA RETR RH) BAIA 
并 到 一 起 。 完 成 这 件 事 的 方式 是 建立 一 个 同 次 的 新 项 ， 其 系数 是 两 个 项 的 系数 之 和 。 仅 仅 出 
现在 一 个 求 和 多 项 式 中 的 项 就 直接 累积 到 正在 构造 的 多 项 式 里 。 | 
为 了 能 完成 对 于 项 表 的 操作 ， 我 们 假定 有 一 个 构造 函数 FEhe-empty-termlList， 它 也 
回 一 个 空 的 项 表 ， 还 有 一 个 构造 函数 adjoin-tezrm 将 一 个 新 项 加 入 一 个 项 表 里 。 我 们 还 假 
定 有 一 个 谓词 empty-termList?， 可 用 于 检查 一 个 项 表 是 否 WA, UP Sfirst-term 
提取 出 一 个 项 表 中 最 高 次 数 的 项 ， 选 择 函 数 rest-terms 述 回 除 最 高 次 项 之 外 的 其 他 项 的 表 。 
为 了 能 对 项 进行 各 种 操作 ， 我 们 假定 已 经 有 一 个 构造 国 数 make-term， 它 从 给 定 的 次 数 和 系 
数 构造 出 一 个 项 ， 选 择 函数 order 和 coeff 分 别 返 回 一 个 项 的 次 数 和 系数 。 这 些 操作 使 我 们 
可 以 将 项 和 项 表 都 看 成 数据 抽象 ， 其 具体 实现 就 可 以 另行 单独 考虑 了 。 
下 面 是 一 个 过 程 ， 它 从 两 个 需要 求 和 的 多 项 式 构造 起 一 个 项 表 “: 
(define (add-terms Ll L2) | 
(cond ((empty-termlist? Ll) L2) 
((empty-termlist? L2) L1) 
(else f 
(let ((tl (first-term Ll)) (t2 (first-term L2))) 
(cond ((> (order tl) (order t2)) 
(adjoin-term | 
tl (add-terms (rest-terms L1) L2))) 
((< (order ti) (order t2)) 
(adjoin-term 
t2 (add-terms Li (rest-terms L2)))) 
(else 
(adjoin-term 
(make-term (order tl) 
(add (coeff t1) (coeff t2))) 


(add-terms (rest-terms L1) 
{rest-terms L2))))))))) 


在 这 里 需要 注意 的 最 重要 的 地 方 是 ， 我 们 采用 了 通用 型 的 加 法 过 程 add 去 求 需要 归并 的 项 的 
系数 之 和 。 这 样 做 有 一 个 特别 有 利 的 后 果 ， 下 面 就 会 看 到 。 / 

为 了 乘 起 两 个 项 表 ， 我 们 用 第 一 个 表 中 的 每 个 项 去 乘 另 一 表 中 所 有 的 项 ， 通 过 反复 应 用 
mul-term-by-all-terms (这 个 过 程 用 一 个 给 定 的 项 去 乘 一 个 项 表 里 的 各 个 项 ) 完成 项 


122 这 一 运算 很 像 我们 在 练习 2.62 中 开发 的 有 序 union-set 运算。 事实 上 ， 如 果 我 们 将 多 项 式 看 成 根据 未 定 元 
的 次 数 排序 的 集合 ， 那 么 为 求 和 产生 项 表 的 程序 几乎 就 等 同 于 unlion-set y, 





表 的 乘法 。 这 样 得 到 的 结果 项 表 (对 于 第 一 个 表 的 每 个 项 各 有 一 个 表 ) 通过 求 和 积累 起 来 。 
乘 起 两 个 项 形成 一 个 新 项 的 方式 是 求 出 两 个 因子 的 次 数 之 和 作为 结果 项 的 次 数 ， 求 出 两 个 因 
子 的 系数 的 乘积 作为 结果 项 的 系数 : 


(define (mul-terms L1 L2) 
(if (empty-termlist? Ll) 
(the-empty-termlist) 
{add-terms (mul-term-by-all-terms (first-term L1) L2) 
(mul-terms (rest-terms Ll) L2)))) 


{define (mul-term-by-all-terms tl L) 
(if (empty-termlist? L) 
(the-empty-termlist) 
(let ((t2 (first-term L))) 
(adjoin-term 
(make-term (+ (order tl) (order t2)) 
(mul (coeff t1) (coeff t2))) 
(mul-term-by-all-terms tl (rest-terms L)))))) 

这 些 也 就 是 多 项 式 加 法 和 乘法 的 全 部 了 。 请 注意 ， 因 为 我 们 这 里 的 操作 都 是 基于 通用 型 
过 程 add 和 mul1 描 述 的 ， 所 以 这 个 多 项 式 包 将 自动 地 能 够 处 理 任何 系数 类 型 ， 只 要 它 是 这 里 的 
通用 算术 程序 包 能 够 处 理 的 。 如 果 我 们 还 把 2.5.2 节 所 讨论 的 强制 机 制 也 包括 进来 ， 那 么 我 们 
也 就 自动 地 有 了 能 够 处 理 不 同系 数 类 型 的 多 项 式 操作 的 能 力 ， 例 如 


[3x +(2+ Dx+7]| x riy +(5+3i) 


由 于 我 们 已 经 把 多 项 式 的 求 和 、 求 乘积 的 过 程 add-poly 和 mul-poly 作 为 针对 类 型 
polynomial 的 操作 ， 安 装 进 通 用 算术 系统 的 add 和 mul 操 作 里 ， 这 样 得 到 的 系统 将 能 日 动 
处 理 如 下 的 多 项 式 操 作 : 


[G+ Dx +0” +Dx+(y—D)|:[y—2)x+(y + 7)] 


能 够 完成 此 事 的 原因 是 ， 当 系统 试图 去 归并 系数 时 ， 它 将 通过 add 和 mul 进 行 分 派 。 由 于 这 时 
的 系数 本 身 也 是 多 项 式 (y 的 多 项 式 ) ， 它 们 将 通过 使 用 add~poly 和 mul-Poly 完 成 组 合 。 
这 样 就 产生 出 一 种 “数据 导向 的 递归 ” ， 举 例 来 说 ， 在 这 里 ， 对 mu1-pPoly 的 调用 中 还 会 递归 
地 调用 mulL-poly ， 以 便 去 求 系 数 的 乘积 。 如 果 系 数 的 系数 仍然 是 多 项 式 〈 在 三 个 变 元 的 多 
项 式 中 可 能 出 现 这 种 情况 )， 数 据 导 向 就 会 保证 这 一 系统 仍 能 进入 另 一 层 递归 调用 ， 并 能 这 样 
根据 被 处 理 数 据 的 结构 进入 任意 深度 的 递归 调用 ”。 

项 表 的 表示 

我 们 最 后 面临 的 工作 ， 就 是 需要 为 项 表 实现 一 种 很 好 的 表示 形式 。 从 作用 上 看 ， 一 个 项 
表 就 是 一 个 以 项 的 次 数 作 为 键 值 的 系数 集合 ， 因 此 ， 任 何 能 够 用 于 有 效 表示 集合 的 方法 〈 克 


D 为 了 使 这 些 工作 得 更 加 平滑 ， 我 们 还 需 在 这 个 通用 算术 系统 中 加 入 将 “ 数 ”强制 到 多 项 式 的 能 力 。 这 时 把 数 
看 成 是 次 数 因 而 系数 就 是 这 个 数 的 多 项 式 。 如 果 要 处 理 下 面 的 多 项 式 运算 ， 就 需要 这 种 功能 : 


x? +(y+x+5]+[x? 422-1] 


这 其 中 需要 求 出 系数 yp + | MARZ SA. 
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2.2.3 节 的 讨论 ) 都 可 以 用 于 完成 这 一 工作 。 但 在 另 一 方面 ， 我 们 所 用 的 过 程 add-terms 和 
mul-terms 都 以 顺序 方式 进行 访问 ， 按 照 从 最 高 次 项 到 最 低 次 项 的 顺序 ， 因 此 应 该 考虑 采用 
某 种 有 序 表 表 示 。 

我 们 应 该 如 何 构造 表示 项 表 的 表 结 构 呢 ? 有 一 个 需要 考虑 的 因素 是 可 能 需要 操作 的 多 项 
式 的 “密度 ”。 一 个 多 项 式 称 为 稠密 的 ， 如 果 它 大 部 分 次 数 的 项 都 具有 非 0 系数 。 如 果 一 个 多 
项 式 有 许多 系数 AWM, BARREL. Bild: 

A: x°42x*43x* —2x—5 
是 稠密 的 ， 而 
B: x'% 42x72 +1 
ABE 

对 于 稠密 多 项 式 而 言 ， 项 表 的 最 有 效 表 示 方 式 就 是 直接 采用 其 系数 的 表 。 例 如 ， 上 面 的 
多 项 式 A 可 以 很 好 地 表示 为 (1 2 0 3 -2 -5)。 在 这 种 表示 中 ， 一 个 项 的 次 数 也 就 是 从 这 
个 项 开始 的 子 表 的 长 度 减 124。 对 于 像 B 那 样 的 稀疏 多 项 式 ， 这 种 表示 将 变 得 十 分 可 怕 ， 因 为 
它 将 是 一 个 很 大 的 几乎 全 都 是 0 值 的 表 ， 其 中 零 零 落落 地 点 绥 着 几 个 非 0 项 。 对 于 稀疏 多 项 式 
有 一 种 更 合理 方式 ， 那 就 是 将 它们 表示 为 非 0 项 的 表 ， 表 中 的 每 一 项 包含 着 多 项 式 里 的 一 个 次 
数 和 对 应 于 这 个 次 数 的 系数 。 按 照 这 种 模式 ， 多 项 式 B 可 以 有 效 地 表示 为 ((100 1) (2 2) 
(0 1))。 由 于 被 操作 的 大 部 分 多 项 式 运算 都 是 稀疏 多 项 式 ， 我 们 采用 后 一 种 方式 。 现 在 假定 
项 表 被 表示 为 项 的 表 ， 按 照 从 最 高 次 到 最 低 次 的 顺序 安排 。 一 旦 我 们 做 出 了 这 一 决定 ， 为 项 
表 实 现 选择 函数 和 构造 函数 就 已 经 直截了当 了 !"25。 

(define (adjoin-term term term-list) 

(if (zero? (coeff term) ) 


term-list 
(cons term term-list))) 


(define (the-empty-termlist) ‘()) 

(define (first-term term-list) (car term-list) ) 
(define (rest-terms term-list) (cdr term-list)) 
(define (empty-termlist? term-list) (null? term-list) ) 


(define (make-term order coeff) (list order coeff)) 
(define (order term) (car term)) 
(define (coeff term) (cadr term) ) 


这 里 的 =zero? 在 练习 2.80 中 定义 〈 另 见 下面 练 习 2.87 ) 。 
多 项 式 程序 包 的 用 户 可 以 通过 下 面 过 程 创建 多 项 式 .: 


(define (make~polynomial var terms) 
( (get ’make ‘polynomial) var terms) ) 


524 在 这 些 多 项 式 的 例子 里 ， 我 们 都 假定 使 用 的 是 练习 2.78 所 提出 的 通用 算术 系统 。 这 样 ， 常 规 数值 的 系数 将 直 
接 用 数值 本 身 表 示 ， 而 不 是 表示 为 一 个 car 为 符号 scheme-number 的 对 偶 。 

125 虽然 我 们 假定 项 家 是 排序 的 ， 这 里 还 是 将 adjoin-term 简 单 地 实现 为 用 cons 在 现存 项 表 前 加 一 个 新 项 。 人 ^ 
要 能 保证 使 用 adjoin-term 的 过 程 (如 add-terms) 总 用 比 表 中 的 项 次 数 更 高 的 项 调用 它 ， 我 们 就 不 必 担 
心 会 出 问题 。 如 果 不 希 望 事先 有 这 种 保证 ， 那 么 就 可 以 采用 类 似 于 集合 的 有 序 表 表 示 中 实现 构造 函数 
adjoin-set 的 方式 (练习 2.61) 实现 adjoin~ternm, 
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练习 2.87 请 在 通用 算术 包 中 为 多 项 式 安 装 = zero?， 这 将 使 adjoin- -term 也 能 对 系数 
本 身 也 是 多 项 式 的 多 项 式 使 用 。 

练习 2.88 ”请 扩充 多 项 式 系统 ， 加 上 多 项 式 的 减法 。( 提 示 ; 你 可 能 发 现 定 义 一 个 通用 的 
求 负 操作 非常 有 用 。) 

练习 2.89 请 定义 一 些 过 程 ， 实 现 上 面 讨论 的 适宜 剩 密 多 项 式 的 项 表 表 示 ， 

练习 2.90 假定 我 们 希望 有 一 个 多 项 式 系统 ， 它 应 该 对 稠密 多 项 式 和 稀 朴 多 项 式 都 非常 有 
效 。 一 种 途径 就 是 在 我 们 的 系统 里 同时 允许 两 种 表示 形式 。 这 时 的 情况 类 似 于 2.4 节 复数 的 例 
了 于， 那里 同时 允许 采用 直角 坐标 表示 和 极 坐 标 表 示 。 为 了 完成 这 一 工作 ， 我 们 必须 区 分 不 同 
的 项 表 类 型 ， 并 将 针对 项 表 的 操作 通用 化 。 请 重新 设计 这 个 多 项 式 系 统 ， 实 现 这 种 推广 。 这 
将 是 一 项 需要 付出 很 多 努力 的 工作 ， 而 不 是 一 个 局 部 修改 。 
练习 <.91 一 个 单 变 元 多 项 式 可 以 除 以 另 一 个 多 项 式 ， 产 生出 一 个 商 式 和 一 个 余 式 。 例 
un. 
tax ， 祭 式 x=-1 

| x 一 ] | 

除法 可 以 通过 长 除 完成 。 也 就 是 说 ， 用 被 除 式 的 最 高 次 项 除 以 除 式 的 最 高 次 项 ， 得 到 商 式 的 
第 一 项 ， 而 后 用 这 个 结果 乘 以 除 式 ， 并 从 被 除 式 中 减 去 这 个 乘积 。 剩 下 的 工作 就 是 用 减 后 得 
到 的 差 作为 新 的 被 除 式 ， 以 便 产 生出 随后 的 结果 。 当 除 式 的 次 数 超过 被 除 式 的 次 数 时 结束 ， 
将 此 时 的 被 除 式 作为 余 式 。 还 有 ， 如 果 被 除 式 就 是 0 ， 那 么 就 返回 0 作为 商 和 余 式 。 

我 们 可 以 基于 add-poly 和 mul~poly 的 模型 ， 设计 出 一 个 除法 过 程 div-poly。 这 一 过 
程 首先 检查 两 个 多 项 式 是 否 具 有 相同 的 变 元 ， 如 果 是 的 话 就 剥 去 这 一 变 元 ， 将 问题 送 给 过 程 
div-ternms ， 它 执行 项 表 上 的 除法 运算 。div-poly 最 后 将 变 元 重新 附加 到 Giv-terms 返 
回 的 结果 上 。 将 aiv-terms 设 计 为 同时 计算 出 除法 的 商 式 和 余 式 是 比较 方便 的 。div- 
terms 可 以 以 两 个 表 为 参数 ， 返 回 一 个 商 式 的 表 和 一 个 余 式 的 表 。 

请 完成 下 面 GQLVv-terms 的 定义 ， 填 充 其 中 空缺 的 表达 式 ， 并 基于 它 实现 Qiv-poly。 该 
过 程 应 该 以 两 个 多 项 式 为 参数 ， 返 回 一 个 包 售 商 和 余 式 多 项 式 的 表 。 


(define (div-terms L1 L2) 
(if (empty-termlist? L1) 
(list (the-empty-termlist) (the-empty-termlist) ) 
(let ((t1 (first-term Ll)) 
(t2 (first-term L2))) 
(if (> (order t2) (order t1)) 
(list (the-empty~-termlist) L1) 
{let ((new-c (div (coeff tl) (coeff t2))) 





(new-o (- (order tl) (order £2)))) 
(let ((rest-of-result 
< 递归 地 计算 结果 的 其 余部 分 > 
) ) 
< 形成 完整 的 结 采 > | 


)))))) 


符号 代数 中 类 型 的 层次 结构 
我 们 的 多 项 式 系统 显示 出 ， 一 种 类 型 (多 项 式 ) 的 对 象 事实 上 可 以 是 一 个 复杂 的 对 象 ， 


又 以 许多 不 同类 型 的 对 象 作为 其 组 成 部 分 。 这 种 情况 并 不 会 给 定义 通用 型 操作 增加 任何 实际 
困难 。 我 们 需要 做 的 就 是 针对 这 种 复合 对 象 的 各 个 部 分 的 操作 ， 并 安装 好 适当 的 通用 型 过 程 。 
事实 上 ， 我 们 可 以 看 到 多 项 式 形成 了 一 类 “递归 数据 抽象 ”"， 因 为 多 项 式 的 某 些 部 分 本 身 也 可 
能 是 多 项 式 。 我 们 的 通用 型 操作 和 数据 导向 的 程序 设计 风格 完全 可 以 处 理 这 种 复杂 性 ， 这 里 
并 没有 多 少 困 难 ，。 

但 在 另 一 方面 ， 多 项 式 代数 也 是 这 样 的 一 个 系统 ， 其 中 的 数据 类 型 不 能 自然 地 安排 到 
个 类 型 塔 里 。 例 如 ， 在 这 里 可 能 有 x 的 多 项 式 ， 其 系数 是 y 的 多 项 式 ， 也 完全 可 能 有 y 的 多 项 式 ， 
其 系数 是 x 的 多 项 式 。 这 些 类 型 中 没有 哪个 类 型 自然 地 位 于 另 一 类 型 的 “上 面 ”， 然 而 我 们 却 
常常 需要 去 求 不 同 集合 的 成 员 之 和 。 有 几 种 方式 可 以 完成 这 件 事 情 。 一 个 可 能 性 就 是 将 一 个 
多 项 式 变换 到 另 一 个 多 项 式 的 类 型 ， 这 可 以 通过 展开 并 重新 安排 多 项 式 里 的 项 ， 使 两 个 多 项 
式 都 具有 同样 的 主 变 元 。 也 可 以 通过 对 变 元 的 排序 ， 在 其 中 强行 加 入 一 个 类 型 塔 结构 ， 并 且 
永远 把 所 有 的 多 项 式 都 变换 到 一 种 “规范 形式 ”"， 使 具有 最 高 优先 级 的 变 元 成 为 证 变 元 ， 将 优 
先 级 较 低 的 变 元 藏 在 系数 里 面 。 这 种 策略 工作 的 相当 好 ， 但 是 ， 在 做 这 种 变换 时 ， 有 可 能 毫 
无 必要 地 扩大 了 多 项 式 ,使 它 更 难 读 ， 也 可 能 操作 起 来 的 效率 更 低 。 塔 型 策略 在 这 个 领域 中 
确实 不 大 自然 ， 对 于 另 一 些 领 域 也 是 一 样 ， 如 果 在 那里 用 户 可 以 动态 地 通过 已 有 类 型 的 各 种 
组 合 形式 引进 新 类 型 。 这 样 的 例子 如 三 角 函 数 、 才 级 数 和 积分 。 

如 果 说 在 设计 大 型 代数 演算 系统 时 ， 对 于 强制 的 控制 会 变 成 一 个 很 严重 的 问题 ， 那 完全 
不 应 该 感到 奇怪 。 这 种 系统 里 的 大 部 分 复杂 性 都 牵涉 到 多 个 类 型 之 间 的 关系 。 确 实 ， 公 平地 
说 ， 我 们 到 现在 还 没有 完全 理解 强制 。 事 实 上 ， 我 们 还 没有 完全 理解 类 型 的 概念 。 但 无 论 如 
何 ， 己 知 的 东西 已 经 为 我 们 提供 了 支持 大 型 系统 设计 的 强 有 力 的 结构 化 和 模块 化 原理 。 

练习 2.92 ”通过 加 入 强制 性 的 变量 序 扩充 多 项 式 程序 包 ， 使 多 项 式 的 加 法 和 乘法 能 对 具 
有 不 同 变量 的 多 项 式 进行 。( 这 绝 不 简单 ! ) | 

扩充 练习 ， 有 理 函 数 

我 们 可 以 扩充 前 面 已 经 做 出 的 通用 算术 系统 ， 将 有 理 函 数 也 包含 进来 。 有 理 函 数 也 就 是 
“分 式 ” ， 其 分 子 和 分 母 都 是 多 项 式 Pln: 





x+1 
x -1 
这 个 系统 应 该 能 做 有 理 函 数 的 加 减 乘除 ， 并 可 以 完成 下 面 的 计算 : 
x4+1 x Xx +2x +3x41 





+ = 
X -1 x’-l xi +x%'-x-1 


(这 里 的 和 已 经 经 过 了 简化 ， 删 除了 公 因 子 。 常 规 的 “交叉 乘法 ” 得 到 的 将 是 一 个 4 次 多 项 式 
的 分 子 和 5 次 多 项 式 的 分 母 。) 

修改 前 面 的 有 理 数 程序 包 ， 使 它 能 使 用 通用 型 操作 ， 就 能 完成 我 们 希望 做 的 事情 ， 除 了 
无 法 将 分 式 化 简 到 最 简 形 式 之 外 。 

练习 2.93 ”请 修改 有 理 数 算术 包 ， 采 用 通用 型 操作 ， 但 在 其 中 改写 make-rat， 使 它 并 不 
全 图 去 将 分 式 化 简 到 最 简 形 式 。 对 下 面 两 个 多 项 式 调用 make-rational 做 出 一 个 有 理 函数 ， 
以 便 检查 你 的 系统 : 


(define pl (make-polynomial ‘x ((2 1)(0 1)))) 
(define p2 (make-polynomial ‘x ((3 1})(0 1)))) 


25 PARR RR 和 上 


{define rf (make-rational p2 pl)) 
现在 用 add 将 rf 与 它 自己 相 加 。 你 会 看 到 这 个 加 法 过 程 不 能 将 分 式 化 简 到 最 简 形式 .。 


我 们 可 以 用 与 前 面 针对 整数 工作 时 的 同样 想法 ， 将 分 子 和 分 母 都 是 多 项 式 的 分 式 简化 到 
最 简 形式 ， 修改 make-rat ， 将 分 子 和 分 母 都 除 以 它们 的 最 大 公 因 子 。 最 大 公 因 子 ”的 概 念 
对 于 多 项 式 也 是 有 意义 的 。 事 实 上 ， 我 们 也 可 以 用 与 整数 的 欧 几 里 得 算法 本 质 上 相同 的 算法 
求 出 两 个 多 项 式 的 GCD (最 大 公 因 子 ) “。 对 于 整数 的 算法 是 : 
(define (gcd a b) 
(if (= b 0) 
(gcd b (remainder a b)))) 


利用 它 ， 再 做 一 点 非常 明显 的 修改 ， 就 可 以 定义 出 一 个 对 项 表 工 作 的 GCD 操 作 : 


(define (gcd-terms a D) 
(if (empty-termlist? b) 
a 
(gcd-terms b (remainder-terms a b)))) 


其 中 的 remainder-terms 提 取出 由 项 表 除 法 操作 div-terms 返 回 的 表 里 的 余 式 成 分 ， 该 操 
作 在 练习 2.91 中 实现 。 

练习 2.94 ”利用 div-terms 实现 过 程 emainder-terms ， 并 用 它 定 义 出 上 面 的 gcd- 
terms。 现 在 写 出 一 个 过 程 9cd-poly ， 它 能 计算 出 两 个 多 项 式 的 多 项 式 GCD (如 果 两 个 多 
项 式 的 变 元 不 同 ， 这 个 过 程 应 该 报告 错误 ) 。 在 系统 中 安装 通用 型 操作 greatest-common- 
divisor ， 使 得 遇 到 多 项 式 时 ， 它 能 归 约 到 gcd-poly ， 对 于 常规 的 数 能 归 约 到 和 常规 网 gcd， 
作为 试验 ， 请 做 : | 

(define pl (make-polynomial x ((4 1) (3 -1) (2 -2) (1 2)))) 

(define p2 (make-polynomial x ((3 1) (1 -1)))) 


(greatest-common-divisor pl p2) 


FFF TREE AWA 。 
练习 2.95 请 定义 多 项 式 P!1、 PoFiPs: 
Pi: x -2x+4+1 
P,: 11x°47 
P,;: 13x+5 


现在 定义 Qi 为 P1 和 P; 的 乘积 ， 定 义 Q; 为 P1 和 P3 的 乘积 ， 而 后 用 9reatest-common- 
divisor (练习 2.94) 求 出 QO! 和 0Q; 的 GCD 。 请 注意 得 到 的 回答 与 P1 并 不 一 样 。 这 个 例子 将 非 
整数 操作 引进 了 计算 过 程 ， 从 而 引起 了 GCD 算 法 的 困难 2 。 要 理解 这 里 发 生 了 什么 ， 请 试 着 


126 按照 代数 的 说 法 ， 欧 几 里 得 算法 对 于 多 项 式 也 可 以 使 用 的 事实 说 明 多 项 式 构成 了 一 种 代数 论 域 ， 称 为 欧 几 里 
得 环 ， 一 个 欧 几 里 得 环 是 一 种 论 域 ， 它 允许 加 、 减 和 可 交换 乘 ， 再 加 上 一 种 方式 为 环 中 每 个 元 琳 ' 赋 以 一 个 
下 整数 的 “度量 ”m(x)， 其 性 质 是 ， 对 任何 非 0 的 x 和 y 都 有 m(xy) >m(x)， 而 且 对 于 任何 给 定 的 :和 y， 存 在 一 
个 使 得 y= gx +r， 这 里 加 =0 或 者 m(r) <m(x)。 从 一 种 抽象 的 观点 看 ， 这 些 也 就 是 证 明 欧 几 里 得 算法 能 够 使 
用 所 需要 的 所 有 性 质 。 对 于 整数 论 域 而 言 ， 一 个 整数 的 度量 m 就 是 这 个 整数 的 绝对 值 。 对 多 项 式 论 域 ， 这 一 
度量 就 是 多 项 式 的 次 数 。 

27 E% (MIT Scheme 的 实现 中 ， 这 将 产生 一 个 多 项 式 ， 它 确实 是 C, 和 @: 的 因子 ， 但 却 有 着 有 理 数 系数 。 许多 
其 他 Scheme 系统 中 的 整数 除法 可 以 产生 有 限 精度 的 十 进 制 数 ， 这 时 可 能 就 无 法 得 到 合法 的 因 寺 了 。 


M6 Hi IE 


手工 追踪 gcd-terms 在 计算 GCD 或 者 做 除法 时 的 情况 。 


如 朱 我 们 对 于 GCD 算法 采用 下 面 的 修改 ， 就 可 以 解决 练习 2.95 揭 示 出 的 问题 (这 只 能 对 
整数 系数 的 多 项 式 使 用 ) 。 在 GCD 计 算 中 执行 任何 多 项 式 除 法 之 前 ， 我 们 先 将 被 除 式 乘 以 一 个 
整数 的 常数 因子 ， 选 择 的 方式 是 保证 在 除 的 过 程 中 不 出 现 分 数 。 这 样 得 到 的 回答 将 比 实际 的 
GCD 多 出 一 个 整 的 常数 因子 ， 但 它 不 会 在 将 有 理 函 数 化 简 到 最 税 形 式 的 过 程 中 造成 任何 问题 。 
由 于 将 用 这 个 GCD 去 除 分 子 和 分 母 ， 所 以 这 个 常数 因子 会 被 消除 掉 。 

说 得 更 精确 些 ， 如 果 P 和 Q 都 是 多 项 式 ， 令 O01 是 P 的 次 数 (PP 的 最 高 次 项 的 次 数 )， 令 0; 是 
QQ 的 次 数 ， 令 c 是 Q 的 首 项 系数 。 可 以 证 明 ， 如 果 我 们 给 P 乘 上 一 个 整数 化 因子 c' + ， 得 到 
的 多 项 式 用 div-terms 算 法 除 以 Q@ 将 不 会 引进 任何 分 数 。 将 被 除 式 乘 上 这 样 的 第 数 后 除 以 除 
式 ， 这 种 操作 在 其 些 地 方 称 为 忆 对 于 @ 的 伪 除 ， 这 样 除 后 得 到 的 余 式 也 外 称 为 伪 余 。 

练习 2.96 

a) 请 实现 过 程 pseudoremaindezr-~-terms ， 它 就 像 是 zemainaer-terms ， 但 是 像 上 
面 所 描述 的 那样 ， 在 调用 daiv-terms 之 前 ， 先 将 被 除 式 匀 了 整数 化 因子 。 请 修改 gcda- 
terms 使 之 能 使 用 pseudoremainder-terms， 并 检验 现在 9reatest-common- 
divisor 能 否 对 练习 2.95 的 例子 产生 出 一 个 整 系数 的 答案 。 | 

b) 现在 的 GCD 保证 能 得 到 整 系数 ， 但 它们 将 比 户 的 系数 大 ， 请 修改 gcd-terms 使 它 能 从 
答案 的 所 有 系数 中 删除 公 因子 ， 方 法 是 将 这 些 系 数 都 除 以 它们 的 (整数 ) 最 大 公约 数 。 

至 此 我 们 已 经 弄 清 了 如 何 将 一 个 有 理 函 数 化 简 到 最 简 形 式 : 

* 用 了 到 自 练 习 2.96 的 9cd-terms 版 本 计算 出 分 子 和 分 母 的 GCD， 

* 在 你 得 到 了 这 个 GCD 后 ， 在 用 GCD 去 除 分 子 和 分 母 之 前 ， 先 将 它们 都 乘 以 同一 个 整数 

化 因子 ， 以 使 除 以 这 个 GCD 不 会 引进 任何 非 整 数 系数 。 作 为 这 个 因子 ， 你 可 以 使 用 得 到 
的 GCD 的 首 项 系数 的 1 +O, -—Owk Fe. HHO. RIX FOCDNRKR, OT FSD NK 
数 中 大 的 那 一 个 。 这 将 保证 用 这 个 GCD 去 除 分 子 和 分 母 不 会 引进 任何 分 数 。 

。 这 一 操作 得 到 的 结果 将 是 具有 整 系 数 的 分 子 和 分 母 。 它 们 的 系数 通常 会 由 于 整数 化 因子 

而 变 得 非常 大 。 所 以 最 后 一 步 是 去 除 这 个 多 余 的 因子 ， 为 此 需要 首先 计算 出 分 子 和 分 母 
中 所 有 系数 的 (整数 ) 最 大 公约 数 ， 而 后 除去 这 个 公约 数 。 

练习 2.97 

a) 请 将 这 一 算法 实现 为 过 程 Feduce-terms， 它 以 两 个 项 表 n 和 G 为 参数， 返回 一 个 包含 
nn 和 dd 的 表 ， 它 们 分 别 是 由 n 和 d 通 过 上 面 描述 的 算法 简化 而 得 到 的 最 简 形 式 。 另 请 写 出 一 个 
与 adada-poly 类 似 的 过 程 educe-poly，, 它 检查 两 个 多 项 式 是 否 具 有 同样 变 元 。 MARE AT, 
reduce-polLy 就 判 去 其 中 变 元 ， 并 将 问题 交 给 reduce-terms ， 最 后 为 Teduce-terms 返 
回 的 表 里 的 两 个 项 表 重 新 附加 上 变 元 。 

b) 请 定义 一 个 类 似 于 reduce-terms 的 过 程 ， 它 完成 的 工作 就 像 是 make-Iat 对 整数 做 
的 事情 : 

(define {reduce-integers n d) 


(let ((g (ged n d))) 
(list (/ n g) (/ @ g)))) 


再 将 reduce 定 义 为 一 个 通用 型 操作 ， 它 调用 apply-generic 完 成 到 reduce-poly (对 于 
polynomial% ) 或 者 到 reduce-integers (对 scheme-number 参数) 的 分 派 。 你 可 
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分 子 和 分 母 ， 做 出 有 理 数 之 前 也 调用 reduce。 这 一 系统 现在 就 能 处 理 整 数 或 者 多 项 式 的 有 理 
表达 式 了 。 为 测试 你 的 程序 ， 请 首先 试验 下 面 的 扩充 练习 : 

(define pl (make-polynomial ‘x ((1 1)(0 1)))) 

(define p2 (make-polynomial °x ((3 1)(0 -1)))) 

(define p3 (make-polynomial x ((1 1)))) 

(define p4 (make-polynomial ‘x ‘((2 1)(0 -1)))) 


(define rfl (make-rational pl p2)) 
(define rf2 (make-rational p3 p4)) 


{add rfl rf2) 
看 看 能 否 得 到 正确 结 果 ， 结 果 是 否 正 确 地 化 简 为 最 向 形式 。 


GCD 计 算是 所 有 需要 完成 有 理 函 数 操作 的 系统 的 核心 。 上 面 所 使 用 的 算法 虽然 在 数学 上 
直截了当 ， 但 却 异 常 低 效 。 低 效 的 部 分 原因 在 于 大 量 的 除法 操作 ， 部 分 在 于 由 伪 除 产生 的 巨 
大 的 中 间 系 数 。 在 开发 代数 演算 系统 的 领域 中 ， 一 个 很 活跃 问题 就 是 设计 计算 多 项 式 GCD 的 
更 好 算法 ”。 


528 一 个 特别 高 效 而 优美 的 计算 多 项 式 GCD 的 方法 由 Richard Zippel RHA (1979)。 这 是 一 个 概率 算法 ， 就 像 我 们 
在 第 1 章 讨论 过 的 素数 快速 检查 算法 。Zippel 的 书 (1993) 里 讨论 了 这 个 算法 ， 还 介绍 了 计算 多 项 式 GCD 的 
其 他 一 些 方 法 。 . 


第 3 章 模块 化 、 对 象 和 状态 


gp 使 在 变化 中 ， 它 也 丝毫 未 变 。 
—— ği R IL FEF ( Heraclitus ) 
变 得 越 多 ， 它 就 越 是 原来 的 样子 。 | 
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前 面 两 章 介 绍 了 组 成 程序 的 各 种 基本 元 素 ， 我 们 看 到 了 如 何 把 基本 过 程 和 基本 数据 组 合 
起 来 ， 构 造 出 复合 的 实体 ， 也 从 中 认识 到 ， 在 克服 大 型 系统 的 复杂 性 的 问题 上 ， 抽 象 起 着 至 
关 重要 的 作用 。 但 是 对 于 设计 程序 而 言 ， 这 些 手 段 还 不 够 用 ， 有 效 的 程序 综合 还 需要 一 些 组 
织 原 则 ， 它 们 应 能 指导 我 们 系统 化 地 完成 系统 的 整体 设计 。 特 别 是 需要 一 些 能 够 帮助 我 们 构 
造 起 模块 化 的 大 型 系统 的 策略 ， 也 就 是 说 ， 使 这 些 系统 能 够 “自然 地 ” RS) A HE A AR 
力 的 部 分 ， 使 这 些 部 分 可 以 分 别 进行 开发 和 维护 。 

有 一 种 非常 强 有 力 的 设计 策略 ， 特 别 适合 用 于 构造 那 类 模拟 真实 物理 系统 的 程序 ， 那 就 
是 基于 被 模拟 系统 的 结构 去 设计 程序 的 结构 。 对 于 有 关 的 物理 系统 里 的 每 个 对 象 ， 我 们 构造 
起 一 个 与 之 对 应 的 计算 对 象 ， 对 该 系统 里 的 每 种 活动 ， 我 们 在 自己 的 计算 系统 里 定义 一 种 符 
号 操作 。 采 用 这 一 策略 时 的 希望 是 ， 在 需要 针对 系统 中 的 新 对 象 或 者 新 活动 扩充 对 应 的 计算 
模型 时 ， 我 们 能 够 不 必 对 程序 做 全 面 的 修改 ， 而 只 需要 加 入 与 这 些 对 象 或 者 动作 相对 应 的 新 
的 符号 对 象 。 和 条 我们 在 系统 站 和 R 方 面 做 得 很 成 功 ， 那么 在 需要 添加 新 特征 或 者 排除 旧 东 
西里 的 错误 时 ， 就 只 需 在 系统 里 的 一 些小 局 部 中 工作 。 

AH. TRAE LTR IRIN AD 受到 我 们 对 于 被 模拟 系统 的 认识 的 支配 。 
在 这 一 章 里 ， 我 们 要 研究 两 种 特点 很 鲜明 的 组 织 策略 ， 它 们 源 自 对 于 系统 结构 的 两 种 非常 不 
同 的 “世界 观 *。 第 一 种 策略 将 注意 力 集 中 在 对 象 上， 将 一 个 大 型 系统 看 成 一 大 批 对 象 ， 它 们 
的 行为 可 能 随 着 时 间 的 进展 而 不 断 变化 。 另 一 种 组 织 策略 将 注意 力 集中 在 流 过 系统 的 信息 流 
上 ， 非 常 像 电子 工程 师 观察 一 个 信号 处 理 系 统 。 

基于 对 象 的 次 径 和 基于 流 处 理 的 途径 ， 都 对 程序 设计 提出 了 具有 重要 意义 的 语言 要 求 。 
对 于 对 象 途径 而 言 ， 我 们 必须 关注 计算 对 象 可 以 怎样 变化 而 又 同时 保持 其 标识 。 这 将 迫使 我 
们 抛弃 老 的 计算 的 代 换 模型 ( 见 1.1.$ 节 )， 转 向 更 机 械 式 的 ， 理 论 上 也 更 不 容易 把 握 的 计算 的 
环境 模型 。 在 处 理 对 象 、 变 化 和 标识 时 ， 各 种 困难 的 基本 根源 在 于 我 们 需要 在 这 一 计算 模型 
中 与 时 间 搏 斗 。 如 果 人 允许 程序 并 发 执行 的 可 能 性 ， 事 情 就 会 变 得 更 困难 许多 。 流 方式 特别 能 
够 用 于 松 解 在 我 们 的 模型 中 对 时 间 的 模拟 与 计算 机 求 值 过 程 中 的 各 种 事件 发 生 的 顺序 。 我 们 
将 通过 一 种 称 为 延 时 来 值 的 技术 做 到 这 一 点 。 


3.1 赋值 和 局 部 状态 
我 们 关于 世界 的 常规 观点 之 一 ， 就 是 将 它 看 作 权 集 在 一 起 的 许多 独立 对 象 ， 每 个 对 象 
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都 有 自己 的 随 着 时 间 变 化 的 状态 。 所 谓 一 个 对 象 “ 有 状态 ”， 也 就 是 说 它 的 行为 受到 它 的 历 
史 的 影响 。 例 如 一 个 银行 账户 就 具有 状态 ， 对 问题 “我 能 取出 100 元 钱 吗 ? ”的 回答 依赖 于 
它 的 存 和 信和 支取 的 交易 历史 。 我 们 可 以 用 一 个 或 几 个 状态 变量 刻画 一 个 对 象 的 状态 ， 在 它 
们 之 中 维持 着 有 关 这 一 对 象 的 历史 ， 即 能 够 确定 该 对 象 当前 行为 的 充分 的 信息 。 在 一 个 简 
单 的 银行 系统 里 ， 我 们 可 以 用 当前 余额 刻画 一 个 账户 的 状态 ， 而 不 必 记 住 这 个 账户 的 全 部 
交易 历史 。 

在 一 个 由 许多 对 象 组 成 的 系统 里 ， 其 中 的 这 些 对 象 极 少 会 是 完全 独立 的 。 每 个 对 象 都 可 
能 通过 交互 作用 ， 影 响 其 他 对 象 的 状态 ， 所 谓 交 互 就 是 建立 起 一 个 对 象 的 状态 变量 与 其 他 对 
象 的 状态 变量 之 间 的 联系 。 确 实 ， 如 果 一 个 系统 中 的 状态 变量 可 以 分 组 ， 形 成 一 些 内 部 紧密 
结合 的 子 系统 ， 每 个 子 系统 与 其 他 子 系统 之 间 只 存在 松散 联系 ， 此 时 将 这 个 系统 看 作 是 由 一 
些 独立 对 象 组 成 的 观点 就 会 特别 有 用 。 

对 于 一 个 系统 的 这 种 观点 ， 有 可 能 成 为 组 织 这 一 系统 的 计算 模型 的 有 力 框架 。 要 使 这 样 
的 一 个 模型 成 为 模块 化 的 ， 就 要 求 它 能 分 解 为 一 批 计 算 对 象 ， 使 它们 能 够 模拟 系统 里 的 实际 
对 象 。 每 一 个 计算 对 象 必须 有 它 自 己 的 一 些 局 部 状态 变量， 用 于 描述 实际 对 象 的 状态 HF 
被 模拟 系统 里 的 对 象 的 状态 是 随 着 时 间 变 化 的 ， 与 它们 相对 应 的 计算 对 象 的 状态 也 必须 变化 。 
如 果 我 们 确定 了 要 通过 计算 机 里 的 时 间 顺 序 去 模拟 实际 系统 里 时 间 的 流逝 ， 那 么 我 们 就 必须 
构造 起 一 些 计 算 对 象 ， 使 它们 的 行为 随 着 程序 的 运行 而 改变 。 特 别 是 ， 如 果 我 们 希望 通过 程 
序 设计 语言 里 常规 的 符号 名 字 去 模拟 状态 变量 ， 那 么 语言 里 就 必须 提供 一 个 赋值 运算 符 ， 使 
我 们 能 用 它 去 改变 与 一 个 名 字 相 关联 的 值 。 | | 


3.1.1 局 部 状态 变量 


为 了 说 清楚 这 里 所 说 的 让 一 个 计算 对 象 具 有 随 着 时 间 变 化 的 状态 的 意思 ， 现 在 让 我 们 来 
对 从 一 个 银行 账户 支取 现金 的 情况 做 一 个 模拟 。 我 们 将 用 一 个 过 程 withdraw 完 成 此 事 ， 它 
有 一 个 参数 amount 表 示 支 取 的 现金 量 。 如 果 对 应 于 给 定 的 支取 额 ， 在 相应 的 账户 里 六 有 足够 
的 余额 ， 那 么 withdraw 就 返回 支取 之 后 账户 里 剩余 的 款额 ， 否 则 withdraw 将 返回 消息 
Insufficient funds (金额 不 足 )。 举 例 说 , 假定 开始 时 账户 里 有 100 元 钱 ， 在 不 断 使 用 ， 
withdraw 的 过 程 中 我 们 可 能 得 到 下 面 的 响应 序列 : 


(withdraw 25) 
75 


(withdraw 25) 
50 


(withdraw 60) 
“Insufficient funds" 


(withdraw 15) 

35 
在 这 里 可 以 看 到 表达 式 (withdraw 25) 求 值 了 两 次 ， 但 它 产 生 的 值 却 不 同 。 这 是 过 程 的 
一 种 新 的 行为 方式 。 到 现在 为 止 ， 我 们 看 到 的 所 有 过 程 都 可 以 看 作 一 些 可 计算 的 数学 函数 的 
描述 ， 对 一 个 过 程 的 调用 将 计算 出 相应 函数 作用 于 给 定 参数 应 得 到 的 值 ， 用 同样 的 实际 参数 
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两 次 调用 同一 个 过 程 ， 总 会 产生 出 相同 的 结果 “。 

为 了 实现 dwithdray. 我 们 可 以 用 一 个 变量 balance 表 示 账 户 里 的 现 爹 余额 并 将 
withdraw 定 义 为 一 个 访问 balance 的 过 程 。 过 程 withdaraw 检 查 是 否 balance 的 值 至 少 如 
amount 所 需 的 那么 多 ， 如 果 是 ，withadraw 了 办 从 balance 里 减 去 amount 并 返回 balance 
的 新 值 ; 否则 withdraw 就 返回 消息 Insufficient funds 。 下 面 是 balance 和 
withadaraw 的 定义 : 

(define balance 100} 


(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds") ) 


减少 balance 的 工作 由 下 面 表达 式 完 成 : 


(set! balance (- balance amount) ) 


其 中 使 用 了 特殊 形式 set! ， 其 语法 是 : 

(set! <name> <new-value>) 
这 里 的 <name> 应 是 一 个 符号 ， <new-value> HAE (#IAK, set! 将 修改 <name>， 使 它 的 值 变 
成 求 值 <new-value> 得 到 的 结果 。 在 上 面 例子 里 ， 我 们 改变 了 balance 的 值 RE 的 新 值 等 于 
从 baLance 的 原 有 值 中 减 去 amount 后 的 结果 。 

在 过 程 withdraw 里 还 使 用 了 begin 特 殊 形式 ， 用 于 描述 对 两 个 表达 式 的 求 值 ， 在 if 的 
检测 为 真 时 首先 减少 balance 的 值 ， 最 后 又 返回 balance 的 值 。 一 般 而 言 ， 对 下 面 表达 式 的 
求 值 : 


{begin <exp,> <expz> ... <exp,>) 
15S BRAK <exp > Fll<exp.> HRM FERIA, Bei 2K Kepe WE 又 将 作为 整个 begin 形 
式 的 值 返回 ”。 


虽然 Wwithdraw 能 像 我 们 期 望 的 那样 工作 ， 变 量 balance 却 表现 出 一 个 问题 。 按 照 上 面 
的 描述 ，balance 是 定义 在 全 局 环境 里 的 一 个 名 字 ， 因 此 完全 可 以 自由 地 被 任何 过 程 检查 或 
者 修改 。 如 果 我 们 能 将 balance 做 成 为 withdraw 内 部 的 东西 ， 情 况 就 会 好 得 多 ， 因 为 这 将 
使 withdraw 成 为 唯一 能 直接 访问 balance 的 过 程 ， 任 何其 他 过 程 都 只 能 间接 地 (通过 对 
withdraw 的 调用 ) 访问 balance。 这 样 才 能 更 准确 地 模拟 有 关 的 概念 : balance 古 一 个 公 
由 withdraw 使 用 的 局 部 状态 变量 ， 用 于 保存 账户 状态 的 变化 轨迹 。 


9 实际 上 这 话 并 不 完全 对 。 一 个 例外 是 1.2.6 节 的 随机 数 生 成 器 。 另 一 个 例外 涉及 到 我 们 在 2.4.3 节 引进 的 操作 / 
类 型 表格 ， 其 中 用 同样 参数 两 次 调用 get 得 到 的 值 依赖 于 其 间 对 put 的 调用 。 当 然 ， 在 另 一 方面 ， 在 没有 介 
绍 赋值 之 前 ， 我 们 将 无 法 自己 创建 起 这 种 过 在。 

30 set 1 表达 式 的 值 由 具体 实现 确定 。 通 常 只 应 该 利用 set! 的 影响 而 不 用 它 的 值 。 名 字 set! 也 反应 了 Scheme 
所 用 的 一 种 命名 约定 :改变 变量 值 (或 者 改变 数据 结构 ， 在 3.3 节 中 将 会 看 到 ) 的 操作 都 被 给 了 一 个 以 惊叹 号 
结尾 的 名字。 这 类 似 于 用 以 问号 结尾 的 名 字 表 示 谓 词 的 习 怪 。 

31 我 们 早已 在 程序 里 使 用 过 begin， 因 为 Scheme 里 的 过 程 体 本 身 就 可 以 是 表达 式 序列 。 还 有 ， 在 cond 表 达 式 
里 每 个 子 句 中 的 <consequent> 部 分 不 仅 可 以 是 一 个 表达 式 ， 也 可 以 是 表达 式 的 序列 。 
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我 们 可 以 通过 下 面 方式 重 写 出 withdraw， 使 Dalance 成 为 它 内 部 的 东西 : 


(define new-withdraw 
(let ((balance 100)) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ))) 


这 里 的 做 法 是 用 let 创 建 起 一 个 包含 局 部 变量 balance 的 环境 ， 并 使 它 约束 到 初始 值 100。 在 
这 个 局 部 环境 里 ， 我 们 用 lambda 创建 了 一 个 过 程 ， 它 以 amount 作 为 一 个 参数 ， 其 行为 就 像 
是 前 面 Withdraw 的 过 程 。 通 过 对 表达 式 的 求 值 结果 返回 的 过 程 就 是 new-withdraw， 它 的 
行为 方式 就 像 是 withdraw ,但 其 中 的 变量 却 是 任何 其 他 过 程 都 不 能 访问 的 “。 

将 set ! 与 局 部 变量 相 结合 ， 形 成 了 一 种 具有 一 般 性 的 程序 设计 技术 ， 我 们 将 一 直 使 用 这 
种 技术 去 构造 带 有 局 部 状态 的 计算 对 象 。 但 是 ， 采用 这 一 技术 也 引起 了 一 个 严重 的 问题 : 当 
我 们 最 早 介 绍 过 程 概念 时 ， 也 同时 介绍 了 求 值 的 代 换 模型 ( 见 1.1.5 节 )， 用 它 为 过 程 调 用 的 意 
义 提供 一 种 解释 。 那 时 我 们 说 ， 应 用 一 个 过 程 应 该 被 解释 为 ， 在 将 过 程 的 形式 参数 用 对 应 的 
值 取代 之 后 求 值 这 一 过 程 的 体 。 现 在 就 出 现 新 的 麻烦 : 一 旦 在 语言 里 引进 了 赋值 ， 代 换 就 不 
再 适合 作为 过 程 应 用 的 模型 了 (我 们 将 在 3.1.3 节 看 到 其 中 的 原因 )。 作 为 这 种 情况 的 一 个 结 朱 ， 
我 们 现在 还 没有 办 法 在 技术 上 理解 为 什么 过 程 new-withdraw 会 有 上 面 所 说 的 行为 方式 。 为 
了 真正 理解 像 npew-withdraw 这 样 的 过 程 ， 我 们 需要 为 过 程 应 用 开发 一 个 新 模型 。 这 一 异型 
将 在 3.2 节 里 介绍 ， 那 里 还 包括 对 set! 和 局 部 变量 的 解释 。 现 在 我 们 要 首先 检查 new-~ 
withdaraw 所 提出 的 问题 的 几 种 变形 。 | 

下 面 过 程 nake-withdaraw 能 创建 出 一 种 “ 提 款 处 理 器 ” 。make-withdraw 的 形式 参数 
balance 描 述 了 有 关 账 户 的 初始 余额 值 ”。 


(define (make-withdraw balance) 
(lambda (amount) | 
{if (>= balance amount) 
(begin (set! balance (~ balance amount) ) 
balance) 
"Insufficient funds"))) 


下 面 用 make-withdraw 创 建 了 两 个 对 象 : 


(define W1 (make-withdraw 100)) 
(define W2 (make-withdraw 100) ) 


(w1 50) 
50 


(W2 70) 
30 


32 按照 程序 设计 语言 的 行 话 ， 变 量 balance 被 称 为 是 封装 在 new~withdraw 过 程 里 面 。 封 装 也 反应 了 通常 所 
谓 隐 藏 原理 的 一 般 性 系统 设计 原则 : 通过 将 系统 中 不 同 的 部 分 保护 起 来 ， 也 就 是 说 ， 只 为 系统 中 那些 “必须 
知道 ”的 部 分 提供 信息 访问 ， 这 样 就 可 以 使 系统 更 模块 化 ， 更 强健 。 

3 与 上 面 new-withdraw 的 情况 不 同 ， 我 们 不 必 在 这 里 用 let 将 balance 做 成 局 部 变量 ， 因 为 形式 参数 本 映 
就 是 局 部 的 。 在 3.2 节 讨论 了 求 值 的 环境 模型 之 后 ， 这 些 就 会 更 清楚 了 ( 另 见 练 3.10), 
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(W2 40) 
"Insufficient funds" 


(W1 40) 
10 
我 们 本 以 看 到 ，W1 和 W2 是 相互 完全 独立 的 对 象 ， 每 一 个 都 有 自己 的 局 部 状态 变量 balance ， 
从 一 个 对 象 提 款 与 另 一 个 毫 无 藉 系 。. 
我 们 还 可 以 创建 出 除了 提 坎 还 能 够 存 人 款项 的 对 象 ， 这 样 就 可 以 表示 简单 的 银行 账 尸 了。 
下 面 是 一 个 过 程 ， 它 返回 一 个 具有 给 定 初 始 余额 的 “银行 账户 对 象 : 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
` (set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
( (eq? m ’deposit) deposit) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


对 于 make-account 的 每 次 调用 将 设置 好 一 个 带 有 局 部 状态 变量 balance 的 环境 ， 在 这 个 环 
境 里 ，make-account 定 义 了 能 够 访问 balance 的 过 程 deposit 和 和 withdraw,， 另外 还 有 
一 个 过 程 aispatch ， 它 以 一 个 “消息 ”作为 输入 ， 返 回 这 两 个 局 部 过 程 之 一 。 过 和 在 
dispatch 本 身 将 被 返回 ， 作 为 表示 有 关 银 行 账户 对 象 的 值 。 这 正好 就 是 我 们 在 2.4.3 市 已 经 
看 到 过 的 程序 设计 的 消息 传递 风格 ， 当 然 ， 这 里 将 它 与 修改 局 部 变量 的 功能 一 起 使 用 。 

过 程 make-account 可 以 像 下 面 这 样 使 用 : 

(define acc (make-account 100)) 

((acc withdraw) 50) 

50 


((acc withdraw) 60) 
"Insufficient funds" 


{(acc ’deposit) 40) 
90 


((acc ‘withdraw) 60) 
30 


对 acc 的 每 次 调用 将 返回 局 部 定义 的 deposit 或 者 withdraw 过 程 ， 这 个 过 程 随后 被 应 用 于 
给 定 的 amount 。 就 像 nake-withdraw 一 样 ， make-~account 的 另 一 次 调用 


(define acc2 (make-account 100)) 


将 产生 出 另 一 个 完全 独立 的 账户 对 象 ， 维 持 着 它 自 己 的 局 部 balance. 
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练习 3.1 一 个 累加 器 是 一 个 过 程 ， 有 反复 用 数值 参数 调用 它 ， 就 会 使 它 的 各 个 参数 累加 到 
一 个 和 数 中 。 每 次 调用 时 累加 器 将 返回 当前 的 累加 和 。 请 写 出 一 个 生成 款 加 绢 的 过 程 mnake- 
acCcumu1lLator ， 它 所 生成 的 每 个 累加 器 维持 着 一 个 独立 的 和 。 送 给 make~accumulator 的 
给 入 描述 了 有 关 和 数 的 初始 值 ， 例 如 :， 

(define A (make-accumulator 5)) 

(A 10) 

15 


(A 10) 
25 


练习 3.2 ”在 对 应 用 程序 做 软件 测试 时 ， 能 够 统计 出 在 计算 过 程 中 某 个 给 定 过 程 被 调用 的 
次 数 常 常 很 有 用 处 。 请 写 出 一 个 过 程 make-monitored， 它 以 一 个 过 程 f 作 为 输入 ， 访 过程 
本 身 有 一 个 输入 。make-monitored 返 回 的 结果 是 第 三 个 过 程 ， 比 如 说 mf ， 它 将 用 一 个 内 
部 计数 器 维持 着 自己 被 调用 的 次 数 。 如 果 mfE 的 输入 是 特殊 符号 how-many-caldls2 那么 mt 
就 返回 内 部 计数 器 的 值 ， 如 果 输 入 是 特殊 符号 reset-count， 那 么 mt 就 将 计数 器 重新 设置 
为 0 ， 对 于 任何 其 他 输入 ，mE 将 返回 过 程 夺 应 用 于 这 一 输入 的 结果 ， 并 将 内 部 计数 恬 加 一 。 例 
如 ， 我 们 可 能 以 下 面 方式 做 出 过 程 sSqrt 的 一 个 受 监 视 的 版 本 : 

(define s (make-monitored SGrt ) ) 

(s 100) 

10 


(s ‘how-many~calls?) 
1 


练习 3.3 ”请 修改 make-account 过 程 ， 使 它 能 创建 一 种 带 密码 保护 的 账户 。 也 就 是 说 ， 
应 该 让 make~account 以 一 个 符号 作为 附加 的 参数 ， 就 像 : 

(define acc (make-account 100 ‘secret-password)) 
这 样 产生 的 账户 对 象 在 接 到 一 个 请 求 了 时 ， 只 有 同时 提供 了 账户 创建 时 给 定 的 密码 ， 它 才 处 理 
这 一 请 求 ， 否 则 就 发 出 一 个 抱怨 信息 : 

((acc ’secret-password “witharaw) 40) 

60 


( (acc ’some-other-password ‘deposit) 50) 
"Incorrect password” 


练习 3.4 ”请 修改 练习 3.3 中 的 make~account 过 程 ， 加 上 另 一 个 局 部 状态 变量 ， 使 得 如 
果 一 个 账户 被 用 不 正确 的 密码 连续 访问 了 7 次 ， 它 就 将 去 调用 过 程 call-the~cops OU% 
察 )。 | 


3.1.2 引进 赋值 带 来 的 利益 


正如 下 面 将 要 看 到 的 ， 将 赋值 引进 所 用 的 程序 设计 语言 ， 将 会 使 我 们 陷入 许多 图 难 的 概 
念 问题 的 从 林 之 中 。 但 无 论 如 何 ， 将 系统 看 作 是 一 集 带 有 局 部 状态 的 对 象 ， 也 是 一 种 维护 模 
块 化 设计 的 强 有 力 技术 。 作 为 一 个 简单 实例 ， 现 在 考虑 如 何 没 计 出 一 个 过 程 rTand ， 每 次 它 补 


调用 时 就 会 返回 一 个 随机 选 出 的 整数 。 | 

“随机 选择 ”的 意思 并 不 清楚 。 其 实 ， 我 们 实际 希望 的 就 是 ， 对 rand 的 反复 调用 将 产生 
出 一 系列 的 数 ， 这 一 序列 具有 均匀 分 布 的 统计 性 质 。 我 们 不 准备 去 讨论 生成 合适 序列 的 方法 ， 
相反 ， 现 在 假定 我 们 已 经 有 一 个 过 程 rand~update ， 它 的 性 质 就 是 ， 如 打从 一 个 给 定 的 数 加 
开始 ， 执 行 下 面 操作 


Xə (rand-update x) 


X3 = (rand-update x,) 
AREF K, 2, 3, - 将 具有 我 们 所 希望 的 性 质 “。 

我 们 可 以 将 zand 实 现 为 一 个 带 有 局 部 状态 变量 x 的 过 程 ， 其 中 将 这 个 变量 初始 化 为 某 个 
固定 值 random-init。 对 rand 的 每 次 调用 算出 当前 x 值 的 rand-update 值 ， 将 这 个 值 返回 
作为 随机 数 ， 并 将 它 存 人 作 为 x 的 新 值 。 


(define rand 
(let ((x random-init) ) 
(lambda () 
(set! x (rand-update x)) 
x) ) 


当然 ， 即 使 不 用 赋值 ， 我 们 也 可 以 通过 简单 地 直接 调用 Fand-update ， 生 成 同样 的 随机 
数 序 列 。 但 是 ， 这 也 就 意味 着 程序 中 任何 使 用 随机 数 的 部 分 都 必须 显 式 地 记 住 ， 需 要 将 x 的 当 
前 值 送 给 zand-update 作 为 参数 。 要 想 看 看 这 样 做 会 造成 多 少 烦恼 ， 现 在 考 碟 一 下 用 随机 
数 实现 一 种 称 为 蒙特 卡 罗 模 拟 的 技术 。 

蒙特 卡 罗 方 法 包括 从 一 个 大 集合 里 随机 选择 试验 样本 ， 并 在 对 这 些 试验 结果 的 统计 估计 
的 基础 上 做 出 推断 。 举 例 来 说 ，6/ww* 是 随机 选取 的 两 个 整数 之 间 没 有 公共 因子 (也 就 龙 说 ， 它 
们 的 最 大 公 因子 是 1) 的 概率 。 我 们 可 以 利用 这 一 事实 做 出 r 的 近似 人 。 为 了 逼 进 r 的 值 ， 我 
们 需要 进行 大 量 的 试验 。 在 每 次 试验 中 随机 选择 两 个 整数 并 检查 它们 的 GCD 是 否 为 1 。 通 过 这 
一 检查 的 次 数 比率 将 给 出 我 们 对 6/m 的 估计 值 ， 由 它 就 可 以 得 到 f 的 近似 值 。 

这 一 程序 的 核心 是 过 程 nonte-~car1Lo， 它 以 做 某 个 试验 的 次 数 ， 以 及 这 个 试验 本 导 作 为 
参数 。 有 关 试 验 用 一 个 无 参 过 程 表示 ， 返 回 的 是 每 次 运行 的 结果 为 真 或 假 。monte-carlo 
运行 这 个 试验 指定 的 次 数 ， 它 返回 一 个 值 ， 告 知 在 所 做 的 这 些 次 试验 中 得 到 真 的 比例 。 


(define (estimate-pi trials) 
(sqrt (/ 6 (monte-carlo trials cesaro-test)))) 


(define (cesaro-test) 
(= (gcd (rand) (rand)) 1)) 


(define (monte-carlo trials experiment) 


434 实现 rand-update 的 一 种 常见 方法 就 是 采用 将 * 更 新 为 ax +b 取 模 mm 的 规则 ， 其 中 的 4 、5 和 mm 都 是 适 当选 出 的 
整数 Knuth 1981 的 第 3 章 里 包含 了 有 关 随 机 数 序列 生成 和 建立 其 统计 性 质 的 深入 讨论 。 请 注意 ，zand~ 
update 是 计算 一 个 数学 函数 ， 两 次 给 它 同 一 个 输入 ， 它 将 产生 出 同一 个 输出 。 这 样 ， 如 果 “随机 ”强调 的 
是 序列 中 每 个 数 与 其 前 面 的 数 无 关 的 话 ， 由 zand-~update 生 成 的 数 序列 肯定 不 是 “随机 的 。 在 “真正 的 随 
机 性 ”与 所 谓 伪 随机 序列 (由 定义 良好 的 确定 性 计算 产生 出 的 但 又 具有 适当 统计 性 质 的 序列 ) 之 间 的 关系 是 
一 个 非常 复杂 的 问题 ， 涉 及 到 数学 和 哲学 中 的 一 些 困难 问题 。Kolmogorov 、Solomonoff 和 Chaitin 为 这 些 问题 
做 出 了 很 多 贡献 ， 从 Chaitin 1975 可 以 找到 有 关 的 讨论 。 

35 这 个 定理 出 自 E. Cesaro ， 见 Knuth 1981 4.3.2 节 的 讨论 和 证 明 。 


(define (iter trials-remaining trials-passed) 
(cond ((= trials-remaining 0) 
| (/ trials-passed trials) ) 
( (experiment) 
{iter (- trials-remaining 1) (+ trials-passed 1))) 
(else 
(iter (- trials-remaining 1) trials-passed)))) 


(iter trials 0)) 
现在 让 我 们 试 一 试 不 用 rand ， 直 接 用 rand-update 完 成 同一 个 计算 。 如 采 我 们 不 使 用 
赋值 去 模拟 局 部 状态 ， 那 么 将 不 得 不 采取 下 面 的 做 法 : 
(define (estimate-pi trials) | 
(sqrt (/ 6 (random-gcd-test trials random-init)))) 


(define (random-gcd-test trials initial-x) 
(define (iter trials-remaining trials~-passed x) 
(let ((xl (rand-update x))) 
{let ((x2 (rand-update x1))) 
{cond ((= trials-remaining 0) 
(/ trials-passed trials)) 
((= (ged x1 x2) 1) 
(iter (- trials-remaining 1) 
(+ trials-passed 1) 
x2)) 
{else 
{iter (- trialis-remaining 1) 
trials~passed 
x2))}))) ` 
(iter trials 0 initial-x)) | 
虽然 这 个 程序 还 是 比较 简单 的 ， 但 它 却 在 模块 化 上 打开 了 一 些 令 人 感到 很 痛 训 的 缺口 。 
在 上 面 的 第 一 个 使 用 rand 的 程序 里 ,我们 可 以 将 蒙特 卡 罗 方 法 直接 表述 为 一 个 通用 过 程 
monte-carlo， 它 以 一 个 任意 的 experiment 过 程 为 参数 。 而 在 同一 程序 的 第 二 个 版 本 中 ， 
由 于 没有 随机 数 生 成 器 的 局 部 状态 ,zandom-gcd-test 就 必须 显 式 地 去 操作 随机 数 x1 和 x2 ， 
并 通过 一 个 迭代 过 程 将 x2 送 给 rand-update 作 为 新 的 输入 。 这 种 对 于 随机 数 的 显 云 处 理 动 
作 与 积累 检查 结果 的 结构 交织 在 一 起 。 在 这 里 ， 我 们 在 当前 的 特定 试验 中 使 用 了 两 个 随机 数 ， 
而 其 他 蒙特 卡 罗 试 验 里 完全 可 能 使 用 一 个 或 者 三 个 随机 数 。 甚 至 在 过 程 estimate-~Pi 的 最 
上 层 ， 也 必须 关心 提供 初始 随机 数 的 问题 。 由 于 内 部 的 随机 数 生成 器 被 暴露 出 来 ， 进 入 了 程 
序 的 其 他 部 分 ， 这 就 使 我 们 很 难 将 蒙特 卡 罗 方 法 的 思想 孤立 出 来 ， 使 之 可 以 应 用 于 其 他 工作 。 
在 程序 的 第 一 个 版 本 里 ， 由 于 通过 赋值 将 随机 数 生成 器 的 状态 隔离 在 过 程 rand 的 内 部 ， 因 此 
就 使 随机 数 生成 的 细节 完全 独立 于 程序 的 其 他 部 分 了 。 
由 上 面 蒙 特 卡 罗 方 法 实例 展示 出 的 一 种 具有 普遍 性 的 现象 是 : 从 一 个 复杂 计算 过 程 中 一 
部 分 的 观点 看 ， 其 他 部 分 都 像 是 在 随 着 时 间 不 断 变化 ， 它 们 隐藏 起 自己 的 随时 间 变 化 的 内 部 
状态 。 假 设 我 们 希望 写 出 一 个 计算 机 程序 ， 反 应 这 种 系统 分 解 ， 那 么 就 需要 让 计算 对 象 ( 例 
如 银行 账户 和 随机 数 生成 器 ) 的 行为 随 着 时 间 变 化 ， 用 局 部 状态 变量 去 模拟 系统 的 状态 A 


对 这 些 变 量 的 赋值 去 模拟 状态 的 变化 。 
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目前 我 们 可 能 很 想 用 下 面 的 话 作 为 这 段 讨 论 的 总 结 : 与 所 有 状态 都 必须 显 式 地 操作 和 传 
递 额外 参数 胸 方式 相 比 ， 通 过 引进 赋值 和 将 状态 隐藏 在 局 部 变量 中 的 技术 ， 我 们 能 以 一 种 更 
模块 化 的 方式 构造 系统 。 可 惜 的 是 事情 并 不 是 这 么 侧 单 ， 我 们 很 快 就 会 看 到 这 一 扩 。 

练习 3.9 莹 特 卡 罗 积 分 是 一 种 通过 蒙特 卡 罗 模 拟 估计 定 积 分 值 的 方法 。 考 虑 由 谓词 P(x, y) 
描述 的 一 个 区 域 的 面积 计算 问题 ， 该 谓词 对 于 此 区 域内 部 的 点 (x, y) 为 真 ， 对 于 不 在 区 域内 的 
点 为 假 。 举 例 来 说 ,包含 在 以 (5, 7) 为 圆心 半径 为 3 的 圆圈 所 围 成 的 区 域 ， 可 以 用 检查 公式 
(x 一 5 二 (yy -7Y <V 是 否 成 立 的 谓词 描述 。 要 估计 这 样 一 个 谓词 所 描述 的 区 域 的 面积 ， 我 们 
应 首先 选取 一 个 包含 该 区 域 的 和 邱 形 。 人 例如， 以 (2, 4) 和 (8, 10) 作为 对 角 点 的 和 矩形 包含 者 上 
面 的 圆 。 需 要 确定 的 积分 也 就 是 这 一 矩形 中 位 于 所 类 注 区 域内 的 那个 部 分 。 我 们 可 以 这 样 估 
计 积 分 值 ， 随机 选取 位 于 矩形 中 的 点 (x, y)， 对 每 个 点 检查 P(x, y), MERAH OHTA 
虑 的 区 域内 。 如 果 试 了 足够 多 的 点 ， 那 么 落 在 区 域内 的 点 的 比率 将 能 给 出 矩形 中 有 关 区 域 的 
比率 。 这 样 ， 用 这 一 比率 去 乘 整个 矩形 的 面积 ， 就 能 得 到 相应 积分 的 一 个 估计 值 。 

将 蒙特 卡 罗 积 分 实现 为 一 个 过 程 estimate-integral， 它 以 一 个 谓词 p ， 算 形 的 上 下 
边界 Xl1、x2 、Y1 和 Y2 ， 以 及 为 产生 估计 值 而 要 求 试验 的 次 数 作 为 参数 。 你 的 过 程 应 该 使 用 
上 下面 用 于 估计 zr 值 的 同一 个 honte-carlo 过 程 。 请 用 你 的 estimate-integral， 遂 过 对 
单位 圆 面积 的 度量 产生 出 x 的 一 个 估计 值 。 

你 可 能 发 现 ， 有 一 个 从 给 定 区 域 中 选取 随机 数 的 过 程 非常 有 用 。 下 面 的 random-1in- 
range 过 程 利用 1.2.6 节 里 使 用 的 random 实 现 这 一 工作 ， 它 返回 一 个 小 于 其 输入 的 非 负数 。 

(define (random-in-range low high) 

(let ((range (- high low))) 
(+ low (random range)))) 

练习 3.6 ”有 了 时 也 需要 能 重 置 随机 数 生成 器 ， 以 便 从 菜 个 给 定 值 开始 生成 随机 数 序列 。 请 重 
新 设计 一 个 rand 过 程 ， 使 得 我 们 可 以 用 符号 generate 或 者 符号 reset 作为 参数 去 调用 它 。 其 
TAE.: (rand ' generate) 将 产生 出 一 个 新 随机 数 ，((rand ' reset) <new-value> ) 
将 内 部 状态 变量 重新 设置 为 指定 的 值 <new-value> 。 通 过 这 样 重 置 状态 ， 我 们 就 可 以 重复 生成 同 
样 的 序列 。 在 使 用 随机 数 测试 程序 ， 排 除 其 中 错误 时 ， 这 种 功能 非常 有 用 。 


3.1.3 ”引进 赋值 的 代价 


正如 在 上 面 已 经 看 到 的，set! 操 作 使 我 们 可 以 去 模拟 带 有 局 部 状态 的 对 象 。 然 而 ， 这 一 
获 益 也 有 一 个 代价 ， 它 使 得 我 们 的 程序 设计 语言 不 能 再 用 1.1.5 节 介绍 的 过 程 应 用 的 代 换 模型 
解释 了 。 进 一 步 说 ,任何 具有 “漂亮 ”数学 性 质 的 简单 模型 ， 都 不 可 能 继续 适合 作为 处 理 程 
序 设计 语言 里 的 对 象 和 赋值 的 框 染 

只 要 我 们 不 使 用 赋值 ， 同样 全 数 对 同一 过 程 的 两 次 求 信 一 定 产生 出 同样 的 结 moe, Alok 
就 可 以 认为 过 程 是 在 计算 数学 函数 。 像 我 们 在 本 书 的 前 两 章 中 所 做 的 那样 ， 不 用 任何 赋值 的 
程序 设计 称 为 函数 式 程序 设计 。 

要 理解 赋值 将 怎样 使 事情 复杂 化 了 ， 现 在 考虑 3.1.1 节 中 make-withdraw 过 程 的 一 个 简 
化 版 本 ， 其 中 不 再 关注 是 否 有 足够 余额 的 问题 : 


36 MIT Scheme 提供 了 这 个 过 程 。 如 果 给 的 是 精确 整数 〈 就 像 1.2.6 中 那样 )， 它 返回 一 个 精确 整数 ， 而 如 果 给 它 
一 个 十 进 制 数值 (就 像 在 这 个 练习 里 )， 它 就 返 回 一 个 十 进 制 数值 。 
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(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) } 
balance) ) 


(define W (make-simplified-withdraw 25) ) 


(W 20) 
5 


(W 10) 
-5 


请 将 这 一 过 程 与 ilfinake-decrement de. 过 程 做 一 个 比较 ， 该 过 程 里 没有 用 set1! : 


(define (make-decrementer balance) 
(lambda (amount) 
(~ balance amount))) 


make-decrementer 返 回 的 是 一 个 过 程 ， 该 过 程 从 指定 的 量 balance 中 减 去 其 输入 ， 但 顺 
序 调 用 时 却 不 会 像 make-simpLlifiedq-withdqraw 那 样 产 生 累 积 的 结果 
(define D (make-decrementer 25)) 


(D 20) 
5 


(D 10) 
15 


我 们 可 以 用 代 换 模型 解释 make-decrementer 如 何 工作 。 举 例 来 说 ， 让 我 们 分 析 一 下 下 面 
表达 式 的 求 值 过 程 : 

{({make-decrementer 25) 20) | 
首先 简化 组 合式 中 的 操作 符 ， 用 25 代 换 mMake-decrementer 的 体 里 的 balance。 这 样 就 归 
约 出 了 下 面 的 表达 式 : 

((lambda (amount) (- 25 amount ) ) 20) 
随后 应 用 运算 符 ， 用 20 代 换 Iambda 表 达 式 体 里 的 amount : 

(~ 25 20) 
最 后 结果 是 5 。 

现在 看 看 ， 如 果 将 类 似 的 代 换 分 析 用 于 make-simplified-withdraw， 会 出 现 什 么 情 
I: 


{(make-simplified-withdraw 25) 20) 
先 简化 其 中 的 运算 符 ， 用 25 代 换 make-simplified~withdraw 体 里 的 balance， 这 样 就 
归 约 出 了 下 面 的 表达 式 ”: 


( (lambda (amount) (set! balance (- 25 amount)) 25) 20) 


现在 应 用 其 中 的 运算 符 ， 用 20 代 换 Iambda 表 达 式 体 里 的 amount : 


7 我 们 没有 代 换 set! 表达 式 里 的 balance 出现， 因为 在 set 1 里 的 <name> 并 不 求 值 。 如 果 代 换 掉 它 ， 得 到 的 
(set! 25 (- 25 amount)) 根本 就 没有 意义 。 
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(set! balance (- 25 20)) 25 


如 果 我 们 坚持 使 用 代 换 模型 ， 那 么 就 必须 说 ， 这 个 过 程 应 用 的 结果 是 首先 将 balance 设 置 为 
5， 而 后 返回 25 作为 表达 式 的 值 。 这 样 得 到 的 结果 当然 是 错误 的 。 为 了 得 到 正确 答案 ， 我 们 将 
不 得 不 对 balance 的 第 一 个 出 现 (Eset! 作用 之 前 ) 和 它 的 第 二 个 出 现 (Eset! 作用 之 后 ) 
加 以 区 分 ， 而 代 换 模型 根本 无 法 完成 这 件 事 情 。 

这 里 的 麻烦 在 于 ， 从 本 质 上 说 ， 代 换 的 最 终 基 础 就 是 ， 这 一 语言 里 的 符 写 不 过 是 作为 值 
的 名 字 。 而 一 旦 引进 了 set! 和 变量 的 值 可 以 变化 的 想法 ， 一 个 变量 就 不 再 是 一 个 简单 的 名 字 
了 。 现 在 的 一 个 变量 索引 着 一 个 可 以 保存 值 的 位 置 ， 而 存储 在 那里 的 值 也 是 可 以 改变 的 。 在 
3.2 节 里 将 会 看 到 ， 在 我 们 的 计算 模型 里 ， 环 境 将 怎样 扮演 着 “位 置 ” 的 角色 。 

同一 和 变化 

从 这 里 暴露 出 的 问题 ， 远 远 不 是 简单 地 打破 了 一 个 特定 计算 模型 ， 其 意义 要 更 深 延 得 多 。 
一 旦 将 变化 引进 了 我 们 的 计算 模型 ， 许 多 以 前 非常 简单 明了 的 概念 现在 都 变 得 有 问题 了 。 肯 
先 考虑 两 个 物体 实际 上 “同一 ”的 概 您。 

假定 我 们 用 同样 的 参数 调用 make-decrementer 两 次 ， 就 会 创建 出 两 个 过 程 : 

(define Dl (make-decrementer 25)) 


(define D2 (make-decrementer 25)) 


D1 和 D2 是 同一 的 吗 ? “是 ”是 一 个 可 以 接受 的 回答 ， 因 为 D1 和 D2 具有 同样 的 计算 行为 一 
都 是 同样 的 将 会 从 其 输入 里 减 去 妨 的 过 程 。 事 实 上 ， 我 们 确实 可 以 在 任何 计算 中 用 RED? i 
不 会 改变 结 朱 。 

与 此 相对 应 的 是 调用 make-simplitied~-withdraw 了 两 次 : 

(define Wl (make-simplified-withdraw 25)) 

(define W2 (make-simplified-withdraw 25)) 
W1 和 W2 是 同一 的 吗 ? 显然 不 是 ， 因 为 对 W1 和 W2 的 调用 会 有 不 同 的 效果 ， 下 面 的 交互 显示 出 
这 方面 的 情况 ， 


(W1 20) 
5 


(W1 20) 
-15 


(W2 20) 
5 


虽然 Wl1 和 W2 都 是 通过 对 同样 表达 式 make simplified-withdraw 25) 的 求 值 创建 起 
来 的 东西 ， 从 这 个 角度 可 以 说 它们 © 。 但 如 果 说 在 任何 表达 式 里 都 可 以 用 Wi1 代 着 WZ2， 
而 不 会 改变 表达 式 的 求 值 结 采 ， eR. 

如 果 一 个 语言 支持 在 表达 式 里 “同一 的 东西 可 以 相互 替换 ”的 观念 ， 这 样 替 换 不 会 改变 
有 关 表 达 式 的 值 ， 这 个 语言 就 称 为 是 具有 引用 迁 明 性 。 在 我 们 的 计算 机 语言 里 包含 了 Tset! 之 
后 ， 也 就 打破 了 引用 透明 性 ， 就 使 确定 能 否 通过 等 价 的 表达 式 代 换 去 简化 表达 式 变 成 了 一 个 
异常 错综复杂 的 问题 了 。 由 于 这 种 情况 ， 对 使 用 赋值 的 程序 做 推理 也 将 变 得 极其 困难 。 

一 日 我 们 抛弃 了 引用 透明 性 ， 有 关 计 算 对 象 “ 同 一 ”的 意义 问题 就 很 难 形式 地 定义 浓 想 
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了 。 实 际 上 ， 在 我 们 企图 用 计算 机 程序 去 模拟 的 现实 世界 里 ，“ 同 一 ”的 意义 本 时 就 是 很 难 搞 
清楚 的 。 一 般 而 言 ， 我 们 只 能 用 如 下 方式 确定 两 个 看 起 来 同一 的 事物 是 否 确实 是 “同一 个 东 
Pa”; 改变 其 中 的 一 个 对 象 ， 去 看 另 一 个 对 象 是 否 也 同样 改变 了 。 但 是 ， 如 果 不 能 通过 观察 
“同一 个 ”对 象 两 次 ， 看 看 一 次 观察 中 看 到 的 其 些 对 象 性 质 与 另 一 次 不 同 ， 我 们 又 怎么 能 说 清 
th AREA “BIL” The? 所 以 ， 如 果 没 有 有 关 “ 同 一 ”的 某 些 先 验 观 念 ， 我 们 也 就 不 
可 能 确定 “变化 ” ， 而 不 能 看 到 变化 的 影响 又 无 法 确定 同一 性 。 | 

现在 举例 说 明 这 一 问题 会 如 何 出 现在 程序 设计 里 。 现 在 考虑 一 种 新 情况 ， 假 定 Peter 和 和 
Paul 有 银行 账户 ， 其 中 有 100 块 钱 。 关 于 这 一 事实 的 如 下 模拟 : 


(define peter-acc (make-account 100)) 
(define paul-acc (make-account 100)) 


和 如 下 模拟 之 间 有 着 实质 性 的 不 同 : 
(define peter-acc (make~-account 100)) 
(define paul-acc peter-acc) 


在 前 一 个 情况 里 ， 有 关 的 两 个 银行 账户 互 不 相同 。Peter 所 做 的 交易 将 不 会 影响 Paul 的 账户 ， 
反 过 来 也 一 样 。 而 对 于 后 一 种 情况 ， 显 然 ， 由 于 这 里 把 Paul-acc 定 义 为 与 peter-acc 征 同 
一 个 东西 ， 结 果 就 使 现在 Peter 和 Paul 共 有 一 个 共用 的 账户 ， 如 果 Peter 从 peter-acc 文 取 了 一 
笔 款 ，Paul 就 会 看 到 在 Paul-acc 里 少 了 钱 。 在 构造 计算 模型 时 ， 这 两 种 相近 但 又 不 同 的 情况 
就 可 能 造成 混乱 。 特 别 是 其 中 共享 账户 的 情形 特别 容易 造成 混乱 ， 因 为 在 这 里 ， 同 一 个 对 象 
(那个 银行 账户 ) 具有 两 个 不 同 的 名 字 (Peter-acc 和 Paul-acc )， 如 果 我 们 想 在 程序 里 搜 
索 出 paul-acc 可 能 被 修改 的 所 有 位 置 ， 我 们 还 必须 记 住 ， 也 需要 检查 那些 修改 peter-acc 
的 地 方 … 。 

有 了 前 面 有 关 “ 同 一 ”和 “变化 ”的 论述 ， 如 果 Peter 和 Paul 只 能 检查 他 们 的 银行 账户 ， 
而 不 能 执行 修改 余额 的 操作 ， 那 么 看 清 这 两 个 账户 是 否 不 同 的 问题 就 需要 仔细 讨论 了 。 一 般 
而 言 ， 如 果 我 们 绝 不 修改 数据 对 象 ， 那 么 就 可 以 将 一 个 复合 数据 对 象 完全 看 作 是 由 其 片段 组 
成 的 一 个 整体 。 例 如 ， 一 个 有 理 数 是 完全 由 它 的 分 子 和 分 母 确定 的 。 如 果 出 现 了 修改 ， 这 一 
观点 也 就 不 再 合法 了 ， 此 时 复合 数据 对 象 有 了 一 个 “标识 ”， 而 它 又 是 与 组 成 这 一 对 和 象 的 各 片 
段 都 不 同 的 东西 。 即 使 我 们 通过 提 款 修改 了 一 个 账户 的 余额 ， 这 个 账户 仍然 是 “同一 个 k 
户 。 与 此 相反 ， 我 们 也 可 能 有 两 个 银行 账户 ， 它 们 具有 相同 的 状态 信息 。 这 种 复杂 性 是 将 银 
行 账户 看 作 一 个 对 象 而 产生 的 结果 ， 而 不 是 程序 设计 语言 的 问题 。 例 如 ， 通 常 我 们 不 将 一 个 
有 理 数 看 作 具 有 标识 的 可 修改 对 象 ， 并 不 想 修 改 其 分 子 并 保持 “同一 个 “有理数 。 


命令 式 程 序 设计 的 缺陷 
与 函数 式 程 序 设计 相对 应 的 ， 广 泛 采 用 赋值 的 程序 设计 被 称 为 命令 区 程序 设计 。 除了 会 


38 一 个 计算 和 村 象 可 以 通过 多 于 一 个 名 字 访 问 的 现象 称 为 别名 。 共 有 银行 账户 的 例子 里 展示 的 是 别名 的 一 种 最 简 
单 情况 。 在 3.3 节 里 ， 我 们 还 将 看 到 一 些 更 复杂 的 例子 ， 例 如 “不 同 ” 数 据 结构 共享 某 些 部 分 。 如 采 对 一 个 对 
象 的 修改 可 能 由 于 “副作用 ”而 修改 了 另 一 “不 同 的 ”对 象 ， 因 为 这 两 个 “不 同 ” 对 象 实 际 上 只 是 同一 个 对 
象 的 不 同 别名 ， 当 我 们 忘记 这 一 情况 ,程序 里 就 可 能 出 现 错误 。 这 种 错误 被 称 作 副作用 错误 ， 是 特别 难以 定 
位 和 分 析 的 ， 因 此 某 些 人 建议 说 ， 程 序 设 计 语言 的 设计 应 该 不 允许 副作用 或 者 别名 (Lampson et al. 1981, 
Morris, Schmidt, and Wadler 1980) 。 


导致 计算 模型 的 复杂 性 之 外 ， 以 命令 式 风 格 写 出 的 程序 还 很 容易 出 现 一 些 不 会 在 国 数 式 程序 
中 出 现 的 错误 。 举 例 来 说 ,现在 重 看 一 下 1.2.1 节 里 的 迭代 式 求 阶乘 程序 
(define {factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter {* counter product) 
(+ counter 1)))) 
(iter 1 1)) 
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新 变量 product 和 counter 的 值 : : 


(define (factorial n) 
{let ((product 1) 
(counter 1)) 
(define (iter) 
(if {> counter n) 
product 
(begin (set! product (* counter product) ) 
(set! counter {+ counter 1)} 
(iter)))) 
{iter))) 


这 样 做 不 会 改变 程序 产生 的 结果 ， 但 却 会 引进 一 个 很 微妙 的 陷阱 。 我 们 应 该 如 何 确定 两 个 赋 
值 的 顺序 呢 ? 像 上 面 那样 写 出 的 程序 是 正确 的 ， 但 如 果 以 相反 顺序 写 这 两 个 赋值 : 


(set! counter (+ counter 1)) 
(set! product (* counter product) ) 


就 会 产生 出 与 上 面 不 同 的 错误 结果 。 一 般 而 言 ， 带 有 赋值 的 程序 将 强迫 人 们 去 考虑 赋值 的 相 
对 顺序 ， 以 保证 每 个 语句 所 用 的 是 被 修改 变量 的 正确 版 本 。 在 国 数 式 程序 设计 中 ， 这 类 回 题 
根本 就 不 会 出 现 '”， 

如 果 考 虑 有 着 多 个 并 发 执行 的 进程 的 应 用 程序 ， 命 令 式 程序 设计 的 复杂 性 还 会 变 得 更 糖 
糕 。 我 们 将 在 3.4 节 回 到 这 个 问题 。 现 在 首先 需要 解决 的 问题 ， 当 然 是 为 涉及 赋值 的 表达 却 提 
供 一 种 计算 模型 ， 以 便 考察 在 模拟 的 设计 中 如 何 使 用 具有 局 部 状态 的 对 象 。 

练习 3.7 ”考虑 如 练习 3.3 所 描述 的 ， 由 make-account 创建 的 带 有 密码 的 银行 账户 对 象 。 
假定 我 们 的 银行 系统 中 需要 一 种 提供 共用 账户 的 能 力 。 请 定义 过 程 make-joint 创 建 这 种 账 
户 。make-joint 应 该 有 三 个 参数 : 第 一 个 是 有 密码 保护 的 账户 ， 第 二 个 参数 是 一 个 密码， 
它 必须 与 那个 已 经 定义 的 账户 的 密码 匹配 ， 以 使 make-joint 操 作 能 够 继续 下 去 ， 第 二 个 参 
数 是 新 密码 。make-joint 用 这 一 新 密码 创建 起 对 那个 原 有 账户 的 另 一 访问 途径 。 例 如 ， 如 


139 这 种 看 法 也 说 明 ， 大 部 分 的 引 论 性 程序 设计 课程 采用 高 度 命令 式 风 格 教授 ， 这 确实 是 一 件 令 人 啼笑 E ERIA 

、 情 。 这 一 情况 可 能 源 自 20 世 纪 60 年 代 到 70 年 代 中 流行 的 一 种 常见 看 法 的 残存 遗迹 ， 那 种 看 法 说 调用 过 程 的 程 
序 一 定 比 执行 赋值 的 程序 效率 更 低 (Steele (1977) 批驳 了 这 一 论断 )。 还 有 ， 这 种 情况 也 可 能 反应 了 另 一 种 
观点 ， 认 为 让 初学 者 一 步 步 地 看 赋值 比 观 察 过 程 调 用 更 容易 。 无 论 出 于 什么 原因 ， 它 总 是 给 初学 程序 设计 的 
人 们 增加 了 关注 “我 应 该 把 给 这 个 变量 的 赋值 放 在 另 一 个 之 前 呢 还 是 之 后 ”的 负担 ， 这 会 使 程序 设计 复杂 化 ， 
也 使 其 中 的 主要 思想 变 模糊 了。 
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果 Peter-acc 是 一 个 具有 密码 open-Sesame 的 银行 账户 ， 那 么 


(define paul-acc 
(make-joint peter-acc ’open~sesame ‘rosebud) ) 


将 使 我 们 可 以 通过 名 字 pau1l1-acc 和 窗 码 rosebud 对 账户 peter~acc 做 现金 交易 。 你 可 能 希 
望 修改 自己 对 练习 3.3 的 解 ， 加 入 这 一 新 功能 。 

练习 3.8 ”在 1.1.3 节 定义 求 值 模型 时 我 们 说 过 ， 求 值 一 个 表达 式 的 第 一 步 就 是 求 值 其 中 的 
子 表达 式 。 但 那 时 并 没有 说 明 应 该 按 怎样 的 顺序 对 这 些 子 表达 式 求 值 (例如 ， 是 从 左 到 右 还 
是 从 右 到 左 )。 当 我 们 引进 了 赋值 之 后 ， 对 一 个 过 程 的 各 个 参数 的 求 值 顺序 不 同 加 可 能 导致 不 
同 的 结果 。 请 定义 一 个 简单 的 过 程 ， 使 得 对 于 (+ (£ 0) (£ 1)) 的 求 值 在 对 实际 参数 采 
用 从 左 到 右 的 求 值 顺序 时 返回 0 ， 而 对 实际 参数 采用 从 右 到 左 的 求 值 顺序 时 返回 1 。 


3.2 求 值 的 环境 模型 


我 们 在 第 1 章 引 进 复合 过 程 时 ， 采 用 求 值 的 代 换 模型 ( 见 1.1.5 节 ) 定义 了 将 过 程 应 用 于 实 
际 参 数 的 意义 。 

* 将 一 个 复合 过 程 应 用 于 一 些 实际 参数 ， 就 是 在 用 各 个 实际 参数 代 换 过 程 体 里 对 应 的 形式 

参数 之 后 ， 求 值 这 个 过 程 体 。 

一 旦 我 们 把 赋值 引进 程序 设计 语言 之 后 ， 这 一 定义 就 不 再 合适 了 。 特 别 是 在 3.1.3 节 我 们 
已 经 论证 了 ， 由 于 赋值 的 存在 ,变量 已 经 不 能 再 看 作 仅仅 是 某 个 值 的 名 字 。 此 时 的 一 个 变量 
必须 以 某 种 方式 指定 了 一 个 “位 置 "， 相 应 的 值 可 以 存储 在 那里 。 在 我 们 的 新 求 值 模型 里 ， 这 
种 位 置 将 维持 在 称 为 环境 的 结构 中 。 

一 个 环境 就 是 框架 (frame) 的 一 个 序列 ， 每 个 框架 是 包含 着 一 些 约束 的 一 个 表格 (可 能 
为 空 )， 这 些 约 束 将 一 些 变量 名 字 关联 于 对 应 的 值 (在 一 个 框架 里 ， 任 何 变量 至 多 只 能 有 一 个 
约束 ) 。 每 个 框架 还 包含 着 一 个 指针 ， 指 向 这 一 框架 的 外 国 环 境 。 如 果 由 于 当前 讨论 的 目的 ， 
将 相应 的 框架 看 作 是 全 局 的 ， 那 么 它 将 没有 外 围 环境 。 一 个 变量 相对 于 某 个 特定 环境 的 值 ， 
也 就 是 在 这 一 环境 中 ,包含 着 该 变量 的 第 一 个 框架 里 这 个 变量 的 约束 值 。 如 果 在 序列 中 并 不 
存在 这 一 变量 的 约束 ， 那 么 我 们 就 说 这 个 变量 在 该 特定 环境 中 是 无 约束 的 。 

图 3-1 展 示 了 一 个 简单 的 环境 结构 ， 其 中 包含 了 3 个 框架 ， 分 别 用 [、I 和 II 标记 。 在 这 个 
图 里 ，A、B、C 和 D 都 是 环境 指针 ， 其 中 C 和 D 指 向 同一 个 环境 。 变 量 z x E eR BRK, 
而 变量 y 和 x 在 框架 I 里 约束 。x 在 环境 D 里 的 值 是 3，x 相 对 于 环境 B 的 值 也 是 3。 后 一 情况 应 按 
如 下 方式 确定 : 我 们 首先 检查 序列 中 的 第 一 个 框架 (框架 II) ， 在 这 里 没有 找到 x 的 约束 ， 因 
此 继续 前 进 到 外 围 环境 D 并 在 框架 I 里 找到 了 相应 的 约束 。 在 另 一 方面 ，x 在 环境 A 中 的 值 就 是 
7， 因 为 序列 中 的 第 一 个 框架 (框架 [1) 里 包含 x 与 7 的 约束 。 相 对 于 环境 A ， 我 们 说 在 框架 I 
里 x 与 7 的 约束 诞 蔽 了 框架 I 里 x 与 3 的 约束 。 

环境 对 于 求 值 过 程 是 至 关 重 要 的 ， 因 为 它 确定 了 表达 式 求 值 的 上 下 文 。 实 际 上 ， 我 们 完 
全 可 以 说 ， 在 一 个 程序 语言 里 的 一 个 表达 式 本 身 根本 没有 任何 意义 。 即 使 像 〈+ 1 1) 这 样 
极其 简单 的 表达 式 ， 其 解释 也 要 依赖 于 有 关 的 操作 是 在 某 个 上 下 文 里 进行 的 ， 在 那里 + 是 表 
示 加 法 的 符号 。 这 样 ， 在 现在 讨论 的 求 值 模 型 中 ,我 们 将 总 说 某 个 表达 式 相 对 于 某 个 环境 的 
求 值 。 为 了 描述 与 解释 器 的 交互 作用 ， 我 们 将 始终 假定 存在 着 一 个 全 局 环境 ， 它 只 包含 着 一 
个 框架 (没有 外 围 环境 ) ， 这 个 环境 里 包含 着 所 有 关联 于 基本 过 程 的 符号 的 值 。 例 如 ， 有 关 + 
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图 3-1 一 个 简单 的 环境 结构 


是 表示 加 法 的 符号 这 一 观念 ， 在 这 里 的 表现 就 是 ， 符 号 + 在 全 局 环境 中 被 约束 到 相应 的 基本 
加 法 过 程 。 | 


3.2.1 KARN 


关于 解释 器 如 何 求 值 一 个 组 合式 的 问题 ， 其 整体 描述 仍然 与 我 们 在 1.1.3 节 中 第 一 次 介绍 
时 完全 一 样 。 
* 如 果 要 对 一 个 组 合 表达 式 求 值 : 
1) 求 值 这 一 组 合式 里 的 各 个 子 表达 式 “， 
2) 将 运算 符 子 表达 式 的 值 应 用 于 运算 对 象 子 表达 式 的 值 。 
现在 我 们 要 用 求 值 的 环境 模型 代替 求 值 的 代 换 模型 ， 在 这 一 模型 里 需要 特别 说 明 将 一 个 
复合 过 程 应 用 于 参数 表示 的 是 什么 。 
在 求 值 的 环境 模型 里 ， 一 个 过 程 总 是 一 个 对 侦 ， 由 一 些 代 码 和 一 个 指向 环境 的 指针 组 成 。 
过 程 只 能 通过 一 种 方式 创建 ， 那 就 是 通过 求 值 一 个 lambqda 表 达 式 。 这样 产 生出 的 过 程 的 代码 
来 自 这 一 lambda 表 达 式 的 正文 ， 其 环境 就 是 求 值 这 个 lambda 表 达 式 ， 产 生出 这 个 过 程 时 的 
那个 环境 。 举 个 例子 ， 考 虑 在 全 局 环境 里 求 值 下 面 的 过 程 定义 : 
(define (square x} 
(* x X)) 
过 程 定义 的 语法 形式 ， 不 过 是 作为 其 基础 的 聊 含 1ambda 表 达 式 的 语法 糖衣 ， 上 面 的 定义 就 像 
是 写成 下 面 等 价 的 表示 : 
(define square 
(lambda (x) (* x X))) 


其 中 求 值 (lambda (x) (* x x)), Hat Ssquare WKF ik — RE AIR Ss 这 些 都 


是 在 全 局 环境 中 完成 的 。 
图 3-2 展 示 的 是 求 值 这 一 define 表 达 式 的 结果 ， 这 里 的 过 程 对 象 是 一 个 序 对 ， 其 代码 部 


O 赋值 的 存在 给 求 值 规则 的 步骤 1 引进 一 个 微妙 辣 题 。 正如 练习 3.8 所 述 ， 赋值 的 存在 使 我 们 可 以 写 出 一 些 表达 
式 ， 如 果 以 不 同 的 顺序 对 组 合式 中 各 个 子 表 达 式 的 求 值 ， 它 们 就 会 产生 出 不 同 的 值 。 这 样 ， 为 了 更 精确 些 ， 
我 们 就 需要 说 REM ( 例如 从 左 到 右 )。 然 而 ， 这 种 顺序 应 该 总 看 作 是 一 个 实现 细 下 ， 我 们 永远 
也 不 要 去 写 依赖 于 特定 顺序 的 程序 。 举 例 来 说 ， 如 果 一 个 复杂 的 编译 器 去 做 程序 的 优化 ， 它 完 全 可 能 改变 其 
hf RAK MF. 






全 局 其 他 变量 


环境 


square: 







(define (Square x) 


(* x xX)) 


参数 :x 
过 程 体 : (* x x) 
图 3-2 由 在 全 局 环境 中 求 值 (define (square x) 
(* x X)) 而 产生 的 环境 结构 


分 描述 的 是 一 个 带 有 一 个 形式 参数 x 的 过 程 ， 过 程 体 是 (* x x)。 过 程 对 象 的 环境 部 分 是 一 
个 指向 全 局 环境 的 指针 ， 因 为 产生 这 个 过 程 的 lambda 表 达 式 是 在 全 局 环境 中 求 值 的 。 这 个 定 
义 在 全 局 框架 中 加 入 了 一 个 新 约束 ， 将 上 述 过 程 对 角 约 束 于 符号 sgGuare。 一 般 而 言 ， 
define 建 立定 义 的 方式 就 是 将 新 的 约束 加 入 框架 里 。 / 

我 们 已 经 看 到 了 创建 过 程 的 有 关 情 况 ， 现 在 就 可 以 描述 过 程 的 应 用 了 。 环 境 模型 说 明 ， 
在 将 一 个 过 程 应 用 于 一 组 实际 参数 时 ， 将 会 建立 起 一 个 新 环境 ， 其 中 包含 了 将 所 有 形式 参数 
约束 于 对 应 的 实际 参数 的 框架 ， 该 框架 的 外 围 环境 就 是 所 用 的 那个 过 程 的 环境 。 随 后 就 在 这 
个 新 环境 之 下 求 值 过 程 的 体 。 

为 了 演示 这 一 规则 的 实施 情况 ， 图 3-3 展 示 了 通过 在 全 局 环境 里 对 表达 式 (Square 5) 
求 值 而 创建 起 来 的 环境 结构 ， 其 中 的 square 是 图 3-2 里 生成 的 过 程 。 这 一 过 程 应 用 的 结 末 契 
创建 了 一 个 新 环境 ， 在 图 中 标记 为 E1 。 这 个 环境 从 一 个 框架 开始 ， 框 架 里 包含 着 将 这 个 过 程 
的 形式 参数 x 约 束 到 实际 参数 5。 从 这 一 框架 引出 的 指针 说 明 这 个 框架 的 外 围 环境 就 是 全 局 环 
境 。 在 这 个 地 方 之 所 以 应 该 选择 全 局 环境 ， 是 因为 它 就 是 作为 sqguare 过 程 对 象 的 一 部 分 的 那 
个 环境 。 现 在 我 们 要 在 E1 里 求 值 过 程 的 体 (* x x) 。 因 为 在 E1 里 x 的 值 是 5， 所 以 求 值 结 果 
是 (* 5 5)， 也 就 是 25。 





AR 其 他 变量 
环境 square: 
(square 5) 


P fe 
参数 :X (* x X) 


过 程 体 : (* x x) 
图 3-3 在 全 局 环境 里 求 值 (square 5) 创建 出 的 环境 


我 们 可 以 把 过 程 应 用 的 环境 模型 总 结 为 下 面 两 条 规则 : 
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* 将 一 个 过 程 对 象 应 用 于 一 集 实际 参数 ， 将 构造 出 一 个 新 框架 ， 其 中 将 过 程 的 形式 参数 约 

束 到 调用 时 的 实际 参数 ， 而 后 在 构造 起 的 这 一 新 环境 的 上 下 文中 求 值 过 程 体 。 这 个 新 杠 

架 的 外 围 环境 就 是 作为 被 应 用 的 那个 过 程 对 象 的 一 部 分 的 环境 。 

* 相对 于 一 个 给 定 环 境 求 值 一 个 Lambda 表 达 式 ， 将 创建 起 一 个 过 程 对 象 ， 这 个 过 程 对 象 

是 一 个 序 对 ， 由 该 1ambda 表 达 式 的 正文 和 一 个 指向 环境 的 指针 组 成 ， 这 一 指针 指向 的 

就 是 创建 这 个 过 程 对 象 时 的 环境 。 

我 们 也 已 经 说 明了 ， 用 define 定 义 一 个 符号 ， 也 就 是 在 当前 环境 框架 里 建立 一 个 约束 ， 
并 赋予 这 个 符号 指定 的 值 ''。 最 后 让 我 们 来 说 明 set 1 的 行为 方式 ， 因 为 一 开始 就 是 由 于 这 个 
操作 的 存在 ， 迫 使 我 们 引进 上 述 的 环境 模型 。 在 某 个 环境 里 求 值 表 达 式 (set! <variable> 
<value> )， 要 求 我 们 首先 在 环境 中 确定 有 关 变 量 的 约束 位 置 ， 而 后 再 修改 这 个 约束 ， 使 之 表示 
这 个 新 值 。 这 也 就 是 说 ， 首 先 需要 找到 包含 这 个 变量 的 约束 的 第 一 个 框架 ， 而 后 修改 这 一 框架 。 
如 果 该 变量 在 环境 中 没有 约束 ，set! 将 报告 一 个 错误 。 

这 些 求 值 规则 显然 比 代 换 规则 复杂 了 许多 ， 但 也 还 是 相当 直截了当 的 。 进 一 步 说 ， 虽 然 
这 一 求 值 模 型 比较 抽象 ， 但 它 却 为 解释 器 对 于 表达 式 求 值 的 过 程 提供 了 一 个 正确 的 描述 。 在 
第 4 章 里 我 们 将 看 到 ， 这 一 模型 如 何 能 成 为 实现 一 个 可 以 工作 的 解释 器 的 蓝图 。 下 面 几 节 将 要 
分 析 几 个 具有 阐释 意义 的 实例 ， 以 进一步 揭示 这 一 模型 的 各 方面 细节 。 

3.2.2 简单 过 程 的 应 用 

在 1.1.5 节 里 介绍 代 换 模型 时 ， 我 们 展示 了 在 有 下 面 的 过 程 定义 之 后 ， 组 合式 (人 5) 怎 

样 求 值得 到 136 : 


(define (square x) 
(* x X)) 





(define (sum-of-squares x y) 
(+ (Square x) (Square y))) 


(define (f a) 
(sum-of-squares (+ ai) (* a 2))) | 

现在 我 们 用 环境 模型 来 分 析 同 一 个 实例 。 图 3-4 展 示 出 在 全 局 环境 里 对 f 、square 和 sum- 
of -squares 的 定义 求 值 后 创建 起 的 三 个 过 程 对 象 ， 每 个 过 程 对 象 都 由 “ 些 代码 和 一 个 指向 | 
全 局 环境 的 指针 组 成 。 

企图 3-3 里 ,我们 看 到 的 是 由 对 (£ 5) 的 求 值 创建 起 的 环境 结构 。 对 于 f 的 调用 创建 了 
一 个 新 环境 El1， 它 开始 于 一 个 框 染 ， 其 中 f 的 形式 参数 a 被 约束 到 实 参 5。 我 们 需要 在 El 里 求 
fat 的 体 : 

(sum-of-squares (+ a 1) (* a 2)). 
在 求 值 这 个 组 合式 时 ， 首 先 需 要 求 值 其 中 的 子 表 达 却 。 第 一 个 子 表达 式 sum-of - squares 
一 个 过 程 对 象 为 值 (请 注意 看 这 个 值 是 如 何 找到 的 : 首先 在 El1 的 第 一 个 框架 中 找 ， 这 里 没有 
包含 sum-of -squares 的 约束 。 而 后 进入 有 关 的 外 围 环境 ， 即 全 局 环境 ， 并 在 那里 找到 了 图 


4 如 果 在 当前 框架 中 已 经 有 了 对 这 一 变量 的 约束 ， 那 么 该 约束 就 会 改变 。 这 样 做 比较 方便 ， 因为 它 允 许 符号 的 
重新 定义 ， 这 当然 也 就 意味 着 可 以 用 define 去 修改 符号 的 值 ， 因 此 ， 在 这 里 没有 显 式 使 用 set! 却 带 来 了 同 
样 的 问题 。 正 因为 此 ， 有 些 人 觉得 在 出 现 重 新 定义 时 应 该 发 出 错误 或 者 警告 信息 。 


sum-Of—squares: 


全 局 square: 
环境 
Í: 
È 
Sh: a 参数 : X BM: X, Y 
过 程 体 ; (sum-of-squares) 过程 体 : (* x x) 过 程 体 : (+ (square x) 
(+ a 1) (square y) 
(* a 2)) 
图 3-4 全 局 框架 里 的 几 个 过 程 对 象 
全 局 
环境 
(£ 5) 


x:6 | 
y:10 


(sum~-of-squares (+ (square x) (六 X X) (* X X) 
(+ a l) {square y) 
(* a 2)) 


图 3-5 使 用 图 3-4 里 的 过 程 求 值 (上 5 ) 创建 的 环境 
3-4 所 示 的 约束 )。 对 另外 两 个 表达 式 的 求 值 是 应 用 两 个 基本 运算 符 十 和 * ， 通 过 求 值 组 合式 
(+a 1) 和 (* a 2) 分 别 得 到 6 和 10。 | 
| 现在 需要 把 过 程 对 象 sum-of-squares 应 用 于 实 参 6 和 10， 这 时 得 到 的 是 一 个 新 环境 E2， 
形式 参数 x 和 Yy 在 其 中 约束 于 对 应 的 实际 参数 。 现 在 要 做 的 就 是 在 E2 里 求 值 组 合式 【+ 
(square x) (square yY))。 这 进一步 要 求 我 们 求 值 (square x)， 其 中 的 square 从 全 
局 环境 中 找到 ， 而 x 是 6。 我 们 又 需要 设 定 另 一 个 新 环境 E3 ， 其 中 将 x 约束 到 6 ， 并 在 这 里 求 值 
square 的 体 (* x x)。 作 为 sum-of-squares 应 用 的 另 一 部 分 ,我们 还 必须 求 值 子 表 达 
x (square y)， 其 中 的 y 是 10。 这 是 对 square 的 第 二 个 调用 ， 它 创建 起 男 一 个 环境 E4， 
其 中 square 的 形式 参数 + 约束 到 10。 我 们 必须 在 E4 里 求 值 (* xX x). 
这 里 应 注意 的 要 点 是 ， 对 于 square 的 每 个 调用 都 会 创建 起 一 个 包含 着 x 的 约束 的 新 环境 。 
我 们 可 以 看 到 ， 这 里 就 是 通过 不 同 的 框架 ， 去 维持 所 有 名 字 为 x 的 局 部 变量 互 不 相同 。 还 请 注 
音 ， 由 square 创 建 的 每 个 框架 都 指向 全 局 环境 ， 因 为 这 就 是 对 应 于 square 的 过 程 对 象 所 指 
定 的 环境 。 
各 个 子 表 达 式 求 值 后 返回 得 到 的 值 。 对 square 的 两 个 调用 产生 的 值 被 sum~of~squares 
加 起 来 ， 作 为 求 值 的 结果 返回 。 因 为 我 们 在 这 里 关心 的 是 环境 结构 ， 因 此 将 不 详细 考察 这 些 退 


回 值 如 何在 调用 之 则 传递 的 问题 。 当 然 ， 这 件 事情 也 是 求 值 过 程 中 的 一 个 重要 方面 ， 我 们 将 在 
第 5 章 回 到 这 一 问题 。 
练习 3.9 在 1.2.1 市 里 ， 我 们 用 代 换 模型 分 析 了 两 个 计算 阶乘 的 函数 ， 递 归 版 本 : 


(define (factorial n) 
(if (=n 1) 
1 
(* n (factorial (~ n 1))))) 


PAIK FE RAS 
(define (factorial n) 


(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
(+ counter 1) 
max-count) )) 


请 说 明 采 用 过 程 factorial 的 上 述 版 本 求 值 (factorial 6) 时 所 创建 的 环境 结构 “。 
3.2.3 将 框架 看 作 局 部 状态 的 展台 


现在 可 以 从 环境 模型 出 发 ， 看 看 可 以 怎样 用 过 程 和 赋值 表示 带 有 局 部 状态 的 对 家 。 作 为 
一 个 例子 ， 还 是 芳 虚 取 自 3.1.1 节 的 由 调用 下 面 过 程 创建 的 “ 提 球 处 理 器 : 


(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds”))) 


让 我 们 仔细 看 看 下 式 的 求 值 : 
(define Wl (make-withdraw 100) ) 


而 后 做 : 


(W1 50) 
50 


图 3-6 展 示 了 在 全 局 环境 里 定义 make-withdraw 过 程 的 结果 。 这 一 求 值 产生 出 一 个 过 程 对 象 ， 
其 中 包含 着 一 个 指向 全 局 环境 的 指针 。 到 目前 为 此 ， 在 这 个 实例 里 还 没有 出 现任 何 与 前 面 看 
过 的 实例 不 同 的 东西 ， 除 了 过 程 体 本 身 也 是 一 个 lambda 表 达 式 之 外 。 

计算 中 的 有 趣 现 象 出 现在 将 过 程 make-withdraw 应 用 于 一 个 参数 的 时 修 : 

{define Wl (make-withdraw 100)) | 
与 平常 一 样 ， 我 们 在 开始 时 设置 了 环境 E1 ， 其 中 将 形式 参数 balance 约束 到 实 参 100 ， 并 在 
这 一 环境 里 求 值 mnake-withdraw 的 体 ， 也 就 是 那个 Lambda 表 达 式 。 这 一 求 值 构造 起 一 个 新 


9 这 种 环境 模型 还 不 能 湾 清 我 们 在 1.2.1 节 的 断言 ， 那 里 说 解释 器 使 用 了 尾 递归 ， 只 需要 常量 空间 就 可 以 执行 像 
fact-iter 这 样 的 过 程 。 我 们 将 在 5.4 节 里 讨论 解释 器 的 控制 结构 时 处 理 尾 递归 问题 。 


AB o RR ARARA 


过 程 对 象 ， 其 代码 由 这 个 lambda 描述 ， 而 它 的 环境 就 是 E1 ， 也 就 是 求 值 这 个 lambda 生 成 该 
过 程 对 象 时 的 那个 环境 。 这 样 做 出 的 过 程 对 象 被 作为 调用 make-withdraw 的 返回 值 ， 在 全 
局 环境 里 约束 于 W1 ， 因 为 对 这 个 define 本 身 的 求 值 是 在 全 局 环境 里 进行 的 。 图 3-7 显示 出 这 
样 做 的 结果 得 到 的 环境 结构 。 





全 局 make-withdraw: 
环境 
参数 : balance 
过 程 体 : (lambda (amount) 
(if (>=balance amount) 
(begin (set! balance (-balance amount) ) 
balance) | 
"Insufficient funds") ) 
图 3-6 在 全 局 环境 里 定义 make-withdraw 的 结果 
make-withdraw: 
全 局 
环境 Wl: 





El balance: 100 OC 
AC 参数 : balance 
过 程 体 : 。 。 。 


参数 : amount 
过 程 体 : (if (>=balance amount) 
(begin (set ! balance (- balance amount) ) 
balance} 
"Insufficient funds") ) 


图 3-7 求 值 (define Wl (make-withdraw 100)) HJR 


现在 让 我 们 来 分 析 将 W1 应 用 于 一 个 参数 时 所 发 生 的 情况 : 

(W1 50) 

50 

”此 时 首先 要 构造 出 一 个 框架 ，W1 的 形式 参数 amount 在 其 中 约束 到 实 参 50。 需 要 注意 的 最 关 
键 一 点 是 ， 这 个 框架 的 外 围 环境 并 不 是 全 局 环境 ,而 是 环境 El1， 因 为 它 才 是 由 过 程 对 象 Wi 所 
指定 的 环境 。 现 在 我 们 需要 在 这 个 新 环境 里 求 值 下面 的 过 程 体 : 


(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 


balance) 
"Insufficient funds") 


这 样 做 得 到 的 环境 结构 如 图 3-8 所 示 。 在 被 求 值 的 表达 式 里 引用 了 amount 和 balance ， 其 中 
的 amount 在 环境 里 的 第 一 个 框架 里 找到 ， 而 balance 则 沿 着 外 围 环境 指针 间 前 在 El 里 找 
到 。 


make-withdraw: ... 





全 局 
环境 Wl: 
El balance: 100 这 里 是 由 Set 
改变 的 平衡 
amounts 50 
参数 : amount (if (>=balance amount) 
过 程 体 : . . . (begin 


(set ! balance 
(- balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-8 jt hy a ER WI 创建 起 的 环境 | 
在 执行 Set! 时， 位 于 E1 里 balance 的 约束 就 被 修改 了 。 对 W1 的 调用 完成 时 ，balance 
是 50 ， 而 包含 着 这 个 balance 的 框架 仍 由 过 程 对 象 W1 指 着 。 约 束 amount 的 那个 框架 我 们 
曾经 在 其 中 执行 了 修改 的 balance 代 码 ) 现在 已 经 无 关 紧 要 了 ， 因 为 构造 它 的 过 程 已 经 结束 ， 
环境 中 的 任何 一 部 分 都 不 再 包含 指向 这 个 框架 的 指针 。 在 下 次 W1 被 调用 时 ， 这 一 过 程 又 会 构 
造 起 另 一 个 新 框架 ， 其 中 建立 起 amount 的 一 个 新 约束 ， 这 一 框架 的 外 围 环 境 还 是 E1 。 根 据 
上 面 的 分 析 ， 我 们 可 以 看 到 E1 怎 样 起 着 保存 过 程 对 象 的 局 部 状态 变量 的 “位 置 WA. K 
3-9 展 示 的 是 调用 Wl 之 后 的 情 和 站。 


make-withdraw: ... 


Wl: 





El balance: 50 


OC 


和 参数: amount 
过 程 体 : . 


图 3-9 调用 WlL 之 后 的 环境 


OR, RAR 


现在 来 看 我 们 通过 再 次 调用 make-withdraw， 创 建 起 第 二 个 “ 提 款 ”对 象 的 情况 : 

(define W2 (make-withdraw 100)) 
这 样 做 产生 出 的 环境 结构 如 图 3-10 所 示 ， 其 中 显示 了 W2 是 另 一 个 过 程 对 象 ， 也 就 是 说 ， 在 一 
些 代 码 和 一 个 环境 的 序 对 。 通 过 调用 make-withdraw 为 W2 创 建 起 的 环境 是 E2， 它 包 含 了 一 
个 框架 ， 其 中 包含 着 它 自己 的 对 balance 的 局 部 约束 。 在 另 一 方面 ，W1 和 W2 具有 相同 的 代 
码 ， 也 就 是 在 nake-withdraw 体 内 的 那个 Lambda 表 达 式 所 确定 的 代码 “。 我 们 从 这 里 就 可 
以 看 到 ， 为 什么 W1L 和 W2 在 行为 上 完全 是 互相 独立 的 对 象 。 对 W1 的 调用 引用 的 是 保存 在 El 里 
的 状态 变量 balance ， 而 对 W2 的 调用 引用 的 是 E2 里 的 balance。 这 样 ， 修 改 一 个 对 象 的 局 
部 状态 当然 不 会 影响 到 另 一 个 对 象 。 





El E2 balance: 100 


参数 : amount 
HEA... 


图 3-10 使 用 (define W2 (make-withdraw 100)) 创建 第 2 个 对 象 


练习 3.10 “在 make-withdraw 过 程 里 ， 局 部 变量 balance 是 作为 make-withdraw 的 
参数 创建 的 。 我 们 也 可 以 显 式 地 通过 使 用 1et 创建 局 部 状态 变量 ， 就 像 下 面 所 做 的 : 


(define (make-withdraw initial-amount) 
(let ((balance initial-amount) ) 
(lambda (amount) 
(if (>= balance amount) 
{begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")))) 


请 重 温 1.3.2 节 ，1let 实 际 上 是 一 个 过 程 调用 的 语法 糖衣 : 
(let ((<var><exp>)) <body>) 
它 将 被 解释 为 
( (lambda (<var>) <body>) <exp>) 
的 另 一 种 语法 形式 。 请 用 环境 模型 分 析 make-withdraw 的 这 个 版 本 ， 画 出 像 上 面 那样 的 图 
示 ， 说 明 调 用 : 


143 究竟 Wl1 和 W2 是 共享 计算 机 里 保存 的 同一 段 物理 代码 ， 还 是 各 自 维持 自己 的 一 份 拷 贝 ， 则 完全 是 一 种 实现 细 
节 。 我 们 在 第 4 章 实现 的 解释 器 里 采用 共享 代码 的 方式 。 
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(define W1 (make-withdraw 100)) 
(W1 50) 


(define W2 (make-withdraw 100))] 


Prey IER HH] make-withdraw hà WA RA 0E h H RRA HEATA. WARE EY 
环境 结构 有 什么 不 同 吗 ? 


3.2.4 内 部 定义 


1.1.8 节 介绍 了 过 程 可 以 有 内 部 定义 的 思想 ， 这 样 就 引入 了 块 结构 ， 就 像 下 面 计算 平 方 根 
的 过 程 里 的 情况 : 
(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (Square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
| guess 
(sqrt-iter (improve guess)))) 
(sqrt-iter 1.0)) 


现存 我 们 就 可 以 利用 上 面 介 绍 的 环境 模型 ， 去 考察 为 什么 这 些 内 部 定义 具有 所 需要 的 行为 。 
图 3-11 所 示 的 是 在 表达 式 (sqrt 2) 求 值 中 的 一 点 ， 在 那里 ， 内 部 过 程 good~enough? 被 第 
一 次 调用 ， 其 中 的 guess 等 于 1。 


全 局 sqrt: 7 


x:2 


good-enough? 


El improve: ... 


参数 : x sqrt-iter: ... 
过 程 体 : (define good-enough? ...) 
(define improve ...) 


(define sqrt-iter ...) O (@) 
(sqrt-iter 1.0) 
参数 : guess 


调用 sqrt-iter 过 程 体 : (< (abs...) 


..) 
j 


调用 good-enough? 





图 3-11 带 有 内 部 定义 的 sqrt 过 程 
请 注意 这 时 的 环境 结构 。sqrt 是 金 局 环境 里 的 一 个 符号 ， 它 被 约束 到 一 个 过 程 对 象 ， 与 


之 关联 的 环境 就 是 全 局 环境 。 在 sqrt 被 调用 时 ， 形 成 了 一 个 新 的 环境 El ， 它 将 成 为 全 局 环境 
的 下 属 。 在 这 里 ， 参 数 x 约 束 到 2， 而 后 在 El 里 求 值 Ssqrt 的 体 。 由 于 sqrt 体 中 的 第 一 个 表达 
NÆ: 

(define (good-enough? guess) 

(< (abs (- (square guess) x)) 0.001)) 
对 这 一 表达 式 的 求 值 在 环境 E1 里 定义 出 过 程 good-enough? 。 说 得 更 堆 确 一 些 ， 件 号 good- 
enough? 被 加 入 E1 的 第 一 个 框架 里 ， 并 被 约束 于 一 个 过 程 对 象 ， 其 关联 环境 是 El。 与 此 类 似 ， 
improve 和 sqrt-iter 也 在 E1 里 定义 为 过 程 。 为 了 简洁 起 见 ， 在 图 3-11 里 只 显示 了 约束 于 
good-enough? 的 过 程 对象。 . 

在 定义 好 各 个 局 部 过 程 之 后 ， 表 达 式 (sqrt-iter 1.0) 被 求 值 ， 还 是 在 环境 El 里 。 
因此 ， 调 用 在 El 里 约束 于 sqrt~iter 的 过 程 对 象 时 ， 我 们 以 1 作为 实际 参数 。 这 一 调用 创建 
了 另 一 个 环境 E2， 在 其 中 sqrt-iter 的 形 参 g9uess 被 约束 到 1。sqrt-iter 转 而 (从 E2 里 ) 
Lguess 的 值 作为 实际 参数 调用 good-enough?, 这 就 建立 了 另 一 个 环境 E3 ， 在 这 个 环境 里 ， 
(good-enough? 的 参数 ) guess Ral., RAsqrt-iterF#lgood-enough? 里 都 有 名 
字 为 guess 的 形 参 ， 但 它们 是 两 个 不 同 的 局 部 变量 ， 位 于 不 同 的 框架 里 。 还 有 ，E2 和 E3 都 以 
El 作为 其 外 围 环境 ， 这 是 因为 过 程 sqrt-iter 和 good-enough? 都 以 El1 作 为 自己 的 环境 部 
分 。 这 种 情况 造成 的 一 个 后 果 就 是 ， 出 现在 900d-enough? 体 内 部 的 符号 x 将 引用 出 现在 El1 
里 的 x 约束 ， 也 就 是 原来 sqrt 被 调用 时 的 那个 x 的 值 。 这 样 ， 环 境 模 型 已 经 解释 清楚 了 以 局 部 
过 程 定义 作为 程序 模块 化 的 有 用 技术 中 的 两 个 关键 性 质 : 

。 局 部 过 程 的 名 字 不 会 与 包容 它们 的 过 程 之 外 的 名 字 互 相干 扰 ， 这 是 因为 这 些 局 部 过 程 名 

都 是 在 该 过 程 运行 时 创建 的 框架 里 面 约 束 的 ， 而 不 是 在 全 局 环境 里 约束 的 。 
。 局 部 过 程 只 需 将 包含 着 它们 的 过 程 的 形 参 作为 自由 变量 , 就 可 以 访问 该 过 程 的 实际 参数 。 
这 是 因为 对 于 局 部 过 程 体 的 求 值 所 在 的 环境 是 外 围 过 程 求 值 所 在 的 环境 的 下 属 。 

练习 3.11 ”在 3.2.3 节 里 我 们 看 到 ， 环 境 模型 能 如 何 用 于 描述 带 有 局 部 状态 的 过 程 的 行为 ， 
现在 我 们 又 看 到 局 部 定义 如 何 工作 。 一 个 典型 的 消息 传递 过 程 包含 这 两 个 方面 。 现 在 请 考 卡 
3.1.1 节 的 银行 账户 过 程 : 

(define (make-account balance) 

(define (withdraw amount) 
(if (>= balance amount) 
{begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
( (eq? m ’deposit)'deposit) 
(else (error "Unknown request -~ MAKE-ACCOUNT" 


m) ) ) ) 
dispatch) 


请 设法 展示 由 下 面 交互 序列 生成 的 环境 结构 : 
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(define acc (make-account 50)) 
((acc deposit) 40) 
90 


((acc withdraw) 60) 
30 


acc 的 局 部 状态 保存 在 哪里 ?” BERELT TRE : 


(define acc2 (make-account 100)) 


这 两 个 账户 的 局 部 状态 又 是 如 何 保持 不 同 的 ? 环境 结构 中 的 哪些 部 分 被 acc Flacc2 JE? 
3.3 用 变动 数据 做 模拟 


第 2 章 以 复合 数据 作为 构造 具有 多 个 部 分 的 计算 对 象 的 方法 ， 用 于 模拟 真实 世界 里 具有 者 
干 不 同 侧面 的 对 象 。 在 那 一 章 里 ， 我 们 介绍 了 数据 抽象 的 系统 方法 ， 根 据 这 种 方法 ， 各 种 数 
据 结构 应 该 用 构造 函数 (用 于 创建 数据 对 象 ) 和 选择 函数 (用 于 访问 复合 数据 对 象 中 的 各 个 
部 分 ) 来 描述 。 但 是 ， 我 们 现在 又 了 解 到 了 有 关 数 据 结构 的 另外 一 些 情 况 ， 这 是 第 “ 章 中 没有 
涉及 到 的 。 为 了 模拟 那些 由 具有 不 断 变化 的 状态 组 成 的 系统 ， 我 们 除了 需要 做 复合 数据 对 象 
的 构造 和 成 分 选择 之 外 ， 还 可 能 需要 修改 它们 。 为 了 模拟 具有 不 断 变 化 的 状态 的 复合 对 象 ， 
我 们 将 设计 出 与 之 对 应 的 数据 抽象 ， 使 其 中 不 但 包含 了 选择 函数 和 构造 函数 ， 还 有 包含 一 些 
称 为 改变 函数 的 操作 ， 这 种 操作 能 够 修改 有 关 的 数据 对 象 。 举 例 来 说 ， 对 银行 系统 的 模拟 就 
需要 修改 账户 的 余额 。 这 样 ， 表 示 银 行 账户 的 数据 结构 可 能 就 需要 接受 下 面 的 操作 : 

(set-balance! <account> <new-value>) 

它 将 根据 给 定 的 新 值 修 改 指定 账户 的 余额 。 定 义 了 改变 函数 的 数据 对 象 称 为 变动 数据 对 
象 。 : 

ss? Beal SET Reet (Ey eis BS BA “RE”. RAE A hE 
对 于 序 对 的 改变 函数 ， 使 序 对 能 够 作为 构造 变动 数据 对 象 的 基本 构件 。 这 些 改变 函数 能 够 极 
大 地 提升 序 对 的 表达 能 力 , 使 人 能 构造 出 (我 们 在 2.2 节 里 使 用 的 ) 序列 和 树 之 外 的 其 他 数据 
结构 。 我 们 还 要 给 出 一 些 模拟 的 实例 ， 其 中 使 用 了 带 有 局 部 状态 的 对 象 的 集合 ， 以 便 模 拟 复 


3.3.1 变动 的 表 结 构 


针对 序 对 的 基本 操作 一 -cons 、car 和 cdr 一 一 能 用 于 构造 表 结 构 ， 或 者 选 出 表 结 构 中 
的 名 个 部 分 ， 但 它们 不 能 修改 表 结构 。 我 们 至 今 用 过 的 其 他 表 操 作 (例如 append 和 11ist) 
也 都 是 如 此 ， 因 为 它们 都 可 以 基于 cons、car 和 cdr 定 义 出 来 。 要 修改 表 结 构 就 需要 新 的 
操作 。 | E 
针对 序 对 的 基本 改变 函数 是 set-car! 和 set-cdr!。set-car! 要 求 两 个 参数 ， 其 中 的 
第 一 个 参数 必须 是 一 个 序 对 。set-car1! 修 改 这 个 序 对 ， 将 它 的 ca 指针 替换 为 指向 set- 
car! 的 第 二 个 参数 的 指针 ”。 

作为 一 个 例子 ， 我 们 假定 x 约束 到 表 ((a b) c d), y 约 束 到 表 (e f£)， 如 图 3-12 所 示 。 


“4 set-car!#yset-cdr! 的 返回 值 依赖 于 具体 实现 。 与 Set! 一 样 ， 我 们 只 应 该 利用 它们 的 效果 。 | 
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对 表达 式 (set-car! x y) 的 求 值 将 修改 x 约束 的 那个 表 ， 将 它 的 car 用 y 的 值 取 代 。 这 一 
操作 的 结果 如 图 3-13 所 示 。 从 这 个 图 中 ， 我 们 可 以 看 到 结构 X 被 修改 了 ， 现 在 它 将 被 打印 为 
((e f)c d)。 原来 由 被 取代 的 指针 标识 的 那个 表示 表 (a b) 的 序 对 ， 现 在 已 经 从 原来 的 


结构 中 摘除 了 “。 
* 一 ?| siete 


| L 
r — p t 
eA E 


图 3-12 Æx: ((a b)c d) fy: (e £) 


z —>| p | e TA 


图 3-13 对 图 3-12 的 表 做 (set-car! x y) 的 效果 


我 们 可 以 对 图 3-13 和 图 3-14 做 一 个 比较 。 图 3-14 展 示 的 是 执行 (define z (cons y 
(cdr x))) 的 结果 ， 其 中 x 和 y 约 束 到 图 3-12 表 示 的 那样 的 两 个 表 。 这 一 求 值 使 变量 z 约 束 到 
了 由 操作 创建 的 一 个 新 序 对 ， 而 x 约束 的 表 并 没有 改变 。 

set-cdr1 操 作 与 Set-car! 类似， 它们 之 间 的 差异 就 在 于 这 里 被 取代 的 是 序 对 的 cdr 指 
针 ， 而 不 是 caz 指 针 。 对 图 3-12 中 的 表 执 行 (set-cdr! x y) 的 效果 如 图 3-15 所 示 。 在 这 
里 ，x 的 cdr 指 针 被 指向 (e f) 的 指针 取代 。 还 有 ， 原 来 作为 x 的 cdz 的 表 (c d), 现在 也 
已 经 从 这 一 结构 里 摘 掉 子 。 a 


45 从 这 里 可 以 看 出 ， 对 于 表 的 改变 函数 可 能 创建 “废料 " ， 也 就 是 一 些 东 西 ， 它 们 不 再 是 任何 可 访问 结构 的 部 
分 。 我 们 将 在 5.3.2 节 里 看 到 ，Lisp 的 存储 管理 系统 中 包含 着 一 个 废料 收集 器 ， 它 能 弄 清楚 并 回收 由 这 种 不 册 
使 用 的 序 对 所 占据 的 存储 。 
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图 3-15 ”对 图 3-12 的 表 做 (Set-cdr! x y) 的 效果 
cons 通 过 创建 新 序 对 的 方式 构造 新 的 表 ， 而 set-car! 和 set-cdr1! 则 是 修改 现存 的 序 
对 。cons 可 以 用 两 个 改变 函数 和 一 个 过 程 9get-new-pair 实 现 ， 这 个 过 程 返回 一 个 新 序 对 ， 
假定 它 不 是 任何 现存 表 结 构 的 组 成 部 分 。 我 们 先 取得 一 个 序 对 ， 而 后 将 它 car 和 cdr 的 指针 分 
别 设置 到 指定 对 象 ， 最 后 返回 这 个 序 对 作为 cons 的 结果 “。 | 


(define (cons x y) 
(let ((new (get-new-pair))) 


(set-car! new x) 
{Set-cdri new yY) 
new) ) 
练习 3.12 下面 是 2.2.1 节 介绍 过 的 拼接 表 的 过 程 : 
(define (append x y) | 
(if (null? x) 
Y 


(cons (car x) (append (cdr x) y)))) 


46 get-new-~paiz 必 须 作 为 Lisp 系 统 所 需 的 存储 管理 功能 中 的 一 个 操作 ，5.3.1 节 将 讨论 这 一 同 题 。 
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append 通 过 顺序 将 x 的 元 素 cons 到 y. 上 的 方式 构造 出 一 个 新 表 。 append! append %4, 
但 它 是 一 个 改变 函数 而 不 是 一 个 构造 函数 。 它 将 表 拼 接 起 来 的 方式 是 将 两 个 表 粘 起 来 ， 修 改 x 
的 最 后 一 个 序 对 ， 使 它 的 cdr 现 在 变 成 y (对 空 的 x 调用 append! 将 是 一 个 错误 )。 
(define (append! x y) 
(set-cdr! (last-pair x) y) 
X) 
这 里 的 last-pair 是 一 个 过 程 ， 它 返回 其 参数 中 的 最 后 一 个 序 对 : 
(define {last-pair x) 
(if (null? (cdr x)) 


x 
(last-pair (cdr x)))) 


考虑 下 面 的 交互 


(define x (list a ‘b)) 
(define y (list C ‘d)) 
(define z (append x y)) 


Zz 
(a b c d) 


(cdr x) 
<response> 


(define w (append! x y)) 


wW 
(a b c d) 


(cdr x) 


<response> 
其 中 缺少 的 那 两 个 <response> 是 什么 ?请 画 出 盒子 指针 图 形 ， 解 释 你 的 回 舍 。 
练习 3.13 ”考虑 下 面 的 nake-cycle 过 程 ， 其 中 使 用 了 练习 3.12 定 义 的 last-pair 过程; 
(define (make-cycle x) : 
(set-cdr! (last-pair x) X) 
X) 
画 出 盒子 指针 图 形 ， 说 明 下 面 表达 式 创 建 起 的 z 的 结构 : 
(define z (make-cycle (list ’a b ‘c))) 
如 果 我 们 试 着 去 计算 (last-pair z)， 那 会 出 现 什 么 情况 ? 
练习 3.14 ”下面 过 程 相当 有 用 ,但 也 有 些 费 解 : 


(define (mystery x) 
(define (loop x y) 
(if (null? x) 
Y 
(let ((temp (cdr x))) 
(set-cdr! x y) 
(loop temp x)))) 
(loop x ())) 
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loop 里 用 一 个 “临时 ”变量 temp 保存 x 的 cdr 原来 的 值 ， 因为 下 一 行 里 的 set~cdr 1! 将 破坏 
这 个 cdr。 请 一 般 性 地 解释 mystery 做 些 什么 。 假 定 V 通 过 (define v (list’ a’ b’ c’ 
d)) 定义 , 请 画 出 v 约 束 的 表 对 应 的 盒子 指针 图 形 。 假定 现在 求 值 (define w (mystery v)), 
请 画 出 求 值 这 个 表达 式 之 后 结构 vw 和 w 的 盒子 指针 图 形 。v 和 w 的 值 打印 出 来 是 什么 ? 

共享 和 相等 

在 3.1.3 节 里 ， 我 们 提出 了 由 于 引入 赋值 而 产生 的 “同一 ”和 “变化 ”的 理论 问题 。 当 不 
同 的 数据 对 象 共享 某 些 序 对 时 ， 这 些 问 题 就 表现 到 现实 中 来 了 。 例 如 ， 考 虑 由 下 面 求 值 形成 
的 结构 : 


(define x (list Pb)) 
(define zl (cons x x)) 


正如 图 3-16 所 示 ， 这 里 的 z1 是 一 个 序 对 ， 其 car 和 cdr 都 指向 同一 个 序 对 X。 这 种 z1 的 Car 和 
cdr 共 享 x 是 cons 的 简单 实现 方式 的 自然 结果 。 一 般 而 言 ， 用 cons 构 造 出 的 表 结 果 总 是 序 对 
的 一 个 相互 链接 的 结构 ， 其 中 可 能 会 有 许多 独立 的 序 对 被 一 些 不 同 结构 所 共享 。 


aele 


x 
= —> 9| ?| 
J È 


图 3-16 由 (cons x x) 形成 的 表 2z1 
与 图 3-16 不 同 ， 图 3-17 展 示 的 是 由 下 式 创 建 出 的 结构 : 


(define z2 (cons (list ‘a ’b) (list ‘a ’b)})) 





图 3-17 由 (cons (list ’a ’b) (list ’a ’b)) 形成 的 表 z2 


在 这 一 结构 中 ， 两 个 表 (a b) 的 各 个 序 对 互 不 相同 ， 虽 然 其 中 的 符号 是 共享 的 2 。 

作为 表 考 虑 ，z1 和 2z2 表 示 是 “同一 个 " 表 ((a b) a b)。 一 般 而 言 ， 如 果 我 们 只 用 
cons, 、Ccar 和 cdr 对 各 种 表 进 行 操 作 ， 其 中 的 共享 就 完全 不 会 被 赛 觉 。 然 而 ， 如 果 人 允许 改变 
表 结 构 的 话 ， 共 享 的 情况 就 会 显现 出 来 了 。 作 为 考察 这 种 共享 会 产生 什么 影响 的 例子 ， 现 在 
考虑 下 面 的 过 程 ， 它 将 修改 被 它 应 用 的 那个 结构 的 car: 

(define (set-to-wow! x) . 

47 这 两 个 序 对 不 同 ， 是 因为 对 cons 的 每 次 调用 总 返回 一 个 新 序 对 。 符 号 共享 是 因为 在 Scheme 里 对 应 每 个 名 字 


的 符号 是 唯一 的 。 因 为 Scheme 不 提供 改变 符号 的 方式 ， 因 此 这 一 共享 是 不 可 分 辨 的 。 请 注意 ， 正 是 这 种 共享 
使 我 们 能 用 eq? 比较 符号 ， 这 个 过 程 就 是 简单 比较 两 个 指针 是 否 相等 。 


(set-car! (car x) ‘wow) 
X) 
虽然 z1 和 2z2 可 以 看 作 是 “同样 的 ”结构 ， 将 set-to-wow! 应 用 于 它们 ， 就 会 产生 不 同 的 结 
果 。 对 于 z1 而 言 ， 修 改 其 ca 也 就 同时 修改 了 它 的 cdz ， 因 为 在 zi 里 的 car 和 cdr 是 同一 个 
序 对 。 而 对 于 z2 ， 由 于 其 car 和 cdr 是 不 同 的 ， 所 以 set-to-wow! 只 修改 了 它 的 car : 
zl 
((a b) a b) 
(set-to-wow! zil) 
((wow b) wow b) 
Z2 
((a b) a b) 


(set-to-wow! 22) 
( (wow b) a b) 


检查 表 结 构 是 否 共 享 的 一 种 方式 是 使 用 谓词 eq? ， 这 个 谓词 在 2.3.1 市 里 介绍 过 ， 古 作为 
检查 两 个 符号 是 否 相同 的 手段 。 说 得 更 一 般 些 ， 实 际 上 (eq? x y) 检查 x 和 y 是 否 为 同一 个 
对 象 (也 就 是 说 ，x 和 Yy 作 为 指针 是 否 相 等 )。 这 样 ， 对 于 图 3-16 和 图 3-17 所 定义 的 z1 和 22 ， 
(eq? (car 21) (cdr z1)) 是 真 而 (eq? (car z2) (cdr 22)) 是 假 。 

”在 下 一 节 里 我 们 可 以 看 到 ， 利用 共享 结构 可 以 极 大 地 扩展 能 够 用 序 对 表示 的 数据 结构 的 
范围 。 在 另 一 方面 ， 共 享 也 可 能 带 来 危险 ， 因 为 对 这 种 结构 的 修改 将 会 影响 那些 恰好 共享 着 
被 修改 了 的 序 对 的 结构 。 改 变 函 数 set-car! 和 set-cdr1! 的 使 用 需要 特别 小 心 ， 除 非 我 们 
很 好 地 理解 了 数据 对 象 的 共享 情况 ， 否 则 使 用 改变 函数 就 会 造成 意 想不到 的 结果 ”。 

练习 3.15 ”请 画 出 盒子 指针 图 形 ， 解 释 set-to-wow! 对 于 上 面 结 构 21 和 2z2 的 作用 。 
练习 3.16 Ben Bitdiddle 决 定 写 一 个 过 程 ， 统 计 任 何 一 个 表 结 构 中 的 序 对 个 数 。 “KAD 
单 了 ,” 他 说 , “任何 表 结 构 里 序 对 的 个 数 就 是 其 car 部 分 的 统计 值 加 上 其 car 部 分 的 统计 值 ， 
再 加 上 1 ， 以 计 入 当前 这 个 序 对 ”"。 所 以 Ben 写 出 了 下 面 过 程 : 
(define (count-pairs x) 
(if (not (pair? x)) 
0 
(+ (count-pairs (car X)) 
(count-pairs (cdr x)) 
1))) 


请 说 明 这 一 过 程 并 不 正确 。 请 画 出 几 个 表示 表 结 构 的 盒子 指针 图 ， 它 们 都 正好 由 3 个 序 对 构成 ， 
而 Ben 的 过 程 对 它们 将 分 别 返回 3 ，4，7 ， 或 者 根本 就 不 返回 。 

练习 3.17 ”请 设计 出 练习 3.16 中 count-pairs 过 程 的 一 个 正确 版 本 ,使 它 对 任何 结构 者 
能 正确 返回 不 同 序 对 的 个 数 。 (提示 : 遍历 有 关 的 结构 ， 维 护 一 个 辅助 性 数据 结构 ， 用 它 记 录 


Ms 在 处 理 变动 数据 对 象 的 共享 问题 时 ， 最 微妙 的 地 方正 好 就 反应 了 3.1.3 节 里 提出 的 有 关 “ 同 一 ”和 “变化 ”的 
基本 问题 。 我 们 在 那里 说 过 ， 如 果 和 希望 这 个 语言 里 容许 做 修改 ， 那 么 每 个 复合 对 象 就 必须 有 一 个 “标识 ”， 
这 应 该 是 某 种 不 同 于 构造 起 它 的 那些 片段 的 东西 。 在 Lisp 里 ， 我 们 所 认为 的 “同一 ”也 就 是 检查 客体 乙 同 的 
eq? ， 采 用 指针 相等 表示 。 这 是 因为 在 大 部 分 Lisp 实现 里 ， 一 个 指针 本 质 上 就 是 一 个 存储 地 址 ， 在 这 里 “ 解 
决 ” 对 象 标识 问题 的 方式 ， 是 假设 数据 对 象 “ 本 身 ” 也 是 一 些 信息 ， 存 储 在 计算 机 中 某 一 些 特定 的 存储 位 是。 
对 于 简单 的 Lisp 程 序 而 言 ， 这 也 就 足够 了 。 但 是 这 并 不 是 解决 计算 模型 中 “同一 ”问题 的 一 般 性 方法 。 
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已 经 计算 过 的 序 对 的 轨迹 . ) 
练习 3.18 ”请 写 一 个 过 程 检 查 一 个 表 ， 确 定 其 中 是 否 包 含 环 ， 也 就 是 说 ， 如 果 某 个 程序 
打算 通过 不 断 做 cQr 去 找到 这 个 表 的 结尾 ， 是 否 会 陷入 无 穷人 循环 。 练 习 3.13 构 造 了 这 种 表 。 
练习 3.19 重 做 练习 3.18， 采 用 一 种 只 需要 第 量 空间 的 算法 (需要 一 种 很 聪明 的 想法 )。 


改变 也 就 是 赋值 
在 介绍 复合 数据 时 ， 我 们 在 2.1.3 节 看 到 ，、 序 对 可 以 纯粹 地 用 过 程 来 表示 : 


(define (cons x y) 
(define (dispatch m) 
(cond ((eq? m car) x) 
= ((eq? m ’edr) y) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) 


(define (car z) (z car)) 
(define (cdr z) (z ‘cdr)) 


这 种 认识 对 于 变动 数据 也 是 对 的 ， 我 们 可 以 将 变动 数据 对 象 实现 为 使 用 赋值 和 局 部 状态 的 过 
程 。 举 例 说 ， 我 们 可 以 扩充 上 面 的 序 对 实现 ， 采用 与 3.1.1 市 类 似 的 方式 ， 用 make-account 
实现 银行 账户 的 方式 处 理 set-car! 和 set-cdr! 的 问题 。 
(define (cons x y) 
(define (set-x! v) (set! x v)) 
(define (set-y! v) (set! y v)) 
(define (dispatch m) | 
{cond ((eq? m Car) x) 
((eq? m cdr) y) 
( (eq? m ’set-car!) set-x!) 
((eq? m ‘set-cdr!) set-y!) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) | 


(define (car z} (z ‘car)) 
(define (cdr z) (z ‘cdr)) 


(define (set-car! z new-value) 
((z ’set-car!) new-value) 


2 ) 


(define (set-cdr! z new-value) 
((z ’set-cdr!) new-value) 


z) 


从 理论 上 说 ， 为 了 表现 变动 数据 的 行为 ， 所 需要 的 全 部 东西 也 就 是 赋值 。 只 要 将 赋值 纳 
入 这 一 语言 ， 我 们 就 引出 了 所 有 的 问题 ， 不 仅 是 赋值 ， 而 且 也 包括 一 般 性 的 变动 对 象 ”。 
练习 3.20 ”请 画 出 显示 下 面 一 系列 表达 式 的 求 值 过 程 的 环境 图 示 ; 


to 而 在 另 一 方面 ， 从 实现 的 观点 看 ， 赋 值 要求 我 们 去 修改 环境 ， 而 环境 本 身 也 是 一 个 变动 数据 结构 这 样 ， 赋 
值 和 变动 就 具有 同等 的 地 位 ， 可 以 相互 实现 。 


AO FR TRE RE 


(define x (cons I 2)) 
(define 2 (cons x x)) 
(set-car! (cdr z) 17) 


(car x) 
17 
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3.3.2 队列 的 表示 


利用 改变 和 函数 set-car! 和 set-cdr!， 我 们 可 以 用 序 对 构造 出 一 些 单 靠 cons 、car 和 
cdr 无 法 构造 的 数据 结构 。 这 一 节 将 展示 如 何 用 序 对 表示 一 种 称 为 队列 的 数据 结构 。3.3.3 节 
将 展示 如 何 表 示 称 为 表格 的 数据 结构 。 : 

一 个 队列 是 一 个 序列 ， 数 据 项 只 能 从 一 端 插入 (这 称 作 队 列 的 末端 )， 只 能 从 另 一 端 删除 
(队列 的 前 端 )。 图 3-18 显 示 的 是 一 个 初始 为 空 的 队列 ， 而 后 插入 数据 项 a 和 b ， 而 后 删除 a ， 又 
插入 c 和 qd ， 再 后 又 删除 b 。 由 于 数据 项 是 按照 它们 插入 的 顺序 删除 ， 因 此 队列 有 时 也 被 称 为 
FIFO (先进 先 出 ) 缓冲 区 。 : 


操作 | 结果 的 队列 
{define q (make-queue) ) | 
(insert-queue! q a) 

(insert-queue! q ’b) 

(delete-queue! q) 


(insert-queue! q ‘c} 


(insert-queue! q ‘d) 


(delete-queue! q) 





图 3-1 队列 操作 


按照 数据 抽象 的 说 法 ， 队 列 可 以 看 作 是 由 下 面 一 组 操作 定义 的 结构 : 
“一 个 构造 另 妆 : 

(make-queue ) 

它 返 回 一 个 空 队列 (不 包含 数据 项 的 队列 )。 
。 两 个 选择 函数 ， 

(empty-queue? <queue>) 

检查 队列 是 个 为 至 。 

(front-queue <queue> ) 

返回 队列 前 端的 对 象 ， 如 果 队 列 为 空 就 报告 一 个 错误 。 它 不 修改 队列 。 
,两 个 改变 函数 : 

(insert-queue! <queue> <item>) 

将 数据 项 插入 队列 末端 ， 返 回 修改 过 的 队列 作为 值 。 

(delete-queue! <gueue>) 


删除 队列 前 端的 数据 项 ， 并 返回 修改 后 的 队列 作为 值 。 如 果 删 除 之 前 队列 为 空 就 报告 错误 。 
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由 于 队列 就 是 数据 项 的 序列 ， 我 们 当然 可 以 将 它 表 示 为 一 个 常规 的 表 。 这 样 ， 队 列 的 前 
端 就 是 表 的 car ， 向 队列 中 插入 数据 项 就 是 将 一 个 项 附加 到 表 的 最 后 ， 而 从 队列 里 删除 一 个 
项 就 是 取 这 个 表 的 cdr 。 但 是 这 种 表示 是 相当 低 效 的 ， 这 是 因为 ， 为 了 插入 一 个 数据 项 ， 我 
们 就 必须 扫 拉 整个 表 ， 直 至 到 达 表 尾 。 由 于 扫描 一 个 表 的 方法 只 有 通过 执行 一 系列 的 cdr 操 
作 ， 对 于 n 个 项 的 表 ， 这 种 扫描 就 需要 做 B(n) 步 。 简 单 地 修改 一 下 表 的 表示 方式 ， 就 可 以 克服 
这 种 缺点 ， 使 队列 操作 都 只 要 需 8(1) 步 就 能 实现 ， 也 就 是 说 ， 使 所 需 的 步 数 完全 与 队列 的 长 
度 无 关 。 | 
采用 表 的 表示 形式 ， 引 出 的 一 个 问题 是 为 找到 表 尾 需要 扫描 整个 表 。 这 里 的 原因 就 在 于 ， 
表 的 标准 表示 方式 是 用 一 个 序 对 的 链 ， 虽 然 这 样 可 以 很 方便 地 提供 一 个 表 的 开始 指针 ， 人 得 却 
不 能 为 我 们 提供 访问 表 尾 的 方便 方法 。 如 果 要 避免 这 一 缺陷 ， 那 就 需要 修改 表示 方式 ， 将 队 
列表 示 为 一 个 表 ， 并 带 有 一 个 指向 表 的 最 后 序 对 的 指针 。 采 用 了 这 种 方式 ， 如 果 我 们 需要 插 
入 一 个 数据 项 时 ， 那 就 只 需 考察 这 个 尾 指 针 ， 因 此 就 可 以 避免 对 表 的 扫描 了 。 

这 样 ， 队 列 被 表示 为 一 对 指针 front-ptr 和 rear-ptr， 它 们 分 别 指向 一 个 常规 表 中 的 
第 一 个 序 对 和 最 后 一 个 序 对 。 由 于 我 们 希望 队列 成 为 一 个 可 标识 对 象 ， 为 此 可 以 将 这 两 个 指 
针 cons 起 来 。 这 样 ， 队 列 本身 也 将 是 两 个 指针 的 cons 。 图 3-19 显 示 了 这 种 表示 的 情况 。 






rear-ptr 


图 3-19 将 队列 实现 为 一 个 带 有 首尾 指针 的 表 


为 了 定义 出 队列 的 各 种 操作 ， 我 们 将 使 用 下 面 几 个 过 程 ， 它们 可 以 用 于 选择 或 者 修改 队 
列 的 前 端 和 末端 指针 。 


(define (front-ptr queue) (car queue) ) 

(define (rear-ptr queue) (cdr queue) ) 

(define (set-front-ptr! queue item) (set-car! queue item) ) 

(define (set-rear-ptr! queue item) (set-cdr! queue item) ) 

MAERA ATLA BAP ASS SPREE TT. BNR — TPA IAD FRET ST Res ET 
那么 就 认为 这 个 队列 为 空 : | / 

(define (empty-queue? queue) {null? (front-ptr queue) ) ) | 
构造 函数 make-queue 返 回 一 个 初始 为 空 的 表 ， 也 就 是 一 个 序 对 ， 其 car 和 cdz 都 是 空 表 ， 

(define (make-queue) (cons °() °{())) | | 
在 需要 选取 队列 前 端的 数据 项 时 ， 我 们 就 返回 由 前 端 指针 指向 的 序 对 的 car : 


(define (front-queue queue) 
(if (empty-queue? queue) 
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(error "FRONT called with an empty queue" queue) 
(car (front-ptr queue) ))) 


要 向 队列 中 插入 一 个 数据 项 ， 我 们 将 按照 图 3-20 中 表明 的 方式 ， 首 先 创建 起 一 个 新 序 对 ， 其 
car 是 需要 插入 的 数据 项 ， 其 cdr 是 空 表 。 如 果 这 一 队列 原来 是 空 的 ， 那 么 就 让 队列 的 前 端 指 
针 和 后 端 指针 都 指向 这 个 新 序 对 。 否 则 就 修改 队列 中 最 后 一 个 序 对 ， 使 之 指向 这 个 新 序 对 ， 
而 后 让 队列 的 后 端 指针 也 指向 这 个 新 序 对 。 
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图 3-20 ”对 图 3-19 的 队列 使 用 (insert-queue! q’ d) 的 结果 


(define (insert-queue! queue item) 
(let ((new-pair (cons item °()))) 
(cond ((empty-queue? queue) 
(set-front—-ptr! queue new-pair) 
(set-rear-ptr! queue new-pair) 
queue ) 
(else | l 
(set-cdr! (rear-ptr queue) new-pair) 
{set-rear-ptr! queue new-pair) 


queue) ) ) ) ) 


要 从 队列 的 前 端 删除 一 个 数据 项 ， 我 们 只 需要 修改 队列 的 前 端 指针 ， 使 它 指向 队列 中 的 
第 二 个 数据 项 。 通 过 队列 中 第 一 项 的 cdr 指 针 就 可 以 找到 这 个 项 〈 参 见 图 3-21) ”: 


a 一 ?| & 






rear-ptr 





front-ptr 


9 let — ie let (el et ie 
a 加 加 


图 3-21 对 图 3-20 的 队列 使 用 (delete-queue! q) WAR 


(define (delete-queue! queue) 


(cond ((empty-queue? queue) 
(error "DELETE! called with an empty queue" queue) ) 


(else 


5 如 果 队 列 的 第 一 个 数据 项 也 是 最 后 一 个 ， 在 删除 之 后 前 端 指针 将 变 成 空 表 ， 这 也 就 会 使 队列 变 成 空 的 。 此 时 
不 必 去 关心 未 端 指针 ， 虽 然 它 还 指 着 那个 被 删除 的 数据 项 。 因 为 empty-queue? 只 看 前 端 指针 。 
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(set-front-ptr! queue (cdr (front-ptr queue) ) ) 
queue) ) 


练习 3.21 Ben Bitdiddle 决 定 对 上 面 描 述 的 队列 实现 做 一 些 测 试 ， 他 顺序 地 给 Lisp 解 释 句 
输入 了 下 面 的 试验 表达 式 : 

(define gl (make-queue) ) 

(insert~queue! ql al) 

((a) a) 

(insert-queue! ql ‘b) 

((a b) b) 

(delete-queue! ql) 

((b) b) 


(delete-queue! ql) 
(() b) 


“不 对 ”， 他 抱怨 说 , “解释 器 的 响应 说 明 最 后 一 个 数据 项 被 插入 了 队列 两 次 ， 因 为 我 把 两 个 数 
据 项 都 删除 了 ， 但 是 第 二 个 还 在 那里 。 因 此 此 时 这 个 表 不 空 ， 虽 然 它 应 该 已 经 空 了 。 Eva 
Lu Ator 说 是 Ben 错 误 理 解 了 所 出 现 的 情况 。“ 这 里 根本 没有 数据 项 进入 队列 两 次 的 事情 ， 她 
解释 说 , “问题 不 过 是 Lisp 的 标准 输出 函数 不 知道 应 如 何 理 解 队列 的 表示 。 如 果 你 希望 能 看 到 
队列 的 正确 打印 结果 ， 你 就 必须 自己 去 为 队列 定义 一 个 打印 过 程 。” 请 解释 Eva Lu 说 的 是 什么 
意思 ， 特 别 是 说 明 ， 为 什么 Ben 的 例子 产生 出 那样 的 输出 结果 。 请 定义 一 个 过 程 pPrint- 
queue ， 它 以 队列 为 输入 ， 打 印 出 队列 里 的 数据 项 序列 。 

练习 3.22 ”除了 可 以 用 一 对 指针 表示 队列 外 ， 我 们 也 可 以 将 队列 构造 成 一 个 带 有 局 部 状 
态 的 过 程 。 这 里 的 局 部 状态 由 指向 一 个 常规 表 的 开始 和 结束 指针 组 成 。 这 样 ， 过 程 make- 
queue HHEH TAREA: 


(define (make-queue) 
(let ((front-ptr ...) 
{rear-ptr ...)) 
< 内 部 过 程 定义 > a 
(define (dispatch m) ...) 
dispatch} ) 
请 完成 make-queue 的 定义 ， 进 而 采用 这 一 表示 提供 队列 操作 的 实现 。 
练习 3.23 ” 双 端 队列 (deque) 也 是 一 种 数据 项 的 序列 ， 其 中 的 数据 项 可 以 从 前 端 或 后 端 
插入 和 删除 。 双 端 队列 的 操作 包括 构造 函数 make-deque， 谓 词 empty-deque?， 选 择 国 数 
front-deque、rear-deque ， 改 变 图 数 Eront-insert-degue!、Iear-insert- 
deque!, front-delete-deque!, rear-delete-deque!, 请 说 明 如 何 用 序 对 表示 双 
端 队 列 ， 并 给 出 各 个 操作 的 实现 。 所 有 操作 都 应 该 在 B@(1) 步骤 内 完成 ”。 


3.3.3 表格 的 表示 


在 第 2 章 里 研究 集合 表示 的 各 种 方式 时 ， 我 们 曾经 在 2.3.3 节 提 到 过 有 关 维 护 一 个 由 标识 关 
键 码 索 引 的 记录 表格 的 问题 。 在 2.4.3 节 里 实现 数据 导向 的 程序 设计 时 ， 也 大 量 地 使 用 了 两 维 


st 请 当心 ， 不 要 让 解释 器 试图 去 打印 一 个 包含 环 的 结构 (参见 练习 3.13)。 


的 表格 ， 在 其 中 存储 着 有 关 的 信息 ， 用 两 个 关键 码 去 提取 。 现 在 我 们 要 考察 如 何 用 一 种 变动 
的 表 结 构 来 实现 表格 。 

我 们 首先 考虑 一 维 表格 的 问题 ， 在 这 种 表格 里 ,每 个 值 保 存在 一 个 关键 码 之 下 。 我 们 要 
将 这 种 表格 实现 为 一 个 记录 的 表 ， 其 中 的 每 个 记录 将 实现 为 由 一 个 关键 码 和 一 个 关联 值 组 成 
的 序 对 。 将 这 种 记录 连接 起 来 构成 一 个 序 对 的 表 ， 让 这 些 序 对 的 car 指针 上 顺序 指向 各 个 记录 。 
这 些 作为 连接 结构 的 序 对 就 成 为 这 一 表格 的 骨架 。 为 了 在 辣 表 格 里 加 入 记 采 时 能 有 一 个 可 以 
修改 的 位 置 ， 我 们 将 这 种 表格 构造 为 一 种 带 表 头 单元 的 表 。 带 表 头 单元 的 表 在 开始 处 有 一 个 
特殊 的 骨架 序 对 ， 其 中 保存 着 一 个 号“ 记录 ”一 一 目前 在 这 里 存放 一 个 特殊 符号 * 七 ab1e*。 
图 3-2< 显 示 了 下 面 表格 的 盒子 指针 图 。 


a: 1 
b: 2 
C: 3 


table 
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图 3-22 带 表 头 单元 的 表 


为 了 从 表格 里 提取 信息 ， 我 们 用 了 一 个 lookup 过 程 ， 它 以 一 个 关键 码 为 参数 ， 返 回 与 之 
相关 联 的 值 (如 果 在 这 个 关键 码 之 下 没有 值 就 返回 假 )。lookup 是 基于 assoc 操 作 定 义 的 ， 
这 一 操作 要 求 一 个 关键 码 和 一 个 记录 的 表 作 为 参数 。 请 注意 ，assoc 根 本 不 去 看 那个 哑 记 了 录 ， 
它 返 回 以 给 定 关键 码 为 car 的 那个 记录 '”。1lookup 检 查 由 assoc 返 回 的 结果 记录 契 否 为 假 ， 
而 后 返回 该 记 东 中 的 值 (edr), 


(define (lookup key table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(cdr record) 
false) )) 


(define (assoc key records) 
(cond ((null? records) false) 
( (equal? key (caar records)} (car records) ) 
(else (assoc key (cdr records))))) 
要 在 一 个 表格 里 某 个 特定 的 关键 码 之 下 插入 一 个 值 ， 我 们 首先 用 assoc 查 看 该 表格 里 古 
否 已 经 有 以 此 作为 关键 码 的 记录 。 如 果 没 有 就 cons 起 这 个 关键 码 和 相应 的 值 ， 构 造 出 一 个 新 
ik, REBAR ICR ROR, ， 位 于 哑 记 录 之 后 。 如 果 表 格 里 已 经 有 了 共有 该 关键 码 


92 由 于 assoc 里 用 的 是 egual2? ， 它 能 允许 以 符号 、 数 值 或 者 表 结 构 作为 关键 码 。 
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的 记录 ， 那 么 就 将 该 记录 的 cdz 设置 为 这 个 新 值 。 表 格 的 头 单元 为 我 们 提供 了 一 个 明确 的 位 
置 ， 使 我 们 在 插入 新 记录 时 能 确定 相应 的 修改 位 置 ”。 | 


(define (insert! key value table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(set-cdr! record value) 
(set-cdr! table 
(cons (cons key value) (cdr table))))) 
‘Ok ) 


在 构造 一 个 新 表格 上 时， 我 们 只 需要 创建 起 一 个 包含 符号 *table* 的 表 : 
(define (make-table) 
(list **table*)) 


两 维 表格 
两 维 表格 里 的 每 个 值 由 两 个 关键 码 索 引 。 我 们 可 以 将 这 种 表格 构造 为 一 个 一 维 表格 ， 其 
中 的 每 个 关键 码 又 标识 了 一 个 子 表格 。 图 3-23 中 的 盒子 指针 图 表示 的 是 下 面 表格 : 


table 


TIZ 
TI GIS 
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ole) Lele [gia 
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图 3-23 一 个 两 维 表格 


1s3 这 样 ， 第 一 个 骨架 序 对 也 就 成 为 代表 这 个 表 列 “本 身 ” 的 对 象 ， 也 就 是 说 ， 指 向 这 个 表 列 的 指针 就 是 指 癌 这 
个 序 对 的 指针 。 这 个 骨架 序 对 总 代表 着 表 列 的 开始 。 如 果 我 们 不 采用 这 种 安排 方式 insert! 过 程 每 次 向 表 
列 中 加 入 一 个 新 记录 后 ， 就 需要 返回 表 列 的 新 起 始 位 置 。 


6 AR E 


xs 42 


letters: 
a: 97 
b: 98 


这 其 中 有 两 个 子 表格 。( 子 表格 并 不 需要 特殊 的 头 单元 符号 ， 因 为 标识 子 表格 的 关键 码 就 能 起 
到 这 一 作用 。) 

在 需要 查找 一 个 数据 项 时 ， 我 们 先 用 第 一 个 关键 码 确定 对 应 的 子 表 格 ， 而 后 用 第 二 个 关 
键 码 在 这 个 子 表格 里 确定 记录 。 


(define (lookup key-1 key-2 table) 
(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 

(cdr record) 
false) ) 

false))) 


如 果 需 要 将 一 个 新 数据 项 插入 到 一 对 关键 码 之 下 ， 我 们 首先 用 assoc 去 查看 任 第 一 个 天 
键 码 下 是 否 存在 一 个 子 表格 。 如 果 没 有 ， 那 么 就 构造 起 一 个 新 的 子 表格 ， 其 中 只 包含 一 个 记 
录 (key-2 ,value)， 并 将 这 一 子 表 格 插入 到 表格 中 的 第 一 个 关键 码 之 下。 如果 表格 里 已 经 
有 了 对 应 于 第 一 个 关键 码 的 子 表格 ， 那 么 就 将 新 值 插入 该 子 表格 ， 用 的 就 是 上 面 所 述 的 在 一 
维 表格 中 插入 的 方法 : 

(define (insert! key-1 key-2 value table) 

(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
{if record 
{set-cdr! record value) 
{set-cdr! subtable 
(cons (cons key-2 value) 
{cdr subtable))))) 
(set-cdr! table © 
(cons {list key-1 
(cons key-2 value) ) 
(cdr table))))) 
OK ) 


创建 局 部 表格 

上 面 定义 的 lookup 和 insert! 操作 都 以 表格 作为 一 个 参数 ， 这 也 使 我 们 可 以 将 它们 用 
到 包含 多 个 表格 的 程序 里 。 处 理 多 个 表格 的 另 一 种 方式 是 为 每 个 表格 提供 一 对 独 并 的 lookup 
和 insert! 过 程 。 为 了 能 够 这 样 做 ， 我 们 可 以 用 过 程 的 方式 表示 表格 ， 将 表格 表示 为 一 个 以 
局 部 状态 的 方式 维持 着 一 个 内 部 表格 的 对 象 。 在 接 到 一 个 适当 的 消息 时 ， 这 种 “表格 对 象 
将 提供 相应 的 过 程 ， 实 现 对 内 部 表格 的 各 种 操作 。 下 面 就 是 一 个 采用 这 种 方式 表示 两 维 表 格 
AY AE aM 28 : 


(define (make-table) 
(let ((local-table (list ‘*table*))) 


(define (lookup key-1 key-2) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable 
(let (({record {assoc key-2 (cdr subtable)))) 
(if record 
(cdr record) 
false) ) 
false))) 
(define (insert! key-1 key-2 value) 
{let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable | 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! local-table 
(cons (list key-1l 
(cons key-2 value) ) 
(cdr local-table))))) 
OK ) 
(define (dispatch m) 
(cond ((eq? m ’lookup-proc) lookup) 
((eq? m ’insert-proc!) insert!) 
(else (error "Unknown operation -- TABLE" m)))) 
dispatch) ) 


利用 make-table， 我 们 就 能 做 出 在 2.4.3 节 里 为 做 数据 导向 的 程序 设计 而 用 的 get 和 
put 操 作 了 。 它 们 的 实现 如 下 : 


(define operation-table (make-table) ) 
(define get (operation-table ‘lookup-proc) ) 
(define put (operation-table ‘insert-proc!)) 


过 程 get 以 两 个 关键 码 为 参数 ，put 以 两 个 关键 码 和 一 个 值 为 参数 。 这 两 个 操作 都 访问 同一 个 
局 部 表格 ， 这 一 表格 被 封装 在 由 对 make-table 的 调用 创建 起 的 对 象 里 面 。 

练习 3.24 ”在 上 面 的 表格 实现 里 ， 对 于 关键 码 的 检查 用 equal? 比较 是 否 相 等 ( 它 被 
assoc 调 用 ) 。 这 一 检查 方式 并 不 一 定 总 是 合适 的 。 举 例 来 说 ， 我 们 可 能 需要 一 个 采用 数值 关 
键 码 的 表格 ， 对 于 这 种 表格 ， 我 们 需要 的 不 是 找到 对 应 数值 的 准确 匹配 ， 而 可 以 是 有 一 点 容 
许 误 差 的 数值 。 请 设计 一 个 表格 构造 国 数 make-tablLe， 它 以 一 个 same-key? 过 程 作 为 参数 ， 
用 这 个 过 程 检 查 关键 码 的 “相等 ”与 否 。make- table 过 程 应 该 返回 一 个 过 程 9%spatcn， 
可 以 通过 它 它 去 访问 对 应 于 局 部 表格 的 1ookuPp 和 insezrt! 过程。 

练习 3.25 “请 推广 一 维 表格 和 两 维 表格 的 概念 ， 说 明 如 何 实现 一 种 表格 ， 其 中 的 值 可 以 
保存 在 任意 个 关键 码 之 下 ， 不 同 的 值 可 能 对 应 于 不 同 数目 的 关键 码 。 对 应 的 1cokuP 和 
insert1 过 程 以 一 个 关键 码 的 表 作为 参数 去 访问 这 一 表格 。 

练习 3.26 ”为 了 在 上 面 这 样 实现 的 表格 中 检索 ， 我 们 就 需要 扫描 这 个 记录 表 。 从 本 质 上 
说 ， 这 就 是 2.3.3 节 中 的 无 序 表 表 示 方 式 。 对 于 很 大 的 表格 ， 以 其 他 方式 构造 表格 可 能 更 加 高 
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效 。 请 描述 一 种 表格 实现 ， 其 中 的 (key, value) 记录 用 二 又 树 形式 组 织 起 来 。 这 要 假定 关键 
码 能 够 以 某 种 方式 排序 〈 例 如 ， 数 值 序 或 者 字典 序 )。 (请 与 第 “ 章 的 练习 4.00 比 较 。) 
练习 3.27 记忆 法 (memoization ， 或 称 表格 法 ，tabulation ) 是 一 种 技术 ， 采 用 这 种 技术 
的 过 程 将 把 前 面 已 经 算出 的 一 些 值 记录 在 局 部 状态 里 。 这 种 技术 可 能 大 大 改变 一 个 程序 的 性 
能 。 在 一 个 采用 记忆 法 的 过 程 里 维持 着 一 个 表格 ,其 中 保存 着 前 面 已 经 做 过 的 调用 求 出 的 值 ， 
以 产生 这 些 值 的 实际 参数 作为 关键 码 。 当 这 种 过 程 被 调用 去 计算 菜 个 值 时 ， 它 首先 检查 有 关 
的 表格 ， 看 看 相应 的 值 是 否 已 经 在 那里 ， 如 果 找 到 了 就 直接 返回 这 个 值 ， 否则 就 以 正 前 方式 
计算 出 相应 的 值 ， 并 将 它 保 存 到 这 个 表格 里 。 作 为 记忆 性 过 程 的 一 个 例子 ， 让 我 们 重 瘟 一 下 
1.2.2 节 里 计算 斐 波 那 契 数 的 指数 计算 过 程 ， 
(define (fib n) 
{cond ({= n 0) 0) 
((= nl) 1) 
(else (+ (fib (- n 1)) 
(fib (- n 2)))))) 
同一 过 程 的 带 记 录 版 本 是 : 
(define memo-fib 
(memoize (lambda (n) 
(cond ((= n 0) 0) 
((= nl) 1) | 
(else (+ (memo-fib (- n 1)) 
(memo-fib (- n 2)))))))) 
FCP RY ids a8 NY: 
(define (memoize f) 
(let ((table (make-table))) 
(lambda (x) 
{let ((previously-computed-result (lookup x table))) 
(or previously-computed-result 
(let ((result (f x))) 
(insert! x result table) 
result)))))) | 
请 为 (memo-fib 3) 的 计算 画 出 一 个 环境 图 ， 解 释 为 什么 nemo-~fib 能 以 正比 于 "的 步 数 计 
算出 第 2 个 斐 波 那 契 数 。 如 果 简 单 地 将 memo-fib 定 义 为 (memoize fib)， 这 一 模式 还 能 工 
作 吗 ? | 


3.3.4 ”数字 电路 的 模拟 器 


设计 复杂 的 数字 系统 ， 例 如 计算 机 ， 是 一 种 非常 重要 的 工程 活动 。 数 字 系 统 都 是 通过 连 
接 一 些 简 单元 件 构造 起 来 的 。 虽 然 这 些 元 件 单独 看 起 来 功能 都 很 简单 ， 它 们 连接 起 来 形成 的 
网 络 就 可 能 产生 非常 复杂 的 行为 。 对 提出 的 电路 设计 做 计算 机 模拟 ， 是 一 种 数字 系统 工程 师 
广泛 使 用 的 重要 工具 。 在 这 一 节 里 ， 我 们 要 设计 一 个 执行 数字 逻辑 模拟 的 系统 。 这 一 系统 是 
通常 称 为 事件 驱动 的 模拟 程序 的 一 个 典型 代表 ， 在 这 类 系统 里 ， 一 些 活动 (“事件 ”) 引发 另 
一 些 在 随后 时 间 发 生 的 事件 ， 它 们 又 会 引发 随后 的 事件 ， 并 如 此 继续 下 去 。 : 

我 们 有 关 电 路 的 计算 模型 将 由 一 些 对 象 组 成 ， 它 们 对 应 于 构造 电路 时 所 用 的 那些 基本 构 


件 。 这 里 也 有 连 线 ， 它 们 能 传递 数字 信号 。 一 个 数字 信号 在 任何 时 刻 都 只 能 其 有 0 或 1 这 两 个 
可 能 值 之 一 。 这 里 还 有 许多 不 同 种 类 的 功能 块 ， 它 们 连接 着 一 些 输 入 信号 的 连 线 和 另外 一 些 
输出 连 线 。 这 种 功能 块 从 它们 的 输入 信号 计算 出 相应 的 输出 信号 。 输 出 信号 有 一 个 延迟 ， 具 
体 情况 依赖 于 功能 块 的 种 类 。 例 如 ， 反 门 是 一 种 基本 功能 块 ， 它 们 对 输入 求 反 。 如 采 一 个 反 
门 的 输入 信号 变 为 0， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 信号 改变 为 1 。 
如 果 一 个 反 门 的 输入 信号 改变 为 1 ， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 
信号 改变 为 0。 图 3-24 里 画 出 了 表示 反 门 的 符号 。 一 个 与 门 (如 图 3-24 里 所 示 ) 也 是 一 个 基本 
功能 块 ， 它 有 两 个 输入 和 一 个 输出 ， 以 其 输入 的 运 辑 与 作为 输出 信号 的 值 。 也 就 是 说 ， 当 一 
个 与 1 门 的 两 个 输入 信号 都 变 成 1 时 ， 在 一 个 与 门 延迟 时 间 单 位 之 后 ,该 与 门将 产生 1 作为 输出 
信号 ， 否 则 其 输出 就 是 0。 或 门 是 另 一 种 类 似 的 功能 块 ， 以 其 输入 的 远 辑 或 作为 输出 信号 的 值 。 
也 就 是 说 ， 当 且 仅 当 一 个 或 门 的 两 个 输入 信号 之 一 为 1 时 ， 其 输出 为 ] ， 否 则 其 输出 就 是 0。 


反 门 与 站 或 站 
图 3-24 数字 逻辑 模拟 器 的 基本 功能 部 件 


我 们 可 以 将 一 些 基 本 功能 部 件 连接 起 来 ， 构 造 出 更 复杂 的 功能 。 为 此 只 需 将 一 些 功能 块 
的 输出 连 线 接 到 另 一 些 功 能 块 的 输入 。 举 个 例子 ， 图 3-25 展 示 的 是 一 个 半 加 器 电路 ， 其 中 包 
括 一 个 或 门 、 两 个 与 门 和 一 个 反 门 。 这 一 半 加 器 有 两 个 输入 信号 A 和 B ， 以 及 两 个 输出 信和 号 
和 C。 当 恰好 A 和 B 之 一 为 1 时 ，S 将 变 成 1， 而 当 A 和 B 都 为 1 时 C 变 成 1。 从 这 个 图 形 可 以 看 出 ， 
由 于 延迟 的 存在 ， 这 些 输出 可 能 在 不 同 的 时 间 产 生 ， 有 关 数 字 电路 设计 的 许多 困难 都 源 于 此 。 





图 3-25 半 加 器 


我 们 现在 要 构造 出 一 个 程序 ， 它 能 够 模拟 我 们 希望 研究 的 各 种 数字 逻辑 电路 。 这 一 程序 
将 构造 出 模拟 连 线 的 计算 对 象 ， 它 们 能 够 “保持 ”信号 。 电路 里 的 各 种 功能 决 用 过 程 模拟 ， 
它们 产生 出 信号 之 间 的 正确 关系 。 

这 一 模拟 中 的 一 个 最 基本 元 素 是 过 程 make-wire ， 它 用 于 构造 连 线 。 举 例 来 说 ， 我 们 可 
以 像 下 面 这 样 构造 出 6 条 连 线 : 

(define a (make-wire) ) 


(define b (make-wire) ) 
{define c (make-wire) ) 


(define d (make-wire) ) 
(define e (make-wire) ) 
(define s (make-wire) ) 


如 果 需 要 将 一 个 功能 块 连 到 一 组 连 线 上 ， ARNM MARRA NEEE, 提供 给 该 
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构造 过 程 的 实际 参数 就 是 连接 到 这 一 功能 块 的 那些 连 线 。 例 如 ， 有 了 上 面 的 连 线 ， 我 们 可 以 
如 下 构造 出 与 门 、 或 门 和 反 门 ， 并 将 它们 连接 成 图 3-2> 历 示 的 半 加 器 : 

(or-gate a b d) 

ok 


(and-gate a b c) 
ok 


(inverter c e) 
ok 


(and-gate de s) 
ok 


为 了 做 得 更 好 一 点 ， 我 们 还 应 该 为 这 种 操作 命名 ， 定 义 出 一 个 过 程 haLf-adder ， 它 能 
构造 出 这 种 电路 ， 并 将 送 给 它 的 四 条 外 部 连 线 接 到 这 个 半 加 器 上 ; 


(define (half-adder abs c) 
(let ((d (make-wire)) (e (make-wire) )) 
(or-gate ab d) 
(and-gate abc) 
{inverter C e) 
{and-gate d e S) 
‘ok)) 


做 出 这 种 定义 的 优点 ， 就 在 于 我 们 又 可 以 用 half-adder 本 身 作 为 基本 构件 ， 去 创建 更 复杂 
的 电路 。 例 如 ， 图 3-26 显 示 的 是 一 个 全 加 器 ， 它 由 两 个 半 加 器 和 一 个 或 门 组 成 “。 我 们 可 以 
用 如 下 方式 构造 出 全 加 器 : 





图 3-20 全 加 器 


(define (full-adder a b c-in sum c-out) 
(let ((s (make-wire) ) 
(cl (make-wire) ) 
(c2 (make-wire) )) 
(half-adder b c-in s cl) 
({half-adder a s sum c2) 
(or-gate cl c2 c-out) 
Ok) ) 


将 全 加 器 定义 为 过 程 之 后 ,我 们 就 又 可 以 利用 它 作为 构件 ， 去 创建 更 复杂 的 电路 了 〈 例 如 ， 
练习 3.30 ) 。 
54 和 加 器 是 一 进 制 数 求 和 所 用 的 基本 电路 元 件 。 这 里 的 A 和 B 是 两 个 被 加 数 中 对 应 位 置 上 的 二 进 制 位 ，Cin 是 从 
被 加 位 的 右边 来 的 进化 位 。 这 一 电路 产生 出 的 9UM 是 表示 对 应 位 置 之 和 的 二 进 制 位 而 Co 是 传递 给 左边 位 
置 的 进位 位 。 ‘s 


从 本 质 上 看 ， 模 拟 器 为 我 们 提供 了 一 种 工具 ， 作 为 构造 电路 的 一 种 语言 。 如 果 我 们 采纳 
有 天 语言 的 一 般 性 观点 ， 就 像 在 1.1 玉 里 研究 LI1sP 时 所 做 的 那样 ， 那 么 就 可 以 说 ， 各 种 基本 功 
能 块 形 成 了 这 个 语言 的 基本 元 素 ， 将 功能 块 连接 起 来 就 是 这 里 的 组 合 方法 ， 而 将 特定 的 连接 
模式 定义 为 过 程 就 是 这 里 的 抽象 方法 。 
基本 功能 块 
基本 功能 块 实现 一 种 “效能 ”， 使 得 在 一 根 连 线 上 的 信号 变化 能 够 影响 其 他 连 线 上 的 信号 。 
为 了 构造 出 这 些 功 能 块 ， 我 们 需要 连 线 上 的 如 下 操作 : 
e (get-signal <wire>) 
返回 连 线 上 信号 的 当前 值 。 
e (set-signal! <wire> <new value> ) 
将 连 线 上 的 信号 修改 为 新 的 值 。 
e (add-action! <wire> <procedure of no arguments> ) 
它 断 言 ， 只 要 在 连 线 上 的 信号 值 改 变 ， 这 里 所 指定 过 程 就 需要 运行 。 这 种 过 程 是 一 些 
媒介 ， 它 们 能 够 将 相应 连 线 上 值 的 变化 传递 到 其 他 的 连 线 。 除 这 些 过 程 之 外 ， 我 们 还 要 
用 一 个 过 程 after-delay ， 它 的 参数 是 一 个 时 间 延 迟 和 一 个 过 程 after-delay # 
在 给 定 的 时 延 之 后 执行 这 一 指定 过 程 。 
利用 这 些 过 程 ， 我 们 就 可 以 定义 基本 的 数字 逻辑 功能 了 。 为 了 把 输入 通过 一 个 反 门 连接 到 
输出 ， 我 们 应 该 用 add-action1! 为 输入 线路 关联 一 个 过 程 ， 当 输入 线路 的 值 改 变 时 ， 这 一 过 
程 就 会 执行 。 下 面 这 个 过 程 计 算出 输入 信号 的 logical-not, 在 一 个 lnverter-delay 之 
后 将 输出 线路 设置 为 这 个 新 值 : : 


{define (inverter input output) 
(define (invert-input ) 
(let ((new-value (logical-not (get-signal input)))) 
(after-delay inverter-delay 
| (lambda () 
(set~-signal! output new-value))))) 
(add-action! input invert-input) 
OK) 


{define (logical-not s) 
(cond ((= s 0} 1) 
((= s 1) 9) 
(else (error "Invalid signal" s)))) 


5) Ree, AA ERAT RATE (he, AEE ERR 
须 运行 。 下 面 过 程 计算 出 输出 线路 上 信号 值 的 logical-and (利用 一 个 类 似 于 logical- 
net 的 过 程 )， 并 在 一 个 and-gate-delay 之 后 设置 新 值 ， 使 之 出 现在 输出 线路 上 。 


(define (and-gate al a2 output) 
(define (and-action-procedure) 
(let ((new-value | 
(logical-and (get-signal al) (get-signal a2)))) 
(after-delay and-gate-delay 
(lambda () 
(set-signal! output new-value))))) 
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(add-action! al and-action-procedure) 
(add-action! a2 and-action-procedure) 


OK ) 
练习 3.28 “请 将 或 门 定 义 为 一 个 基本 功能 块 。 你 的 oz-~gate 构 造 国 数 应 该 和 上 面 anQq- 
gate 的 构造 国 数 类 似 。 


练习 3.29 “构造 或 门 的 另 一 方式 是 将 它 作 为 一 种 复合 的 数字 有 还 辑 设 备 ， 用 与 门 和 反 门 构 
造 出 或 门 。 请 采用 这 种 方式 定义 出 or-gate 。 如 何 用 and-gate-delay 和 inverter- 
delay 表 示 这 样 定义 的 或 门 的 延 时 ? | 

练习 3.30 ”图 3-27 展 示 的 是 通过 串 接 起 "个 全 加 器 组 成 的 一 个 级 联 进位 加 法 器。 这 是 用 于 
求 m 位 二 进 制 数 之 和 的 并 行 加 法 器 的 最 简单 形式 。 输 入 Al Ar, As, ，… ，A, 与 B，Bz，B3 ，……， 
B, 是 需要 求 和 的 两 个 二 进 制 数 (每 个 At 和 Bx 都 是 0 或 者 1 ) 。 这 一 电路 产生 出 与 之 对 应 的 和 的 
个 二 进 制 位 St1，S2，S3，…，S，， 以 及 这 一 求 和 的 最 终 进 位 值 C。 请 写 出 一 个 过 程 Tipple- 
carry-adder 生 成 这 种 电路 ， 该 过 程 应 以 各 包含 着 n 条 线路 的 三 个 表 一 一 A:、Bi 和 Si 一 一 作为 
输入 ， 还 有 另 一 线路 C。 级 联 进 位 加 法 器 的 主要 缺点 是 需要 等 待 进位 信号 向 前 传播 。 请 设法 确 
定 ， 为 了 得 到 n 位 级 联 进 位 加 法 器 的 完整 输出 ， 我 们 将 需要 怎样 的 时 延 。 请 用 与 门 、 或 门 和 反 
门 的 时 延 表 示 这 种 加 法 器 的 这 一 时 延 。 
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线路 的 表示 


在 这 种 模拟 中 ， 一 条 线路 也 就 是 一 个 具有 两 个 局 部 状态 变量 的 计算 对 象 : 其 中 一 个 是 信 
号 值 signal-value (其 初始 值 取 0 )， 另 一 个 是 一 组 过 程 action-~procedures, 在 信号 
值 改变 时 ， 这 些 过 程 都 需要 运行 。 我 们 将 采用 消息 传递 的 风格 ， 把 线路 实现 为 一 组 局 部 过 程 
和 一 个 dispatch 过 程 ， 它 负责 选取 适当 的 局 部 操作 ， 这 也 就 是 我 们 在 3.1.1 节 里 处 理 简 单 银 
行 账户 时 的 做 法 : 

(define (make-wire) 

(let ((signal-value 0) (action-procedures "{))) 
(define (set-my-signal! new-value) 
(if (not (= signal-value new-value) ) 
(begin (set! signal-value new-value) 
(call-each action-procedures) ) 
‘done ) ) 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures ) ) 


3.3 用 变动 数据 做 模拟 193 
(proc) ) 


{define (dispatch m) 
(cond ((eq? m ’get-signal) signal-value) 
((eq? m ’set-signal!) set-my-signal!) 
((eq? m ’add-action!) accept-action-procedure! ) 
(else (error "Unknown operation -- WIRE" m)))) 


dispatch) ) 
局 部 过 程 set-my-signal! 检 查 新 的 信号 值 是 否 实际 改变 了 线路 上 的 信号 ， 如 果真 是 这 样 ， 
它 就 利用 下 面 定 义 出 的 过 程 cal1L~each 运 行 每 个 动作 过 程 。cal1-each 逐 个 调用 一 个 无 参 
过 程 表 中 的 每 个 过 程 : 
(define (call-each procedures) 


(if (null? procedures) 
‘done 
(begin 
(({car procedures) ) 


(call-each (cdr procedures) )))}) 


局 部 过 程 accept-action-procedure! 将 给 定 的 过 程 加 入 需要 运行 的 过 程 表 ， 并 运行 这 个 
新 过 程 一 次 《参见 练习 3.31 )。 
一 旦 设置 好 局 部 的 dispatch 过 程 ， 就 可 以 提供 以 下 访问 线路 中 局 部 操作 的 过 程 了 : 
(define (get-signal wire) 
(wire ‘get-signal) ) 
(define (set-signal! wire new-~-value) 


((wire ’set-signal!) new-value) ) 


(define (add-action! wire action-procedure) 


( (wire ‘’add-action!) action-procedure) ) 
线路 具有 随 着 时 间 变 化 的 信号 ， 并 可 以 逐步 连接 到 各 种 设备 上 ， 因 此 这 是 一 种 典型 的 变动 对 
象 。 我 们 已 经 将 它们 模拟 为 带 有 局 部 状态 变量 的 过 程 ， 这 些 局 部 变量 能 够 通过 赋值 而 修改 。 
在 创建 一 条 新 线路 时 ， 就 会 分 配 一 集 新 的 状态 变量 (通过 make-wire 里 的 let 表 达 式 )， 构 
造 并 返回 一 个 新 的 aispatch 过 程 ， 使 我 们 可 以 掌握 具有 这 些 新 状态 变量 的 那个 环境 。 
一 条 线路 被 所 有 连接 在 该 线路 上 的 各 种 设备 所 共享 。 这 样 ， 由 一 个 设备 交互 所 造成 的 变 
化 就 会 影响 到 连接 在 这 条 线路 上 的 其 他 设备 。 线 路 将 变化 通知 与 之 连接 的 设备 ， 采 用 的 方式 


就 是 调用 相关 的 动作 过 程 ， 这 些 过 程 是 在 建立 连接 时 提供 的 。 


FALE R 
为 完成 这 一 模拟 器 ， 剩 下 的 东西 就 是 after-delay 了。 这 里 的 想法 是 维护 一 个 称 为 待 处 


55 广 些 过 程 只 不 过 是 语法 糖衣 ， 以 便 我 们 能 用 常规 的 过 程 语 法 形式 去 调用 对 象 里 的 局 部 过 程 。 能 如 此 简单 地 交 
换 “ 过 程 ”和 “数据 ”的 角色 也 是 很 惊人 人 的。 例如， 在 写 (wire get-signal) 时 ， 我 们 是 把 wire 当 作 
.个 过 程 ， 用 消息 get-signal 作 为 输入 去 调用 它 。 换 一 种 方式 ，(get-signal wire) 的 形式 促使 我 们 
将 wire 设想 为 作为 过 程 get-signal 的 输入 的 数据 对 象 。 真 实 的 情况 是 ， 在 一 个 可 以 将 过 程 当 作 对 象 的 语 
言 里 ， 在 “过 程 ”和 “数据 ”之 间 并 没有 本 质 性 的 差异 ， 因 此 我 们 可 以 自由 选择 自己 所 需 的 语法 糖衣 ， 以 便 
按 自己 选 定 的 风格 去 做 程序 设 计 。 


Ta 
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理 表 的 数据 结构 ， 其 中 包含 着 一 个 需要 完成 的 事项 的 清单 。 对 于 这 个 待 处 理 表 ， 我 们 定义 了 
如 下 操作 : 
。 (make-agenda ) 
返回 一 个 新 的 空 的 待 处 理 表 。 
(empty-agenda? <agenda> ) 
在 所 给 待 处 理 表 空 时 为 真 。 
(first-agenda-item <agenda> ) 
返回 待 处 理 表 里 的 第 一 个 项 目 。 
(remove-first-agenda-item! <agenda>) | 
修改 待 处 理 表 ， 删 除 其 中 的 第 一 个 项 目 。 
(add-to-agenda! <time> <action> <agenda> ) 
修改 待 处 理 表 ， 加 入 一 项 ， 要 求 在 特定 时 间 运行 给 定 的 动作 过 程 。 
(current-time <agenda> ) 
返回 当时 的 模拟 时 间 。 
我 们 要 用 的 特定 待 处 理 表 用 the-agenda 表 示 。 过 程 after-delaylnthe-agenda 里 
加 入 一 个 新 元 素 : 


(define (after-delay delay action) 
(add-to-agenda! (+ delay (current-time the-agenda) ) 


action 
the-agenda) ) 


有 关 的 模拟 用 过 程 Propagate 驱 动 ， 它 对 the~agenda 操 作 ， 上 顺序 执行 这 一 待 处 理 表 中 
的 每 个 过 程 。 一 般 而 言 ， 在 模拟 运行 中 ， 一 些 新 的 项 目 将 被 加 入 待 处 理 表 中 。 只 要 在 这 一 待 
处 理 表 里 还 有 项 目 ， 过 程 Propagate 就 会 继续 模拟 下 去 : 

(define (propagate) 

(if (empty-agenda? the-agenda) 
"done 
(let ((first-item (fixrst-agenda-item the-agenda) ) ) 
 (first-item) 
(remove-first-agenda~item! the- agenda} 


(propagate) ))) 


一 个 简单 的 实例 模拟 | 
下 面 过 程 中 将 一 个 “监测 器 ” 放 到 一 个 线路 上 ， 用 于 显示 模拟 器 的 活动 。 这 一 过 程 告诉 


相应 的 线路 ， 只 要 它 的 值 改变 了 ， 就 应 该 打印 出 新 的 值 ， 同时 打印 当前 时 间 和 线路 名字: 


(define (probe name wire) 
(add-action! wire 


(lambda () 
(newline) 
(display name) 
(display ” ") 
(display (current-time the-agenda) ) 
(display "  New-value = ") 


(display (get-signal wire))))) 


A 
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我 们 从 初始 化 待 处 理 表 和 描述 各 种 功能 块 的 延 时 开始 : 


(define the-agenda (make-agenda) ) 
(define inverter-delay 2) 

(define and-gate-delay 3) 

(define or-gate-delay 5) 


现在 定义 4 条 线路 ， 在 其 中 的 两 条 线路 上 安装 监测 器 : 
(define input-1 (make-wire) ) 
(define input-2 (make-wire) ) 


(define sum (make-wire) ) 
(define carry (make-wire) ) 


(probe ‘sum sum) 
sum 0 New-value = 0 


(probe ‘carry carry) 
carry 0 New-value = 0 


下 面 我 们 将 这 些 线路 连接 到 一 个 半 加 器 电路 上 (参见 图 3-25 )， 将 input-1 上 的 信号 设置 为! ， 
而 后 运行 这 个 模拟 : 

(half-adder input~1 input-2 sum carry) 

ok 


(set-signal! input-1 1) 


done 

(propagate) 

sum 8 New-value = 1 
done 


在 时 间 8，sum 上 的 信号 变 为 1。 现 在 到 了 模拟 开始 之 后 的 8 个 时 间 单位 。 在 这 一 点 上 ， 我 们 可 
以 将 input-~2 上 的 信和 号 设置 为 1 HILAR REHE m BIE: 
{set-signal! input-2 1) 


done 


(propagate) -一 


carry 11 New-value 1 


sum 16 New-value = 0 


done 
在 时 间 11 处 carry 变 为 1!， 在 时 间 16 处 sum 变 成 0 。 

练习 3.31 在 make-wire 里 定义 的 内 部 过 程 accept-action-procedure! 描述 的 是 ， 
4 .个 新 的 动作 过 程 加 入 线路 时 ， 这 一 过 程 应 立即 运行 。 请 解释 为 什么 需要 这 种 初始 动作 。 
特别 是 ， 请 追踪 上 面 段 落 里 的 半 加 器 例子， 看 看 如 果 我 们 不 这 样 做 ， 而 是 将 accept- 
action-procedure! 定 义 为 下 面 形式 ， 那 会 出 现 什 么 情况 : 


(define (accept-action-procedure! proc) 
(set! action-procedures (cons proc action-procedures ) ) ) 


待 处 理 表 的 实现 


最 后 介绍 待 处 理 表 数据 结构 的 细节 ， 这 一 数据 结构 里 面 保存 着 已 经 安排 好 ， 将 在 未 来 时 
刻 运 行 的 那些 过 程 。 
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这 种 待 处 理 表 由 一 些 时 间 段 组 成 ， 每 个 时 间 段 是 由 一 个 数值 (表示 时 间 ) 和 一 个 队列 
( 见 练习 3.32) 组 成 的 序 对 ， 在 这 个 队列 里 ， 保 存 着 那些 已 经 安排 好 的 ， 应 该 在 这 一 时 间 段 运 
行 的 过 程 。 
(define (make-time-segment time queue) 
{cons time queue) ) 


(define (segment-time s) (car s)) 


(define (segment-queue s) (cdr s)) 


我 们 将 用 3.3.2 节 描述 的 队列 操作 完成 在 时 间 段 队列 上 的 操作 。 

待 处 理 表 本 身 就 是 时 间 段 的 一 个 一 维 表格 。 与 3.3.3 节 所 示 的 表格 的 不 同 之 处 ， 就 在 于 这 
些 时 间 段 应 该 按照 时 间 递 增 的 顺序 排列 。 此 外 ， 我 们 还 需 在 待 处理 表 的 头 部 保存 一 个 当前 时 
间 ( 即 ， 此 前 最 后 被 处 理 的 那个 动作 的 时 间 ) 。 一 个 新 构造 出 的 待 处 理 表 里 没有 时 间 段 ， 其 当 
前 时 间 是 0 ”: 

(define (make-agenda) (list 0)) 

(define (current-time agenda) (car agenda)) 

(define (set-current-time! agenda time) 

(set-car! agenda time)) 
(define (segments agenda) (cdr agenda)) 


(define (set-segments! agenda segments) 
{set-cdr! agenda segments) ) 


(define (first-segment agenda) (car (segments agenda) )) 


(define (rest-segments agenda) (cdr (segments agenda) ) ) 


如 果 一 个 待 处 理 表 里 没 有 时 间 段 ， 那 它 就 是 空 的 : 
(define (empty-agenda? agenda) 
(null? (segments agenda) )) 

为 了 将 一 个 动作 加 入 待 处 理 表 ， 我 们 首先 要 检查 这 个 待 处 理 表 是 否 为 空 。 如 果真 是 这 样 ， 
那么 就 创建 一 个 新 的 时 间 段 ， 并 将 这 个 时 间 段 装 入 待 处 理 表 里 。 否 则 我 们 就 扫描 整个 的 筛 处 
理 表 ， 检 查 其 中 各 个 时 间 段 的 时 间 。 如 果 发 现 某 个 时 间 段 具有 合适 的 时 间 ， 那 么 就 把 这 个 动 
作 加 入 与 之 关联 的 队列 里 。 如 果 碰 到 了 某 个 比 需要 预约 的 时 间 更 晚 的 时 间 ， 那 么 就 将 一 个 新 
的 时 间 段 插入 待 处 理 表 ,插入 这 个 位 置 之 前 。 如 果 到 达 了 待 处 理 表 的 末尾 ， 我 们 就 必须 在 最 
后 加 上 一 个 新 的 时 间 段 。 

(define (add-to-agenda! time action agenda) 

(define (belongs-before? segments) 
(or (null? segments) 

(< time (segment-time (car segments))))) 
(define (make-new-time-segment time action) 


(let ((q (make-queue) )) 


(insert-queue! q action) 


156 待 处 理 表 是 一 个 带 表 头 单元 的 表 ， 就 像 3.3.3 节 的 表格 。 但 是 因为 这 个 表 头 中 存放 着 当前 时 间 ， 我 们 就 不 必 在 
为 它 加 上 哑 的 头 单元 了 (例如 表 列 所 用 的 *table* 符 号 )。 
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(make-time-segment time q))) 
(define (add-to-segments! segments) 
(if (= (segment-time (car segments)) time) 
(insert-queue! (segment-queue (car segments) ) 
action) 
(let ((rest (cdr segments) )) 
{if (belongs-before? rest) 
(set-cdr! 
segments 
(cons (make-new-time-segment time action) 
(cdr segments) ) ) 
(add-to-segments! rest))))) 
{let ((segments (segments agenda) )) 
(if (belongs-before? segments) 
(set-segments! 
agenda 
(cons (make-new-time-segment time action) 
segments) ) 


(add-to-segments! segments) ))) 


从 待 处 理 表 中 删除 第 一 项 的 过 程 ， 应 该 删 去 第 一 个 时 间 段 的 队列 前 端的 那 一 项 。 如 末 删 
除 使 这 个 时 间 段 变 空 了 ， 我 们 就 将 这 个 时 间 段 也 从 时 间 段 的 表 里 删 去 : 
(define (remove-first-agenda-item! agenda) 
(let ((q (segment-queuve (first-segment agenda) )) ) 
(delete-queue! q) | 
(if (empty-queue? q) 
{set-segments! agenda (rest-segments agenda) )}))) 
找 出 待 处 理 表 中 里 第 一 项 ， 也 就 是 找 出 其 第 一 个 时 间 段 队列 里 的 第 一 项 。 无论 何 时 提取 
这 个 项 时 ， 都 需要 更 新 待 处 理 表 的 当前 时 间 ”: 
(define (first-agenda-item agenda) 
(if (empty-agenda? agenda) 
(error "Agenda is empty -- FIRST-AGENDA-ITEM" ) 
(let ((first-seg (first-segment agenda) ) ) 


(set-current-time! agenda (segment-time first-seg)) 


(front-queuve (segment-queue first-seg))))) 


练习 3.32 ”在 待 处 理 表 中 ， 在 某 个 时 间 段 里 需要 运行 的 过 程 都 保存 在 一 个 队列 里 ， 这 品 
使 对 于 每 个 时 间 段 中 过 程 的 调用 能 按照 它们 加 入 待 处 理 表 的 次 序 进行 (先进 先 出 )。 请 解释 必 
须 采 用 这 种 顺序 的 理由 。 请 特别 追踪 一 个 与 门 的 行为 ， 假 设 它 的 输入 在 一 个 时 间 段 里 从 0, 13 
为 1, 0。 请 说 明 ， 如 果 我 们 将 过 程 按照 常规 表 的 方式 存 人 时 间 段 ， 总 是 在 表 的 前 端 插 入 和 删除 
过 程 〈 后 进 先 出 )， 那 么 会 出 现 什 么 情况 。 


5 请 注意 ， 这 个 过 程 里 用 的 if£ 表 达 式 没有 <alternative> 部 分 。 这 种 “ 单 支 1f 语 名 ”用 于 确定 某 件 事情 做 或 不 做 ， 
而 不 是 在 两 个 表达 式 中 做 选 树 。 如 果 if 表 达 式 没有 <alternative> ， 在 谓词 为 假 时 返回 值 不 确定 。 

tss 按 这 种 方式 ， 当 前 时 间 将 总 是 最 近 处 理 的 动作 的 时 间 。 将 这 一 时 间 保 存在 待 处 理 表 的 头 部 ， 将 能 保证 即使 与 
这 一 时 间 关 联 的 时 间 段 已 经 被 删除 ， 当 前 时 间 仍 然 是 可 用 的 。 


3.3.5 约束 的 传播 


在 传统 上 ， 计 算 机 程序 总 被 组 织 成 一 种 单 癌 的 计算 ， 它 们 对 一 些 事先 给 定 的 参数 执行 某 
些 操 作 ， 产 生出 所 需要 的 输出 。 但 在 另 一 方面 ， 我 们 也 经 党 需要 模拟 一 些 由 各 种 量 之 间 的 关 
系 描述 的 系统 。 例 如 ， 某 个 机 械 结构 的 数学 模型 里 可 能 包含 者 这 样 的 一 些 信息 : 在 一 个 金属 
杆 的 偏转 量 4 与 作用 于 这 个 杆 的 力 上 、 杆 的 长 度 L、 截 面 面 积 4 和 弹性 模 数 之 间 的 关系 可 以 由 
下 面 方 程 描述 : 
dAE =FL = 


这 种 关系 并 不 是 单 向 的 ， 给 定 了 其 中 任意 的 4 个 量 ， 我 们 就 可 以 利用 它 计算 出 第 5 个 量 。 然 而 ， 
要 将 这 种 方程 翻译 到 传统 的 程序 设计 语言 ， 就 会 迫使 我 们 选 出 一 个 量 ， 要 求 基 于 另外 的 4 个 量 
去 计算 出 它 。 这 样 ， 一 个 用 于 计算 面积 4 的 过 程 将 不 能 用 于 计算 偏转 量 4 ， 虽 然 对 于 4 和 4 的 计 
算 都 出 自 这 同一 个 方程 :2?。 

在 这 一 节 里 ， 我 们 要 描绘 一 种 语言 的 设计 ， 这 种 语言 将 使 我 们 可 以 基于 各 种 关系 进行 工 
作 。 这 一 语音 里 的 基本 元 素 就 是 基本 约束， 它们 描述 了 在 不 同 量 之 间 的 某 种 特定 关系 。 例 如 ， 
(adder a b c) 描述 的 是 量 a、b 和 Cc 之 间 必 须 有 关系 4 十 b=c， (multiplier x y z) ff 
述 的 是 约束 关系 xy =z, 而 (constant 3.14 x) 表示 x 的 值 永远 都 是 3.14。 

我 们 的 语言 里 还 提供 了 一 些 方 法 ， 使 它们 可 以 用 于 组 合 各 种 基本 约束 ， 以 便 去 描述 更 复 
杂 的 关系 。 在 这 里 ， 我 们 将 通过 构造 约束 网 络 的 方式 组 合 起 各 种 约束 ， 在 这 种 约束 网 络 里 ， 
约束 通过 连接 器 连接 起 来 。 连 接 器 是 一 种 对 象 ， 它 们 可 以 “保存 ”一 个 值 ， 使 之 能 参与 一 个 
或 者 多 个 约束 。 例 如 ， 我 们 知道 在 华氏 温度 和 摄氏 温度 之 间 的 关系 是 : 

9C =5(F —32) | 
这 样 的 约束 就 可 以 看 作 是 一 个 网 络 (如 图 3-28 所 示 )， 通 过 基本 加 法 约束 、 乘 法 约束 和 常量 约 
束 组 成 。 在 这 个 图 里 ， 我 们 看 到 左边 的 乘法 块 有 三 个 引线 ， 分 别 标记 为 ml 、m2 和 p 。 该 乘法 
约束 的 这 些 引 线 以 如 下 方式 连接 到 网 络 的 其 他 部 分 : 引线 ml 连 到 连接 器 C ， 这 个 连接 器 将 保 
存 摄 氏 温 度 。 引 线 m2 接 在 连接 器 w， 该 连接 器 还 连接 着 一 个 保存 常量 9 的 约束 块 。 引 线 p 被 这 
一 乘法 块 约束 到 m1 和 m2 的 乘积 ， 它 还 连接 到 另 一 个 乘法 块 的 引线 。 另 一 乘法 块 的 m2 连接 到 


常量 5 ， 它 的 m1 连接 到 另 一 加 法 块 的 一 条 引线 上 。 | 
mi M al 
~ p * | * sg F 
m2 a2 
了 
ES 


图 3-28 用 约束 网 络 表 示 的 关系 9C =S(F — 32) 


x 





159 gh 传播 的 概念 首先 出 现在 Ivan Sutherland 的 不 可 思议 的 前 脆性 系 统 SKETCHPAD 中 (1963), Alan Borning 
在 Xerox Palo Alto 研 究 中 心 开 发 一 个 基于 smajlltalk 语言 的 漂亮 的 约束 传播 系统 (1977), Sussman | Stallman 
和 Steele 将 约束 传播 用 于 电子 电路 分 析 (Sussman and Stallman 1975; Sussman and Steele 1980), TK!Solver 
(Konopasek and Jayaraman 1984) 是 一 个 基于 约束 的 扩展 模拟 环境 。 


由 这 样 的 网 络 完成 的 计算 以 如 下 方式 进行 ， 当 某 个 连接 器 被 给 定 了 一 个 值 时 (由 用 户 或 
者 由 它 所 连接 的 某 个 约束 块 ) ， 它 就 会 去 唤醒 所 有 与 之 关联 的 约束 (除了 刚刚 唤醒 它 的 那个 约 
束 之 外 )， 通 知 它们 自己 有 了 一 个 新 值 。 被 唤醒 的 每 个 约束 块 将 去 盘点 自己 的 连接 器 ， 看 看 是 
否 存在 足够 的 信息 为 某 个 连接 器 确定 一 个 值 。 如 果 可 能 的 话 ， 该 块 就 设置 相应 的 连接 器 ， 而 
这 个 连接 器 又 会 去 唤醒 与 之 连接 的 约束 ， 并 这 样 进行 下 去 。 举 例 说 ， 位 于 摄氏 和 华氏 之 间 的 
变换 常数 vw、x 和 y 将 立即 被 各 个 常量 块 分 别 设置 为 9、5 和 32。 这 些 连 接 器 唤醒 网 络 中 的 加 法 约 
束 和 乘法 约束 ， 但 是 它们 都 确定 了 现在 还 没有 足够 的 信息 继续 工作 。 如 果 用 户 (或 者 网 络 中 
的 另外 某 个 部 分 ) 为 C 设 置 了 一 个 值 ( 璧 如 说 25) ， 最 左边 的 乘法 约束 就 会 被 唤醒 ， 它 会 把 ( 设 
置 为 25 . 9 =225 。 而 后 /就 会 唤醒 第 二 个 乘法 约束 ， 这 一 乘法 约束 将 把 ”设置 为 45 ; v 又 会 唤醒 
那个 加 法 约束 ， 该 加 法 约束 将 把 F 设 置 为 77， / 


约束 系统 的 使 用 

为 了 使 用 上 面 给 出 了 梗概 的 约束 系统 模型 去 执行 温度 计算 ， 我 们 需要 首先 调用 构造 函数 
make-connector ,创建 起 两 个 连接 器 C 和 F， 而 后 将 它们 连接 到 一 个 适 当 的 网 络 里 : 

(define C (make-connector) ) 

(define F (make-connector) ) 


(celsius—fahrenheit-converter C F) 
ok 


创建 上 述 网 络 的 过 程 的 定义 如 下 : 
(define (celsius-fahrenheit-converter c f) 
(let ((u (make-connector) ) 

(v (make-connector ) ) 
(w (make-connector) } 
(x (make-connector) ) 
(y (make-connector))) 

(multiplier c w u) 

(multiplier v x u) 

(adder v y f) 

(constant 9 w) 

(constant 5 x) 

(constant 32 y) 

Ok) ) 


这 一 过 程 建立 起 内 部 连接 器 u、v、w、x 和 y， 调 用 基本 约束 的 构造 函数 adder、multiplier 
和 constant， 并 将 它们 按照 图 3-28 所 示 的 形式 连接 起 来 。 就 像 3.3.4 节 描述 的 一 样 ， 以 过 程 的 
方式 描述 几 个 元 素 的 组 合 ， 也 就 自动 地 为 语言 提供 了 一 种 复合 对 象 的 抽象 方法 。 

为 了 观察 这 个 网 络 的 活动 ， 我 们 可 以 为 连接 器 C 和 F 安 装 上 probe 过 程 ， 这 里 使 用 的 过 程 
probe 与 前 面 在 3.4.4 节 里 监视 线路 的 过 程 类 似 。 在 连接 器 上 安 闭 监 忱 谷 ， 将 导致 每 次 给 这 个 
连接 器 一 个 值 时 ， 就 会 打印 出 一 个 消 居 : 

(probe "Celsius temp" C) 

{probe "Fahrenheit temp" F) 


下 面 我 们 将 C 设 置 为 25 。set-value! 的 第 三 个 参数 告诉 Cc， 这 个 指示 直接 来 日 user。 


(set-value! C 25 ‘user) 
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Probe: Celsius temp = 25 
Probe: Fahrenheit temp = 77 


done 
附 在 C 上 J 监视 器 被 唤醒 并 报告 有 关 的 值 。C 还 将 它 的 值 像 上 面 所 说 的 那样 说 着 网 络 传播 ， 这 
将 使 F 被 设置 为 17 ， 最 后 也 由 F 的 监视 器 报告 出 来 。 

下 面 我 们 想 试 试 为 了 设置 一 个 新 值 ， 例 如 212 : 


(set-value! F 212 ’user) 
Error! Contradiction (77 212) 


这 一 连接 器 抱怨 说 它 发 现 了 一 个 矛盾 : 它 的 值 现在 是 77， 而 别 的 什么 地 方 想 将 它 的 值 设 置 为 
212。 如 果 我 们 真希 望 对 新 的 值 重新 使 用 这 一 网 络 ， 那 么 就 应 该 告诉 C 忘掉 它 原先 的 值 : 
(forget-value! C ’user) . 
Probe: Celsius temp = ? 


Probe: Fahrenheit temp = ? 
done 


Cc 看 到 user 现 在 要 求 自己 撤销 已 有 的 值 ， 而 该 值 原来 就 是 它 设置 的 ， 因 此 就 同意 丢掉 该 值 ， 
正如 监视 器 所 报告 的 情况 。 这 一 信息 也 通知 到 网 络 的 其 余部 分 ， 有 关 消 息 最 终 传 播 到 F ， 使 它 
发 现 已 经 不 该 继续 保持 值 77 了。 这 样 ，F 也 就 放弃 了 原来 的 值 ， 如 监视 器 所 报告 的 那样。 

现在 F 没 有 值 了， 此 时 我 们 完全 可 以 将 它 设 置 为 212: 

(set-value! F 212 ‘user) 

Probe: Fahrenheit temp = 212 


Probe: Celsius temp = 100 
done 


这 一 新 值 通过 网 络 传播 ， 最 终 迫 使 C 具 有 值 100， 这 一 情况 被 附着 在 C 上 的 监视 器 报告 出 来 。 
从 这 里 可 以 看 到 ,同样 的 一 个 网 络 ， 在 给 定 了 F 之 后 能 用 于 计算 c， 在 给 定 C 后 能 算出 PF。 这 种 
非 定向 的 计算 是 基于 约束 的 系统 的 标志 性 特征 。 


约束 系统 的 实现 
约束 系统 用 具有 内 部 状态 的 过 程 对 象 实现 ， 所 用 的 方式 很 像 3.3.4 节 里 的 数字 电路 模拟 三。 
虽然 约束 系统 里 的 基本 对 象 在 某 些 方面 更 复杂 一 些 ， 但 整个 系统 却 更 为 简单 ， 因 为 这 里 完全 
不 需要 关心 待 处 理 表 和 时 间 延 述 等 等 问题 。 
连接 器 的 基本 操作 包括 : 
。 (has-value? <connector> ) 
报告 说 这 一 连接 器 是 否 有 值 。 
e (get-value <connector> ) 
返回 连接 器 当前 的 值 。 
。 (set-value! <connector> <new-value> <informant> ) 
通知 说 ， 信 息 源 (informant) 要 求 连接 器 将 其 值 设置 为 一 个 新 值 。 
e (forget-value! <connector> <retractor> } 
通知 说 ， 撤 销 源 (retractor) 要 求 连接 器 忘记 其 值 。 
。 (connect <connector> <new-constraini> ) 


通知 连接 器 参与 一 个 新 约束 。 
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束 ， 现 在 该 连接 器 有 了 一 个 新 值 。 过 程 ijnform-about~no-value 告 知 有 关 的 约束 ， 现 在 
IZE aká T ACCRA NIA. 

过 程 adder 在 被 求 和 连接 器 al 和 a2 与 和 连接 器 sum 之 间 构 造 出 一 个 加 法 约束 。 加 法 约束 
也 实现 为 一 个 带 有 内 部 状态 的 过 程 (下 面 的 过 程 me ): 


(define (adder al a2 sum) 
{define (process-new-value)} 
(cond ((and (has-value? al) (has-value? a2)) 
(set-value! sum 
(+ (get-value al) (get-value a2)) 
me) ) 
((and (has-value? al) (has-value? sum) ) 
(set-value! a2 
(~ (get-value sum) (get-value al)) 
me ) ) 
{(and (has-value? a2) (has-value? sum) ) 
(set-value! al 
(- (get-value sum) (get-value a2)) 
me)))) 
(define (process-forget-value) 
(forget-value! sum me) 
(forget-value! al me) 
(forget-value! a2 me) 
(process-new-value) ) 
(define (me request) 
(cond ((eq? request ‘I-have-a-value) 
(process-new-value) ) 
( (eq? request ‘I-lost—my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- ADDER" request)))) 
(connect al me) 
(connect a2 me) 
{connect sum me) 


me ) 


过 程 adder 将 一 个 新 的 加 法 约束 连接 到 指定 连接 器 ， 并 将 这 个 加 法 约束 作为 自己 的 返回 值 。 
过 程 me 就 代表 那个 加 法 约束 ， 它 的 活动 方式 就 像 是 一 个 对 完成 局 部 过 程 分 派 的 分 派 过 程 。 下 
面 的 “语法 界面 ”( 参 见 3.3.4 节 里 的 脚注 155) 可 以 与 上 述 分 派 过 程 结合 使 用 ， 

(define (inform-about-value constraint) 


(constraint ‘I-have-a-value) ) 


(define (inform-about-no-value constraint) 
(constraint “I-lost-my-value) ) 


当 加 法 约束 得 到 了 通知 ， 知 道 自己 的 一 个 连接 器 有 了 新 值 时 ， 这 个 约束 里 的 局 部 过 程 process- 
new-value 就 会 被 调用 。 此 时 ， 加 法 约束 首先 检查 al 和 a2 是 否 都 有 了 值 ， 如 果 有 的 话 ， 它 就 告 
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诉 sum 将 其 值 设 置 为 两 个 加 数 之 和 。 送 给 set-~valuel 的 Informant 参 数 是 me ， 也 就 是 这 个 加 
法 对 象 本 身 。 如 果 并 排 a1 和 a2 都 有 了 值 ， 那 么 加 法 对 象 就 检查 是 否 al 和 sum 都 已 经 有 了 值 ， 如 
果 情 况 真是 这 样 ， 它 就 将 a2 设 置 为 两 者 之 差 。 最 后 ， 如 果 a2 和 sum 都 有 值 ， 就 给 了 这 个 加 法 对 
象 足够 的 信息 去 设置 a1。 如 果 加 法 对 象 被 告知 自己 的 一 个 连接 如 形 失 SA, BAER AKAM 
有 连接 器 丢掉 它们 的 值 (实际 上 ， 只 有 那些 被 该 加 法 对 象 设置 值 的 连接 器 会 丢掉 值 ) Mae 
行 它 的 过 程 Process-new-value。 需 要 最 后 这 一 步 的 原因 是 ， 还 可 能 有 些 连 接 器 仍然 有 目 己 
的 值 (也 就 是 说 ， 某 个 连接 器 过 去 所 拥有 的 值 原来 就 不 是 由 这 个 加 法 对 象 设置 的 )， 这 些 值 又 可 
能 需要 通过 这 一 加 法 对 象 传播 。 | : 
乘法 对 象 很 像 加 法 对 象 。 如 果 两 个 因子 之 一 是 0(， 它 就 会 把 Product 设 置 为 0 ， 即 使 另 一 
个 因子 现在 还 不 知道 。 
(define (multiplier ml m2 product) 
(define (process-new-value) 
(cond ((or (and (has-value? ml) (= (get-value ml) 0)) 
{and (has-value? m2) (= (get-value m2) 0))) 
(set-value! product 0 me) ) 
({and (has-value? ml) (has-value? m2)) 
(set-value! product 
(* (get-value ml) (get-value m2)) 
me ) ) 
( (and (has-value? product) (has-value? ml)) 
(set-value! m2 
(/ (get-value product) (get-value m1) ) 
me ) ) 
((and (has-value? product) (has-value? m2)) 
{set-value! ml 
(/ (get-value product) (get-value m2)) 
me)))) | 
(define (process-forget-value) 
(forget-value! product me) 
(forget-value! ml me) 
(forget-value! m2 me) 
{process-—-new-value) ) 
(define (me request) 
(cond ((eq? request ‘I-have-a-value) 
({process-new-value) ) 
(({eq? request ‘I-lost-my-value) 
(process-forget-value) ) 
(else | 
(error "Unknown request -- MULTIPLIER" request) ) ) ) 
(connect ml me) 
(connect m2 me) 
{connect product me) 


me) 


constant 的 构造 函数 简单 地 设置 指定 连接 器 的 值 。 任 何 时 候 把 I-have-a-value 或 者 I- 
1ost-my-Value 消 息 送 到 常量 块 都 会 产生 一 个 错 话 。 


(define (constant value connector) 
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(define (me request) 
(error "Unknown request -- CONSTANT" request) ) 
(connect connector me) 
{set-value! connector value me) 
me ) 
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(define (probe name connector) 
(define (print~probe value) 
(newline) 
(display "Probe: ") 
(display name) 
{display " = ") 
(display value) ) 
(define (process-new-value) 
(print-probe (get-value connector) ) ) 
(define (process-forget-value) 
(print-probe "?")) 
(define (me request} 
(cond ((eq? request 'I-have-a-value) 
(process-—new-value) ) 
( (eq? request “I-lost-my-value) 
{process-forget-value) ) 
(else 
(error "Unknown request -- PROBE" request) }})} 
(connect connector me) 
me ) 


连接 器 用 带 有 局 部 状态 变量 Value、informant 和 constraints 的 过 程 对 象 表 示 ， 
value 中 保存 这 个 连接 器 的 当前 值 ， informant 是 设置 连接 器 值 的 对 象 ，constraints 是 
这 一 连接 器 所 涉及 的 所 有 约束 的 表 。 
(define (make-connector ) 
(let ((value false) (informant false) (constraints °())) 
(define (set-my-value newval setter) 
(cond ((not (has-value? me) ) 
(set! value newval) 
(set! informant setter) 
(for-each-except setter 
inform-about-value 
constraints) ) 
{ (not (= value newval) ) 
(error "Contradiction" (list value newval)))} 
(else ‘ignored))) 
(define (forget-my-value retractor) 
(if (eq? retractor informant) 
(begin (set! informant false) 
(for-each-except retractor 
inform-about-no-value 
constraints) ) 


ignored) ) 
(define (connect new-constraint) 
(if (not (memg new-constraint constraints) ) 
(set! constraints 
(cons new-constraint constraints) )) 
(if (has-value? me) 
(inform-about-value new-constraint) ) 
‘done) 
(define (me request) 
(cond ((eq? request ’has~value?) 
(if informant true false)) 
((eq? request value) value) 
((eq? request ‘set-value!) set-my-value) 
((eq? request forget) forget-my-value) 
( (eq? request ‘connect) connect) 
(else (error "Unknown operation -- CONNECTOR" 
request) )))} 
me ) } 


当 出 现 了 设置 一 个 连接 器 的 要 求 时 ， 该 连接 器 的 局 部 过 程 Sset-my-value 就 会 被 调用 。 
如 果 这 一 连接 器 当时 并 没有 值 ， 那 么 它 就 设置 自己 的 值 ， 并 在 lnformant 里 记录 下 要 求 设置 
当前 值 的 那个 约束 四 。 而 后 这 一 连接 器 将 通知 它 所 参与 的 所 有 约束 ， 除 了 刚刚 要 求 设置 值 的 
那个 约束 之 外 。 这 一 工作 通过 下 面 的 迭代 过 程 完成 ， 它 将 一 个 指定 过 程 应 用 于 一 个 表 中 的 所 
有 对 象 ， 除了 一 个 给 定 的 例外 : 


(define (for-each-except exception procedure list) 
(define (loop items) 
{cond ((null? items) ‘done) 
((eq? (car items) exception) (loop (cdr items))) 
(else (procedure (car items) ) 
(loop (cdr items))))) 
{loop list)) 

当 连 接 器 被 要 求 忘 记 自 己 的 值 时 ， 它 就 会 去 运行 局 部 过 程 forget-my~value。 这 个 过 
程 首 先 检查 这 一 要 求 是 否 来 自 原先 设置 值 的 同一 个 对 象 。 如 果 情 况 确 实 如 此 ， 连 接 器 融通 知 
它 所 参与 的 所 有 约束 ， 告 知 它们 自己 的 值 已 经 没有 了 。 

局 部 过 程 connect 向 约束 表 里 加 入 一 个 新 约束 (如 果 它 以 前 不 在 表 里 )。 如 采 这 个 连接 各 
已 经 有 值 ， 它 就 会 将 这 一 事实 通知 这 个 新 约束 。 

连接 器 过 程 me 完成 对 于 内 部 过 程 服务 的 分 派 工 作 ， 它 同时 也 作为 这 个 连接 器 对 象 的 代表 。 
下 面 几 个 过 程 为 分 派 提 供 了 一 个 语法 界面 : 

(define (has-value? connector) 


(connector ‘has-value?) ) 


(define (get-value connector) 


(connector ‘value) ) 


(define (set-value! connector new-value informant) 
( (connector ’set-value!} new-value informant} ) 


0 这 里 的 settezr 也 可 能 不 是 约束 。 在 前 面 有 关 温 度 的 例子 里 ， 就 用 了 usez fpasetter, 


(define (forget-value! connector retractor) 


( (connector ’forget) retractor) ) 


(define (connect connector new-constraint) 
( (connector ‘connect) new-constraint) ) 


练习 3.33 ”利用 基本 的 加 法 、 乘 法 和 常量 约束 定义 一 个 averager 过程 ， 它 以 三 个 连接 a、 
b 和 c 作 为 输入 ， 建 立 起 一 个 约束 ， 使 得 c 总 是 a 和 b 的 平均 值 。 
练习 3.34 Louis Reasoner 想 做 一 个 平方 器 ， 也 就 是 一 种 带 有 两 条 引线 的 约束 装置 ， 使 得 
连接 在 它 的 第 二 条 引线 上 的 连接 器 b 的 值 是 其 第 一 条 引线 上 的 值 a 的 平方 。 他 提出 了 用 乘法 约 
束 定义 这 一 设备 的 简单 方法 : 
(define (squarer a b) 
{multiplier aa b)) 


这 一 建议 有 一 个 严重 缺陷 ， 请 给 出 解释 。 
练习 3.35 Ben Bitdiddle 告 诉 Louis ， 为 了 避免 他 在 练习 3.34 中 遇 到 的 麻烦 ， 一 种 方式 是 将 
平方 器 定义 为 一 个 新 的 基本 约束 。 请 填充 Ben 所 给 出 的 下 面 过 程 概要 ， 实 现 这 样 的 约束 : 
(define (squarer a b) | 
(define (process-new-value) 
(if (has-value? b) 
(if (< (get-value b) 0) | 
(error "square less than 0 -- SQUARER" (get-value b)) 
<alternative!>) : 
<alternative2> ) ) 
(define (process-forget-value) <bodyl>) 
(define (me request) <body2>) 
< 其 他 定义 > 


me ) 
练习 3.36 假定 我 们 要 在 全 BOHR Pi AIA PSI: 
{define a (make-connector) ) 


(define b (make-connector) ) 
({set-value! a 10 ‘user) 


在 对 set-value! 求 值 的 某 个 时 刻 ， 需 要 在 连接 器 的 局 部 过 程 中 求 值 下 面 表 达 式 : 
{for-each-except setter inform-about-value constraints) 
请 画 出 表示 上 述 表 达 式 的 求 值 环境 的 环境 图 。 
练习 3.37 与 下 面 更 具 表 达 式 风格 的 定义 相 比 ， 过 程 celsius-fahrenheit~converter 
we el FRM T : 
(define (celsius-fahrenheit-converter x) 
(c+ (c* (c/ (cv 9) (ev 5)) 


X) 
(cv 32))) 


(define C (make-connector)} ) 
(define F (celsius-fahrenheit-converter C) ) 


这 里 的 c + 、c* 等 等 是 算术 运算 的 “约束 ”版 。 例 如 ，c CH AMMERBASRK, BA AT 
连接 器 ， 它 与 那 两 个 连接 器 具有 加 法 约束 : 
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(define (c+ x y) 
(let ((z (make-connector) ) ) 
(adder x y 2) 


z)) 
请 定义 模拟 过 程 c-、c* 、c/ 和 cv (常量 值 ) ， 使 我 们 可 以 利用 它们 定义 出 各 种 复合 约束 ， 就 
像 前 面 有 关 反 门 的 例子 ”。 | 


3.4 并 发 ， 时 间 是 一 个 本 质问 题 


我 们 已 经 看 到 了 具有 内 部 状态 的 计算 对 象 作为 模拟 工具 的 威力 。 然 而 ， 正 如 3.1.3 市 提出 
的 警告 ， 这 种 威力 也 付出 了 代价 ， Ei 了 引用 透明 性 ， 造 成 了 有 关 同 一 与 变化 问题 中 的 模糊 
不 清 ， 还 必须 抛弃 求 值 的 代 换 模型 ， 转 而 采用 更 复杂 也 难 把 握 的 环境 模型 。 

潜藏 在 状态 、 同 一 、 变 化 后 面 的 中 心 问 题 是 ， 引 入 赋值 之 后 ， 我 们 就 必须 承认 时 间 在 所 
用 的 计算 模型 中 的 位 置 。 在 引入 赋值 之 前 ， 我们 的 所 有 程序 都 没有 时 间 问 题 ， 也 就 万 说 ， 任 
何 具 有 某 个 值 的 表达 式 ， 将 总 是 具有 这 个 值 。 与 此 相反 ， 请 回忆 一 下 在 3.1.1 市 开始 介绍 的 ， 
模拟 从 银行 账户 提 款 并 返回 最 后 余额 的 例子 


(withdraw 25) 
75 


(withdraw 25) 
50 


在 这 里 ， 连 续 地 对 同一 个 表达 式 求 值 ， 却 产生 出 了 不 同 的 值 。 这 种 行为 的 出 现 就 是 因为 一 个 
gor, 赋值 语句 的 执行 (在 所 讨论 的 情况 中 就 是 对 balance 的 赋值 ) 描绘 出 有 关 值 变化 的 一 
些 时 刻 ， 对 一 个 表达 式 的 求 值 结果 不 但 依赖 于 该 表达 式 本 身 ， 还 依赖 于 求 值 发生 在 这 些 时 刻 
之 前 还 是 之 后 。 采 用 具有 局 部 状态 的 计算 对 象 建立 模型 ， 就 会 迫使 我 们 去 直面 时 间 问 题 ， 并 
将 它 作为 程序 设计 中 一 个 必 不 可 少 的 概念 。 

在 构造 与 我 们 所 感知 的 物理 世界 更 加 匹配 的 计算 模型 方面 ， 我 们 还 可 以 走 得 更 还 一 


8! 这 种 类 表达 式 的 表示 形式 比较 方便 ， 因为 在 这 里 可 以 不 必 去 命名 一 个 计算 的 中 间 表达 式 。 我 们 原来 的 约束 语 
” 言 在 形式 上 的 麻烦 ， 与 许多 语言 中 处 理 复合 数据 的 操作 时 所 遇 到 的 麻烦 完全 一 样 。 例 如 ， 如 果 我 们 希望 计算 
乘积 (a +b) . (c +d)， 其 中 的 变量 都 表示 向 量 ， 我 们 可 以 采用 “命令 式 风格 ”"， 用 一 些 设 置 指定 向 量 参数 ， 但 
自己 并 不 返回 向 量 值 的 过 程 : 

(v-sum a b templ) 

(v-sum c d temp2) 

(v-prod templ temp2 answer) 

换 一 种 方式 ， 我 们 也 可 以 用 返回 向 量 值 的 过 程 写 表 达 式 ， 因 此 就 可 以 避免 显 式 地 提出 tempP1 和 temp< : 
(define answer (v-prod (v-sum a b) (v-sum cC d))) 

因为 Lisp 人 允许 返回 复合 对 象 作为 过 程 的 值 ， 因 此 我 们 就 可 以 将 上 面 的 命令 式 风 格 的 约束 语言 ， 变 换 为 为 一 种 
表达 式 风格 的 语言 ( 见 上 述 练习 )。 在 那些 处 理 复合 数据 对 象 方面 手段 贫乏 的 语言 里 ， 例 如 Algol 、Basic 和 和 
Pascal (一 个 例外 的 是 在 Pascal 里 显 式 使 用 指针 变量 )， 人 们 通常 只 能 通过 命令 式 风格 去 操作 复合 对 象 。 看 到 
了 基于 表达 式 风 格 的 优点 之 后 ， 有 人 可 能 会 问 ， 采 用 命令 式 风格 实现 系统 ( 像 我 们 在 这 一 节 里 所 做 的 这 样 ) 
难道 还 有 什么 理由 吗 ? 这 里 的 一 个 理由 是 ， 非 表达 式 风 格 的 约束 语言 为 约束 对 象 和 连接 器 对 象 提 供 了 句柄 
(例如 ，adder 过 程 的 值 ) ， 如 果 我 们 希望 为 有 关 的 系统 扩充 一 些 新 操作 ， 和 希望 它们 直接 与 这 些 约束 通信 ， 而 
不 是 通过 连接 器 上 的 操作 ， 这 种 句柄 就 会 显得 非常 有 用 了 。 虽 然 在 命令 式 的 实现 之 上 很 容易 实现 基于 表达 却 
的 风格 ， 要 想 反 过 来 做 就 非常 困难 了 。 
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现实 世界 里 的 对 象 并 不 是 一 次 一 个 地 顺序 变化 ， 与 此 相反 ， 我 们 看 到 它们 总 是 并 发 地 活动 ， 
所 有 东西 一 起 活动 。 所 以 ， 用 一 集 并 发 执行 的 计算 进程 (为 了 与 一 般 讨论 并 行 计算 SH RA 
题 的 文献 保持 一 致 ， 在 这 一 节 里 ， 我 们 把 术语 process 翻 译 为 “进程 ”。 实 际 上 ， 这 里 的 
process 与 前 面 译 为 “计算 过 程 ”的 process 描 述 的 是 同样 的 现象 ， 都 是 指 一 个 计算 活动 的 进展 
情况 一 一 译 者 注 ) 模拟 各 种 系统 常常 是 很 自然 的 。 正 如 我 们 可 以 通过 将 模型 组 织 为 一 些 具有 
相互 分 离 的 局 部 状态 的 对 象 ， 使 做 出 的 程序 更 加 模块 化 一 样 ， 将 计算 模型 划分 为 一 些 能 各 自 
独立 地 并 发 演化 的 部 分 ， 常 常 也 是 很 合适 的 。 即 使 有 关 的 程序 是 在 一 台 顺 序 计 算 机 上 执行 ， 
在 实际 写 程序 时 就 像 它 们 将 被 并 发 地 执行 那样 ， 也 能 帮助 程序 员 们 避免 那些 并 不 必要 的 时 间 
约束 ， 因 此 也 可 能 使 程序 更 加 模块 化 。 

除了 使 程序 更 加 模块 化 之 外 ， 并 发 计算 还 可 能 提供 某 种 超越 顺序 计算 的 速度 优势 。 顺 序 
计算 机 每 次 只 能 执行 一 个 操作 ， 所 以 它 执 行 一 件 任务 所 花费 的 时 间 量 将 正比 于 需要 执行 的 操 
作 的 总 数 '。 然 而 ， 如 果 可 能 将 一 个 问题 分 解 为 一 些 片 段 ， 这 些 片段 之 间 相 对 独立 ， 极 少 需 
要 相互 联系 ， 那 么 就 有 可 能 将 这 些 片段 分 配给 不 同 的 计算 处 理 器 ， 得 到 的 速度 提高 就 可 能 正 
比 于 可 用 的 处 理 器 数目 了 。 

但 是 ， 在 出 现 了 并 发 的 情况 下 ， 由 赋值 引入 的 复杂 性 问题 将 变 得 更 加 严重 了 。 无 论 是 因 
为 真实 世界 确实 如 此 ， 还 是 因为 我 们 在 计算 机 里 这 样 做 ， 并 发 执行 的 出 现 都 会 在 我 们 对 时 间 
的 理解 中 加 入 进一步 的 复杂 性 。 


3.4.1 并 发 系统 中 时 间 的 性 质 


从 表面 上 看 ， 时 间 似 乎 是 非常 简单 的 东西 。 它 也 就 是 强加 在 各 种 事件 上 的 一 个 顺序 ”。 
对 于 任何 两 个 事件 4 和 有 8 ,或 者 是 4 出 现在 B 之 前 ,或 者 A 和 8B 同时 发 生 , 或 者 A 出 现在 B 之 后 。 
壁 如 说 ， 回 到 前 面 银行 账户 的 例子 。 假 设 Peter 从 两 人 的 共用 账户 里 提 款 10 元 而 Paul 提 款 25 元 。 
这 一 账户 的 初始 余额 为 100 元 ， 提 款 后 账户 余额 为 65 元 。 根 据 两 次 提 款 的 顺序 不 同 ， 账 户 中 余 
额 的 序列 可 以 是 100 一 90 一 65 或 者 100 一 75 一 65。 在 银行 系统 的 一 个 计算 机 实现 里 ， 余 额 的 这 
种 变化 序列 可 以 用 对 变量 balance 的 一 系列 赋值 来 模拟 。 

在 更 加 复杂 的 情况 下 ， 这 样 的 观点 也 会 成 为 问题 。 假 设 Peter 和 Paul， 可 能 还 有 其 他 的 人 ， 
都 在 通过 遍布 全 世界 的 银行 机 器 网 络 访问 这 个 账户 。 那 么 余额 的 实际 序列 就 将 严格 地 依赖 于 
这 些 访 问 的 确切 时 间 顺 序 ， 以 及 机 器 之 间 通 信和 的 各 种 细 市 。 

事件 顺序 的 非 确 定性 ， 可 能 对 并 发 系统 的 设计 提出 了 严重 的 问题 。 举 例 说 ， 假 定 由 Feter 
和 Paul 进 行 的 取款 被 实现 为 两 个 独立 的 进程 ， 它 们 共享 同一 个 变量 balance ， 这 两 个 计算 进 

程 都 由 3.1.1 节 给 出 的 如 下 过 程 描述 : 


(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 


如 果 这 两 个 进程 独立 地 操作 ， 那 么 Peter 就 可 能 去 检查 余额 ， 而 后 企图 提取 出 合法 数量 的 一 笔 


12 大 部 分 真实 的 处 理 器 每 次 执行 若干 个 操作 ， 它 们 采用 一 种 称 为 流水 线 的 策略 。 虽 然 这 一 技术 能 极 大 地 提高 硬 
件 性 能 ， 它 也 只 是 用 于 加 速 顺 序 指令 流 的 执行 ， 还 需要 保持 顺序 程序 的 行为 。 
3 引 一 段 写 在 剑桥 建筑 墙 上 的 话 :“ 时 间 是 一 种 设施 ， 发 明 它 就 是 9%9 了 不 让 所 有 的 事情 都 立即 发 生 。 
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ak. Am., ，Paul 完 全 可 能 在 Peter 检 查 余额 的 时 刻 与 Peter 完 成 提 款 的 时 刻 之 间 提 取 走 了 一 笔 钱 ， 
这 样 也 就 使 Feter 的 事先 检查 变 得 不 再 合法 了 。 

事情 还 可 能 变 得 更 糟糕 。 考 虑 作为 每 个 提 款 进程 一 部 分 的 表达 式 : 

(set! balance {- balance amount) ) 
IX — FEIARMATAS=THR: 1) 取得 变量 balance 的 值 ， 2) 计算 出 新 的 余额 ，3 ) 将 变量 
balance 设 置 为 新 值 。 如 果 Peter 和 Paul 在 提 款 过 程 中 并 发 地 执行 这 一 语句 ， 那 么 这 两 次 提 款 
在 访问 balance 和 将 它 设置 为 新 值 的 动作 就 可 能 交错 。 

图 3-29 显 示 的 时 序 图 勾画 了 一 个 事件 顺序 ， 其 中 的 balance 在 开始 时 是 100，Peter 取 走 
了 10 ，Paul 取 走 了 25 ， 然 而 balance 节 后 的 值 却 是 7$3。 正 如 图 中 所 示 ， 出 现 这 种 异常 情况 的 
原因 是 ，Paul 将 7 赋值 给 balance 的 前 提 条 件 是 ， 在 减少 之 前 balance 的 值 是 100 。 而 当 
Peter balance m 为 40 之后， 上述 前 提 已 经 变 得 不 再 合法 了 。 对 于 银行 系统 而 言 ， 这 当然 
是 灾难 性 的 错误 ， 因 为 系统 里 款项 的 总 量 没 有 维持 好 。 在 这 些 交易 之 前 ， 款 项 的 总 额 是 100 元 。 
在 此 之 后 ，Peter 有 了 10 元 ，Paul 有 了 25 元 ， 而 银行 还 有 73 元 “。 


Peter Bank Paul 
$100 
Access balance: $100 Access balance: $100 © 
new value: [00-10-90 


new value: 100-25=75 
set! balance to $90 


$90 


图 3-29 时 序 图 ， 说 明 两 次 银行 提 款 事件 怎样 交错 就 可 能 导致 不 正确 的 余额 


由 这 一 实例 表现 出 的 一 般 性 现象 是 ， 几 个 进程 有 可 能 共享 同一 个 状态 变量 。 使 事情 变 得 
更 加 复杂 的 原因 ， 就 是 多 个 进程 有 可 能 同时 试图 去 操作 这 种 共享 的 状态 。 对 于 银行 账户 的 例 
子 ， 在 完成 每 次 交易 了 时， 每 个 客户 应 该 能 像 根本 不 存在 其 他 客户 那样 进行 自己 的 活动 。 当 一 
个 客户 以 某 种 依赖 于 余额 的 方式 修改 余额 时 ， 他 应 该 能 够 假定 ， 在 立刻 就 要 做 修改 的 那个 时 


set! balance to $75 


time 


4 对 于 这 个 系统 ， 如 果 两 个 set! 操作 同时 试图 去 修改 余额 ， 产 生 的 情况 可 能 更 精 。 在 这 种 情况 下 ， 存 储 器 里 
出 现 的 实际 数据 就 可 能 是 两 个 进程 所 写 信 息 的 随机 组 合 。 大 部 分 计算 机 都 有 对 存储 器 基本 写 人 操作 的 互 锁 ， 
以 防止 这 种 同时 写 人 的 情况 发 生 。 即 使 是 这 种 看 起 来 很 简单 的 保护 机 制 ， 也 对 于 多 处 理 计算 机 的 设计 实现 提 
出 了 挑战 ， 在 那里 ， 非 常 精巧 的 弹 存 一 致 性 规程 要 求 保证 所 有 处 理 器 对 存储 器 的 内 容 有 一 种 统一 观点 ， 以 提 
高 存储 器 访问 的 速度 ， 虽 然 事 实 上 这 具 数 据 可 能 复制 (缓存 ) 在 不 同 处 理 器 里 。 
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刻 ， 该 余额 的 情况 仍然 还 是 他 所 设想 的 那样 。 

并 发 程序 的 正确 行为 

上 面 例子 的 情况 非常 典型 ， 是 可 能 潜藏 在 并 发 程序 里 的 微妙 错误 。 这 一 复杂 性 的 根源 ， 
束 在 于 这 里 出 现 了 对 不 同 进程 之 间 共 享 的 变量 的 赋值 。 我 们 已 经 知道 ， 在 写 那 些 使 用 set! 的 
程序 时 必须 小 心 ， 因 为 一 个 计算 的 结果 将 依赖 于 其 中 的 各 个 赋值 发 生 的 顺序 ”“。 对 于 并 发 进 
Fe, ， 我 们 对 于 赋值 就 更 需要 特别 小 心 ， Om 
序 。 如 果 几 个 这 样 的 修改 可 能 并 发 出 现 (就 像 上 面 两 个 提 款 人 访问 一 个 共用 账户 的 情况 )， 
们 就 需要 采用 某 些 方式 ,以 设法 保证 系统 的 行为 是 正确 的 。 例 如 ， 在 共用 银行 oe in set 
况 中 ， 我 们 必须 保证 总 款额 不 变 。 为 了 使 并 发 程序 的 行为 正确 ， 可 能 就 需要 对 程序 的 并 发 执 
行 增加 一 些 限制 。 

对 于 并 发 的 一 种 可 能 限制 方式 是 规定 ， 修 改 任 意 共 享 状 态 变 量 的 两 个 操作 都 不 允许 同时 
发 生 。 这 是 一 个 特别 严厉 的 要 求 。 对 于 分 布 式 银 行 系统 ， 这 就 要 求 系统 设计 者 保证 同时 出 现 
的 只 能 有 一 个 交易 。 这 样 做 可 能 过 于 低 效 ， 也 太保 字 了。 图 3-30 中 显示 的 是 Peter 和 Paul 共 享 
同一 个 银行 账户 ， 而 Peter 自 己 还 有 一 个 私人 账户 。 该 图 展示 了 从 共享 账户 的 两 次 提 款 (一 次 
来 自 Peter， 一 次 来 自 Paul ) 和 对 Paul 的 个 人 账户 的 一 次 存款 “。 对 于 共享 账户 的 两 次 取款 决 不 
能 并 发 进行 〈 因 为 两 者 需要 访问 和 更 新 同一 账户 ) ， 而 且 Paui 的 存款 和 取款 也 决 不 能 并 发 〈 因 
为 两 者 都 访问 和 更 新 Paul 账 户 里 的 款额 )。 但 是 ， 人 允许 Paul 同 自己 的 个 人 账户 存款 与 Peter 从 他 
们 的 共享 账户 取款 并 发 进行 ， 则 不 会 有 任何 问题 。 


Peter Paul 


time 


图 3-30 并 发 地 从 共享 账户 Bankl 取 款 和 向 个 人 账户 Bank2 存 款 





5 3.1.3 节 里 的 阶乘 程序 针对 单个 顺序 进程 阐释 了 这 方面 的 情 次 。 - 
66 图 中 各 列 分 别 显 示 了 Peter 的 钱包 ， 共 用 账户 (Bank1)，Paul 的 钱包 ，Pauil 的 个 人 账户 (Bank2)， 显 示 了 它们 
在 每 次 提 款 (W) 和 存款 (D) 前 后 的 情况 。Peter 从 Bank1 取 出 10 元 ，Paul 向 Bank2 存 人 5 元 ， 而 后 又 从 Bankl 


取出 “5 元 。 
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对 于 并 发 的 另 一 种 不 那么 严厉 的 限制 方式 是 ， 保 证 并 发 系统 产生 出 的 结果 与 各 个 进程 按 
照 某 种 方式 顺序 运行 产生 出 的 结果 完全 一 样 。 这 一 要 求 中 包含 两 个 重要 方面 。 首 先 ， 它 并 没 
有 要 求 各 个 进程 实际 上 顺序 地 运行 ， 而 只 是 要 求 它们 产生 的 结果 与 假设 它们 顺序 运行 所 产生 
出 的 结果 相同 。 对 于 图 3-30 的 例子 ， 银 行 账户 系统 的 设计 者 可 以 安全 地 人 允许 Paul 的 存款 和 
Peter 的 取款 并 发 进行 ， 因 为 这 样 做 所 造成 的 整体 效果 与 这 两 个 操作 顺序 出 现 的 效果 一 样 。 第 
二 点 ， 一 个 并 发 程序 完全 可 能 产生 多 于 一 个 “正确 的 ”结果 ， 因 为 我 们 只 要 求 其 结果 与 按照 
某 种 方式 顺序 化 的 结果 相同 。 例 如 ， 假 定 Peter 和 了 Paul 的 共享 账户 里 开始 有 100 元 ，Peter 存 人 40 
元 ， 同 时 Paul 并 发 地 取出 了 账户 中 钱 数 的 一 半 。 顺 序 执行 的 结果 可 能 使 得 账户 里 的 余额 变 成 
70 元 或 者 90 元 (参见 练习 3.38) 1, 

对 于 并 发 程序 的 正确 执行 ,我们 还 可 以 提出 一 些 更 弱 的 要 求 。 一 个 模拟 扩散 过 程 的 程序 
(例如 ， 在 某 个 对 象 里 面 的 热量 流动 ) 可 以 由 一 大 批 进程 组 成 ， 每 个 进程 代表 空间 中 很 小 的 一 
点 体积 ， 它 们 并 发 地 更 新 自己 的 值 。 这 里 的 每 个 进程 都 反复 将 自己 的 值 更 新 为 自己 的 原 值 和 
相 邻 进程 的 值 的 平均 值 。 无 论 有 关 的 操作 按 什 么 顺序 执行 ， 这 种 算法 都 能 收敛 到 正确 的 解 ， 
因此 也 就 不 需要 对 于 共享 变量 的 并 发 使 用 提出 任何 限制 了 。 

练习 3.38 ”假定 Peter、Paul 和 Mary 共 享 一 个 共用 的 账户 ， 其 中 开始 有 100 元 钱 。 按 照 并 发 
方式 执行 下 面 命 令 , Peter 存 人 10 元 ， Paul 取 出 20 元 ， 而 Mary 取 出 了 账户 中 款额 的 一 半 : 


Peter: (set! balance (+ balance 10)) 
Paul: (set! balance (- balance 20)) 
Mary: (set! balance (- balance (/ balance 2))) 


a) 请 列 出 在 完成 了 这 3 项 交易 之 后 Dalance 的 所 有 可 能 值 。 这 里 假定 银行 系统 强迫 这 二 
个 进程 按照 菜 种 硕 序 方式 运行 。 

b) 如 果 系 统 允 许 这 些 进程 交错 进行 ， 还 可 能 产生 出 另外 一 些 值 吗 ?请 画 出 类 似 于 图 3-29 
的 时 序 图 ， 解 释 各 个 全 将 如 何 出 现 。 


3.4.2 控制 并 发 的 机 制 


我 们 已 经 看 到 了 处 理 并 发 进程 的 困难 ， 这 些 困 难 的 根源 就 在 于 需要 考虑 不 同 进程 里 各 个 
事件 之 间 相 互 交 错 的 情况 。 举 例 来 说 ， 假 定 我 们 有 两 个 进程 ， 其 中 一 个 里 面 有 顺序 的 三 个 事 
ft (a, b, c)， 另 一 个 有 顺序 的 三 个 事件 (x, 》, z)。 如 果 这 两 个 进程 并 发 运行 ， 对 于 它们 的 执行 
如 何 交 错 没 有 任何 限制 ， 那 么 就 存在 20 种 可 能 的 事件 排列 ， 它 们 都 与 两 个 进程 中 各 个 事件 的 
排列 顺序 相 容 : 

(a, b,c, x,y,z) (a,x, b,y,c,2) (x,a,b,c,y,z) (x,a,y,7, b,c) 
(a, b,x, c,y,2) (a,x, b,y,z,c) (x,a, b,y,c,7) (x,y,a, b,c, z) 
(a, b, x, y,c,z) (a,x, y,b,c,z) (x,a,b,y,z,c) (x,y, a, 5, z, c) 
(a, b,x, y,2,c) (a,x,y,b,7,c) (x,a,y,b,c,z) (x,y, 4, z, b,c) 
(a,x, b,c, y,z) (a,x, y,z, b,c) (x,a, y,b,z,c) (x, y, Z, a, b,c) 
作为 设计 这 一 系统 的 程序 员 ， 我 们 可 能 就 必须 考虑 这 20 种 排列 中 每 一 种 的 效果 ， 检 查 古 全 每 


le 有 关 这 种 看 法 的 更 形式 化 的 说 法 是 说 并 发 程序 具有 内 在 的 非 确定 性 。 也 就 是 说 ， 它 们 不 能 用 单 值 函数 描述 ， 
而 只 能 用 结果 为 一 集 可 能 值 的 函数 描述 。 在 4.3 节 里 ， 我 们 将 研究 一 种 表述 非 确定 性 计算 的 语言 。 


34 AK: 时 间 是 一 个 本 质问 题 211 


种 排列 的 行为 都 是 可 以 接受 的 。 当 进程 和 事件 的 数量 进一步 增加 时 ， 这 一 方式 很 快 就 会 变 得 
无 法 控制 了 。 

男 一 种 更 实际 的 方法 是 ， 在 设计 并 发 系统 时 ， 设 法 做 出 一 些 一 般 性 的 机 制 ， 使 我 们 可 能 
限制 并 行进 程 之 间 的 交错 情况 ， 以 保证 程序 具有 正确 的 行为 方式 。 人 们 已 经 为 此 目的 而 开发 
了 许多 不 同 的 机 制 。 这 一 六 里 将 讨论 其 中 的 一 种 : 串 行 化 组 (serializer), 

对 共享 变量 的 串 行 访问 

串 行 化 就 是 实现 下 面 的 想法 : 使 进程 可 以 并 发 地 执行 ， 但 是 其 中 也 有 一 些 过 程 不 能 并 发 
地 执行 。 说 得 更 准确 些 ， 串 行 化 就 是 创建 一 些 不 同 的 过 程 集合 ， 并 且 保 证 在 每 个 时 刻 ， 在 任 
何 一 个 申 行 化 集合 里 至 多 只 有 一 个 过 程 的 一 个 执行 。 如 果菜 个 集合 里 有 过 程 正在 执行 ， 而 另 
一 进程 企图 执行 这 个 集合 里 的 任何 过 程 时 ， 它 就 必须 等 待 到 前 一 过 程 的 执行 结束 。 

我 们 可 以 借助 品行 化 去 控制 对 共享 变量 的 访问 。 举 例 说 ， 如 果 我 们 希望 基于 茶 个 共 译 变 
量 已 有 的 值 去 更 新 它 ， 那 么 就 应 该 将 访问 这 一 变量 的 现 有 值 和 给 这 一 变量 赋 新 值 的 操作 都 放 
入 同一 个 过 程 里 。 而 后 设法 保证 ， 任 何 能 给 这 个 变量 赋值 的 过 程 都 不 会 与 这 个 过 程 并 发 运行 ， 
方法 是 将 所 有 这 样 的 过 程 都 放 在 同一 个 串 行 化 集合 里 。 这 就 保证 了 在 访问 一 个 变量 和 给 它 赋 
值 之 间 ， 这 一 变量 的 值 不 会 改变 。 

Scheme 里 的 串 行 化 

为 了 使 上 述 机 制 更 加 有 具体 化 ， 假 定 我 们 已 经 扩充 了 所 用 的 Scheme 语 45, ， 加 入 了 一 个 称 为 
ParallLelL-execute 的 过 程 ; 

(parallel-execute <p> <pz> ... <p?) 

这 里 的 每 个 <p> 必 须 是 一 个 无 参 过 程 ，parallel-execute 为 每 个 <p> 创 建 一 个 独立 的 进程 ， 
该 进程 将 应 用 <p> (没有 参数 )。 这 些 进程 都 并 发 地 运行 ”。 
作为 使 用 这 种 机 制 的 例子 BE: 


(define x 10) 


(parallel-execute (lambda () (seti x (* x X))) 
(lambda () (set! x (+ x 1)))) 


这 样 就 建立 了 两 个 并 发 计算 进程 ， 已 要 把 x 设 置 HRA, MPA xA. 。 在 这 些 执行 
完成 之 后 ，x 将 具有 下 面 3 个 可 能 值 之 一 ， 具 体 结 果 将 依赖 于 和 所 中 各 个 事件 的 交错 悄 帝 ， 

101: P, 将 x 设置 为 100， 而 后 Ps 将 x 的 值 增 加 到 101 

121: P; 将 x 的 值 增加 到 11 ， 而 后 P1 将 x 设置 为 x 乘 Lx 

110: P, 将 x 从 10 修 改 为 11 的 动作 出 现在 Pi 两 次 访问 x 的 值 之 间 ， 这 两 次 访问 是 为 了 求 值 表 

达 式 (* X X) 

11: P, 访 问 x ， 而 后 P1 将 Xx 设置 为 100 ， 而 后 又 设置 X 

100: Pl 访问 x (两 次 )， 而 后 P2 将 x 设置 为 11， 而 后 Pi 又 设置 x 

我 们 可 以 用 串 行 化 的 过 程 给 这 里 的 并 发 性 强加 一 些 限制 ， 通 过 串 . 行 化 组 实现 这 种 限制 。 
构造 串 行 化 组 的 方式 是 调用 make-serializer， 这 一 过 程 的 实现 将 在 后 面 给 出 。 一 个 串 行 


6 parallel-execute 并 不 是 标准 Scheme 的 一 部 分 ， 但 是 可 以 在 MIT Scheme 里 实现 它 。 在 我 们 的 实现 中 ， 
新 的 并 发 进程 也 与 原 Scheme 进程 并 发 地 执行 。 还 有 ， 在 我 们 的 实现 里 ， 由 paralle1l-execute 返 回 的 值 是 
一 个 特殊 的 控制 对 象 ， 可 以 用 于 终止 这 个 新 创建 的 进程 。 


_ 22 HR RRS 


化 组 以 一 个 过 程 为 参数 ， 它 返回 的 串 行 化 过 程 具 有 与 原 过 程 一 样 的 行为 方式 。 对 一 个 给 定 串 
行 化 组 的 所 有 调用 返回 的 串 行 化 过 程 都 属于 同一 个 集合 。 

这 样 ， 与 上 面 的 例子 不 同 ， 执 行 : 

(define x 10) 

(define s (make-serializer) ) 


(parallel-execute {s (lambda () (set! x (* xX X)))) 
(s (lambda () (set! x (+ x 1))))) 


只 可 能 产生 x 的 两 种 可 能 值 101 和 121， 其 他 几 种 可 能 性 都 被 清除 掉 了， 因为 Pl 和 PA; 的 执行 不 会 
交错 进行 。 
下 面 是 取 自 3.1.1 节 的 make-account 过 程 的 另 一 个 版 本 ， 其 中 存款 和 取款 操作 已 经 做 了 
PITIE: 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds")) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer))) 
(define (dispatch m) 
(cond (({eq? m ’withdraw) (protected withdraw) ) 
((eq? m "deposit) (protected deposit) ) 
(({eq? m balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


对 于 这 个 实现 ， 两 个 进程 就 不 会 并 发 地 在 同一 个 账户 中 存款 和 取款 ， 这 样 就 清除 了 出 现 图 3- 
29 中 所 展示 的 错误 的 根源 ， 那 里 出 现 错误 是 由 于 Peter 修 改 账 户 余额 的 动作 ， 出 现在 Faul 访 问 - 
这 一 余额 以 计算 新 值 和 实际 执行 赋值 的 动作 之 间 。 而 在 另 一 方面 ， 由 于 每 个 账户 都 有 它 目 己 
的 串 行 化 组 ， 因 此 对 不 同 账户 的 存款 和 取款 都 可 以 并 发 地 进行 。 

练习 3.39 ”如 果 我 们 换 用 下 面 的 串 行 化 执行 ， 上 面 正文 中 所 示 的 3 种 并 行 执行 结果 中 的 哪 
一 些 还 可 能 出 现 ? / 

(define x 10) 

(define s (make-serializer)) 


(parallel-execute (lambda () (set! x ((S {lambda () (* x X)))))) 
(s (lambda () (set! x (+ x 1})))) 


练习 3.40 ”请 给 出 下 面 的 执行 可 能 产生 出 的 所 有 x 值 : 
(define x 10) 


(parallel-execute (lambda () (set! x (* x X) ) ) 
(lambda () (set! x (* x X X)))) 
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如 果 我 们 改 用 下 面 的 串 行 化 过 程 ， 上述 可 能 性 中 的 哪些 还 会 存在 : 
(define x 10) 


(define s (make-serializer)) 


(parallel~execute (s (lambda {) (set! x (* x x)))) 
(s (lambda () (set! x (* x x x))))) 
练习 3.41 Ben Bitdiddle 觉 得 像 下 面 这 样 实现 银行 账户 可 能 更 好 (其 中 带 注 释 的 行 修改 
T): 


(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance {+ balance amount) ) 
balance) 
(let ((protected (make-serializer) )) 
(define (dispatch m) | 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
(({eq? m ’deposit) (protected deposit)) 
((eq? m balance ) 
( (protected (lambda () balance)))) ; serialized 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m))))} 
dispatch) ) 


因为 允许 非 串 行 地 访问 银行 账户 可 能 导致 不 正常 的 行为 。 你 同意 Ben 的 观点 吗 ? 是 否 存在 某 种 


情况 ， 能 证 明 Ben 所 担心 的 问题 ? 
练习 3.42 Ben Bitdiddle 建 议 说 ， 在 响应 每 个 withdraw 和 和 deposit 消息 时 创建 一 个 新 
的 串 行 化 过 程 完 全 是 浪费 时 间 。 他 说 ， 可 以 修改 make-account ,使 得 对 protected 的 调 
用 都 可 以 在 过 程 Gispatch 之 外 进行 。 这 样 ， 在 每 次 要 求 去 执行 提 款 过 程 时 ， 这 个 账户 将 总 
返回 同一 个 串 行 化 过 程 ( 它 是 与 这 个 账户 同时 创建 的 )。 | 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) )) 
(let ((protected-withdraw (protected withdraw) ) 
(protected-deposit (protected deposit) )) 
{define (dispatch m) 


(cond ((eq? m withdraw) protected-withdraw) 
((eq? m deposit) protected-deposit) 
((eq? m balance) balance) 
(else (error "Unknown request -- MAKE~ACCOUNT" 
m)))) 


dispatch) )) 
这 样 的 修改 安全 吗 ? 特别 是 这 样 修改 之 后 ， 在 所 人 允许 的 并 发 性 方面 ，make-~account 的 两 个 
版 本 之 间 有 什么 不 同 ? 


使 用 多 重 共享 资源 的 复杂 性 

串 行 化 提供 了 一 种 非常 强 有 力 的 抽象 ， 能 帮助 我 们 将 并 发 程序 的 复杂 性 孤立 起 来 ， 使 这 
种 程序 能 够 被 小 心地 和 (希望 是 ) 正确 地 处 理 。 然 而 ， 如 果 只 存在 一 个 共享 资源 (例如 一 个 
银行 账户 )， 串 行 化 的 使 用 问题 是 相对 比较 简单 的 。 但 是 如 果 存 在 着 多 项 共享 资源 ， 并 发 程序 
设计 就 可 能 变 得 非常 难以 把 握 了 。 

为 了 展示 可 能 出 现 的 一 种 困难 ， 现 在 假定 我 们 希望 交换 两 个 账户 的 余额 。 我 们 首先 访问 
每 个 账户 以 确定 其 中 的 余额 ， 而 后 计算 出 这 两 个 余额 之 间 的 差额 ， 从 一 个 账 尸 里 减 去 这 一 卷 
额 ， 而 后 将 它 存 入 另 一 个 账户 。 我 们 可 能 如 下 实现 这 一 工作 ”: 


(define (exchange accountl account?) 
(let ((difference (- (accountl ‘balance) 
{account2 balanceh)) ) ) 
((accountl ’withdraw) difference) 
((account2 ‘deposit) difference) )) 

如 果 只 有 一 个 进程 试图 做 这 种 交换 ， 这 一 过 程 能 够 工作 得 很 好 。 然 而 ， 假 定 Peter 和 Paul 都 
能 访问 账 户 g1、&2 和 &3 ， 在 Peter 要 求 交 换 &1 和 &2 时 ， 正 好 Paul 也 并 发 地 要 求 交 换 &] Flas, R 
然 我 们 已 对 单个 账户 的 存款 和 取款 做 了 串 行 化 (就 像 在 上 一 节 里 所 示 的 make-~-account 过 程 )， 
exchange 还 是 可 能 产生 不 正确 的 结果 。 举 例 说 ，Peter 可 能 已 经 算出 了 al 和 4 的 余额 之 老 ， 
但 是 Paul 却 可 能 在 Peter 完 成 交换 之 前 改变 了 al 的 余额 “。 为 了 得 到 正确 的 行为 ， 我 们 融 必须 重 
新 安排 exchange 过 程 ， 让 它 能 在 完成 整个 交换 的 期 间 锁 住 对 于 这 些 账户 的 任何 其 他 访问 。 

得 到 这 种 效果 的 一 种 方式 是 用 两 个 账户 的 串 行 化 组 将 整个 exchange 过 程 串 行 化 。 为 此 
我 们 就 要 重新 安排 对 一 个 账户 的 串 行 化 组 的 访问 。 请 注意 ， 我 们 在 这 里 暴露 了 相关 的 串 行 化 
组 ， 最 后 还 是 有 意 地 打破 了 银行 账户 对 象 的 模块 化 。 下 面 的 make-account 版 本 等 价 于 3.1.1 
节 里 的 原始 版 本 ， 除 了 其 中 有 一 个 串 行 化 组 ， 它 提供 了 对 余额 变量 的 保护 。 另 外 还 将 这 个 串 
行 化 组 通过 消息 传递 暴露 出 来 三 : 

(define (make-account-and-serializer balance) 

(define (withdraw amount) 
(if (>= balance amount) ` 
{begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds") ) 
(define (deposit amount) 


© 我 们 已 利用 消息 deposit 可 以 接受 负 值 的 事实 (这 是 我 们 银行 系统 里 的 严重 错误 ) 简化 了 exchange 。 
70 如 果 这 些 账户 开始 时 的 值 分 别 是 10、20 和 30， 那 么 在 经 过 任意 次 交换 之 后 ， 它 们 的 值 应 该 还 是 按照 某 种 顺序 
的 10 、20 和 30 。 对 于 单个 账户 的 存款 圳 行 化 不 足以 保证 这 一 点 ， 见 练习 3.43 | 
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(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer))) 
(define (dispatch m) 
(cond ((eq? m ‘withdraw) withdraw) 
((eq? m ‘deposit) deposit) 
((eq? m balance) balance) 
((eq? m serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 
我 们 可 以 用 这 个 过 程 去 完成 存款 和 取款 的 串 行 化 。 当 然 ， 这 里 做 出 的 东西 不 像 前 面 的 串 
行 化 帐户， 现在 需要 银行 账户 对 象 的 每 个 用 户 承担 起 责任 ， 通 过 显 式 的 方式 去 管理 串 行 化 的 
问题 ， 例 如 下 面 的 例子 "7! : 


(define (deposit account amount) 
(let ((s (account ’serializer) ) 
(d (account ‘deposit))) 
({s d) amount))) 
以 这 种 方式 导出 串 行 化 组 ， 就 使 我 们 有 了 足够 的 灵活 性 ， 可 以 实现 串 行 化 的 交换 程序 。 
在 这 里 ， 只 需要 将 针对 两 个 账户 做 串 行 组 ， 去 串 行 化 原来 的 exchange 过 程 : 


(define (serialized-exchange accountl account2) 
(let ((serializerl (accounti ‘serializer) ) 
(serializer2 (account2 ’serializer))) 
((serializerl (serializer2 exchange) ) 
accountl 
account2))) 


练习 3.43 ”假定 在 三 个 账户 里 的 初始 余额 分 别 是 10、20 和 30 ， 现 在 有 多 个 进程 正在 运行 ， 
交换 这 些 账 户 中 的 余额 。 请 论证 ， 如 果 这 些 进 程 是 顺序 运行 的 ,那么 经 过 任何 次 并 发 交换 ， 
这 些 账 户 里 的 余额 还 将 是 按照 菜 种 顺序 排列 的 10、20 和 30。 请 画 出 一 个 类 似 于 图 3-29 中 那样 
的 时 间 图 ， 说 明 如 果 采 用 本 节 中 第 一 个 版 本 的 账户 交换 程序 实现 账 己 交换， ABZ 1X — FF 
会 被 破坏 。 在 另 一 方面 ， 也 请 论证 ， 即 使 是 使 用 这 个 exchange 程 序 ， 在 这 些 账户 里 的 余额 
之 和 也 仍然 能 得 以 保持 不 变 。 请 画 出 一 个 时 序 图 ， 说 明 如 果 我 们 不 做 各 个 账户 上 交易 的 串 行 
化 ， 这 一 条 件 就 可 能 被 破坏 。 | 

练习 3.44 ”现在 考虑 从 一 个 账户 向 另 一 账户 转移 款项 的 问题 Ben Bitdiddie 说 这 件 事 可 以 
通过 下 面 过 程 完 成 ， 即 使 存在 着 多 个 人 并 发 地 在 许多 账户 之 间 转 移 款 项 。 在 这 里 可 以 使 用 任 
何 经 过 存款 和 取款 交易 串 行 化 的 账户 机 制 ， 例 如 上 面 正 文中 的 make-account 了 版 本 。 


(define (transfer from-account to-account amount) 
((from-account ‘withdraw) amount) 
((to-account ‘deposit) amount) ) 


Louis Reasoner 说 这 里 存在 一 个 问题 ， 因 此 需要 使 用 更 复杂 精细 的 方法 ， 例 如 在 处 理 交 换 问题 
中 所 用 的 方法 。Louis 是 对 的 吗 ? 如 果 不 是 ， 那 么 在 转移 问题 和 交换 问题 之 闻 存 在 着 什么 本 质 


T 练习 3.45 深 入 研究 了 为 什么 存款 和 取款 不 能 继续 由 账户 自动 申 行 化 的 问题 。 
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性 的 不 同 ? (你 应 该 假设 rom-account 至 少 有 amount 那 么 多 钱 。) 
练习 3.45 Louis Reasoner 认 为 我 们 的 银行 账户 系统 由 于 存款 和 取款 不 能 自动 串 行 化 ， 已 经 
变 得 毫 无 必要 地 过 于 复杂 了 ， 而 且 很 容易 和 弄 错 。 他 建议 , make-account-and-seriallzer 
应 该 导出 其 中 的 串 行 化 组 (以 便 用 在 sezialized~exchange 一 类 过 程 里 )， 而 不 仅 是 用 串 
行 化 组 去 串 行 化 账户 和 取款 ( 像 make-account 所 做 的 那样 ) 。 他 建议 将 账户 重新 定义 为 下 
面 的 样子 : 
(define (make-account-and-serializer balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
{let ((balance-serializer (make-serializer) } ) 
(define (dispatch m) 
{cond ((eq? m ’withdraw) (balance-serializer withdraw) ) 
( (eq? m ’deposit) (balance-serializer deposit) ) 
({eq? m balance) balance) 
((eq? m ’serializer) balance-serializer) 
(else (error “Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


而 后 还 像 原 来 的 make-~-account 那 样 处 理 取款 : 


(define (deposit account amount) 
{(account ’deposit) amount) ) 


请 解释 为 什么 Louis 的 推理 是 错误 的 。 特 别 是 考虑 在 调用 serialized-exchange 时 会 发 生 
什么 情况 。 


串 行 化 的 实现 
_ 我们 将 用 一 种 更 基本 的 称 为 互 斥 元 (mutex) 的 同步 机 制 来 实现 串 行 化 。 互 斥 元 是 一 种 对 
象 ， 假 定 它 提供 了 两 个 操作 。 一 个 互 斥 元 可 以 被 获取 (acquired) 或 者 被 释放 (released), — 
旦 某 个 互 斥 元 被 获取 , 对 于 这 一 互 斥 元 的 任何 其 他 获取 操作 都 必须 等 到 该 互 斥 元 被 释放 之 后 “。 
在 我 们 的 实现 里 ， 每 个 串 行 化 组 关联 着 一 个 互 斥 元。 给 了 一 个 过 程 P， 串 行 化 组 将 返回 一 个 过 
程 ， 该 过 程 将 获取 相应 互 扩 元， 而 后 运行 p ， 而 后 释放 该 互 斥 元 。 这 样 就 能 保证 ， 由 这 个 串 行 
化 组 产生 的 所 有 过 程 中 ， 一 次 只 能 运行 一 个 ， 这 就 是 需要 保证 的 串 行 化 性 质 。 


2 术语 “mutex” Æ “mutual exclusion” 的 缩写 形式 。 有 关 安 排 一 种 机 制 ， 使 之 能 允许 并 发 进程 安全 地 共享 资 
源 的 一 般 性 问题 称 为 互 斥 问题 。 我 们 的 互 斥 元 是 信号 量 机 制 的 一 种 简化 形式 〈 见 练习 3.47) 。 信 号 量 机 制 由 
“THE ”多 道 程序 设计 系统 引进 ， 这 一 系统 是 在 Eindhoven 技 术 大 学 开发 的 ， 用 这 所 大 学 荷兰 语 的 首 字 母 命名 
(Dijkstra 1968a )。 获 取 和 释放 操作 原来 被 命名 为 操作 P 和 VY， 来 自 荷 兰 语 词汇 passeren (通过 ) 和 vrijgeven 
(释放 )， 参 考 了 铁路 系统 所 用 的 信息 灯 。Dijkstra 的 经 典 论文 (1968b ) 是 最 早 澄清 并 发 控制 中 的 各 种 问题 的 
论文 之 一 ， 其 中 阐述 了 如 何 利用 信号 量 处 理 各 种 并 发 问题 。 | 
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(define (make-serializer) 
(let ((mutex (make-mutex))) 
(lambda (p) 
(define (serialized-p . args) 
(mutex ‘acquire) 
(let ((val (apply p args))) 
(mutex ’release) 
val)) 
serialized-p))) 


互 斥 元 是 一 个 变动 对 象 (这 里 将 采用 一 个 单元 素 的 表 ， 称 它 为 一 个 单元 ) ， 可 以 保存 真 或 
者 假 。 在 值 为 假 时 ， 这 个 互 斥 元 可 以 被 获取 ， 当 值 为 真 时 该 互 斥 元 就 是 不 可 用 的 ， 任 何其 他 
获取 这 一 互 斥 元 的 进程 都 必须 等 待 。 

我 们 的 互 斥 元 构造 函数 make-mutex 开 始 时 将 单元 的 内 容 初 始 化 为 假 。 为 了 获取 一 个 互 
斥 元 ,首先 需要 检查 这 个 单元 。 如 果 互 斥 元 可 用 ， 我 们 就 将 该 单元 设置 为 真 并 继续 下 去 。 否 
则 就 进入 一 个 循环 里 等 待 ， 一 次 又 一 次 地 试图 去 获取 这 个 互 尺 元 ， 直 到 发 现 它 可 用 为 止 ”。 
为 释放 一 个 互 斥 元 ， 只 需要 将 单元 的 内 容 设置 为 假 ， 


(define (make-mutex) 
(let ((cell (list false))) 
(define (the-mutex m) 
(cond ((eq? m ‘acquire) 
(if (test-and-set! cell) 
(the-mutex ‘acquire))) ; retry 
((eq? m ’release) (clear! cell))})) 
the-mutex) ) 


(define (clear! cell) 
(set-car! cell false) ) 


test-and-set! 检查 单元 并 返回 检查 结果 ， 除 此 之 外 ， 如 果 检 查 结 果 为 假 ，test-and- 
set! 在 返回 假 之 前 还 要 将 单元 内 容 设 置 为 真 。 我 们 可 以 用 下 述 过 程 描述 这 种 行为 : 
(define {test-and-set! cell) 
(if (car cell) 
true 
(begin (set-car! cell true) 
false)}) 


不 过 ， 这 样 实现 test-and-set! 不 能 保证 达到 所 需要 的 效果 ， 因 为 这 里 有 一 个 至 关 重 
要 的 细节 ， 也 是 整个 系统 完成 并 发 控制 的 核心 : test-and-set 1 操作 必须 以 原子 操作 的 方 
式 执行 。 也 就 是 说 ， 我 们 必须 保证 ， 一 旦 某 进程 检查 了 一 个 单元 内 容 并 发 现 它 是 假 ， 该 单元 
的 内 容 就 必须 设置 为 真 ， 而 且 必 须 在 任何 其 他 进程 检查 这 个 单元 之 前 完成 这 一 设置 。 如 果 没 
有 这 种 保证 ， 则 互 斥 元 就 会 失效 ， 类 似 于 图 3-29 里 有 关 银 行 账户 的 方式 〈 见 练习 3.46 ) 。 

test-and-set! 的 实际 实现 方式 依赖 于 所 用 系统 中 运行 并 发 进程 的 细节 。 例 如 ， 我 们 
有 可 能 是 在 一 台 顺 序 处 理 器 上 ， 采 用 在 各 进程 间 轮 换 的 时 间 片 机 制 执行 一 些 并 发 进程 ， 让 每 


m3 在 许多 分 时 操作 系统 里 ， 被 互 斥 元 阻塞 的 进程 并 不 像 上 面 所 说 的 那样 通过 “ 忙 等 待 ”耗费 时 间 。 相 反 ， 系 统 
在 一 个 进程 等 待 时 将 调度 另 一 进程 去 运行 ， 当 互 斥 元 变 为 可 用 时 再 唤醒 那些 被 阻塞 的 进程 。 


个 进程 运行 很 短 一 段 时 间 ， 而 后 中 断 这 一 进程 并 转移 到 另 一 个 进程 去 。 在 这 种 情况 下 ， 只 需 
在 检查 和 设置 单元 值 之 间 禁 止 进行 时 间 分 片 , test-andq-set! 就 可 以 正确 工作 了 “。 在 另 
一 类 情况 中 ， 多 处 理 器 计算 机 则 提供 了 专门 指令 ， 直 接 在 硬件 中 支持 原子 操作 “。 
练习 3.46 ”假定 我 们 用 正文 中 所 示 的 常规 过 程 实现 test-and-set1， 没 有 企图 使 这 一 
操作 原子 化 。 请 画 出 一 个 像 图 3-29 那 样 的 时 序 图 ， 说 明 如 果 人 允许 两 个 进程 同时 访问 互 斥 元 ， 
这 个 互 斥 元 实现 就 会 失败 。 
练习 3.47 大 小 为 +) 的 信号 量 是 一 种 推广 的 互 斥 元 。 像 互 斥 元 一 样 ， 信 号 量 也 文 持 获 
取 和 释放 操作 ， 但 更 一 般 些 ， 它 允许 同时 有 最 多 "个 进程 获取 。 另 外 更 多 的 获取 有 关 信 号 量 的 
进程 就 必须 等 待 释放 操作 。 请 基于 下 述 功能 实现 信号 量 : 
a) 基于 互 斥 元 。 
b) 基于 原子 的 tegst-and-8et! 操作 。 


死 锁 

现在 已 经 看 了 可 以 如 何 实现 串 行 化 ， 但 也 应 该 看 到 ， 即 使 采用 了 上 面 给 出 的 过 程 sezia-~ 
lized-exchange， 在 账户 交换 问题 里 还 存在 一 个 麻烦 。 现 在 设想 Peter 企 图 去 交换 账户 al 
和 a2 ， 同 时 Paul 并 发 地 企图 去 交换 a2 和 al 。 假 定 Peter 的 进程 到 达 这 样 一 点 ， 此 时 它 已 经 进 
入 了 保护 al 的 串 行 化 进程 ， 而 正好 在 此 之 后 ，Paul 的 进程 也 进入 了 保护 a2 的 串 行 化 进程 。 现 
在 Peter 已 经 无 法 继续 前 进 了 (因为 无 法 进入 保护 a2 的 串 行 化 进程 ) ， 他 需要 一 直 等 到 Paul 退 
出 保护 a2 的 串 行 化 进程 。 与 Peter 的 情况 类 似 ，Paul 也 无 法 前 进 了 ， 他 需要 等 到 Peter 退 出 保 
护 al 的 串 行 化 进程 。 这 样 每 个 进程 都 要 无 穷 无 尽 地 等 待 下 去 ， 等 着 另 一 个 进程 的 活动 ， 这 种 
情况 就 称 为 死 锁 。 在 那些 提供 了 对 于 多 种 共享 资源 的 并 发 访问 的 系统 里 ， 总 是 存在 着 死 锁 的 


危险 。 

避免 死 锁 的 一 种 方式 ， 是 首先 给 每 个 账户 确定 一 个 唯一 的 标识 编号 ， 并 且 需 要 重 写 
serialized-exchange, 使 每 个 进程 总 是 首先 设法 进入 保护 具有 和 较 低 标识 编号 的 账户 的 过 
程 。 这 种 方式 对 于 交换 问题 可 行 ， 但 是 还 存在 着 另外 一 些 情况 ， 在 那里 需要 更 复杂 的 死 锁 如 


174 在 采用 时 间 片 模型 的 单 处 理 器 的 MIT Scheme 里 ，test-and-set! 可 以 实现 如 下 : 


(define (test-and-set! cell) 
{without-interrupts 
(lambda () 
(if (car cell) 
true 
{begin (set-car! cell true) 
false))))) 


without-interrupts 在 其 参数 的 执行 期 间 禁 止 时 间 片 中 断 。 

0s 这 种 指令 有 许 多 变形 ， 包 括 检查 与 设置 ， 检 查 与 清除 ， 交 换 ， 比 较 与 交换 ， 装 载 并 保存 ， 条 件 存储 等 等 。 它 
们 的 设计 必须 与 机 器 的 处 理 器 — 存储 接口 相 匹 配 。 这 里 出 现 的 一 个 问题 是 ， 如 果 两 个 处 理 器 恰好 完全 同时 试 
图 获取 一 个 资源 ， 通 过 使 用 这 种 指令 可 以 确定 此 时 发 生 什么 事情 。 这 就 要 求 有 某 种 裁判 机 制 ， 以 确定 哪个 进 

” 程 将 得 到 控制 。 这 种 机 制 称 为 一 个 仲 载 器 ， 它 通常 借助 于 某 个 硬件 设备 工作 。 遗 憾 的 是 ， 可 以 证 明 ， 我 们 无 
法 物理 地 构造 出 一 个 在 100% 时 间 里 都 能 工作 的 公平 的 仲裁 器 ， 除 非 允 许 这 个 仲裁 器 用 任意 长 的 时 间 去 做 出 
决定 。 这 种 本 质 现象 早 就 由 14 世纪 法 国 哲学 家 Jean Buridan 在 他 关于 亚 里 士 多 德 的 《 论 天 》 的 评注 中 观察 到 
T., Buridan 论 述说 , 将 一 条 完全 理性 的 狗 放 在 具有 同样 吸引 力 的 两 处 食物 来 源 之 闻 ， RRA HAAR MH, 
因为 它 没有 能 力 决定 首先 往 哪 一 边 去 。 
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免 技 术 。 在 另外 一 些 地 方 则 根本 无 法 避免 死 锁 (参见 练习 3.48 和 练习 3.49 ) 176, 

练习 3.48 ”请 从 细节 上 解释 ， 为 什么 上 面 提出 的 避免 死 锁 方 法 (例如 ， 首 先 对 账户 编号 ， 
并 使 进程 先 试 图 获取 编号 较 小 的 账户 ) 能 够 避免 交换 问题 中 的 死 锁 。 请 结合 这 一 思想 重 写 过 
Feserialized-exchange (你 还 需要 修改 make-account， 使 创建 出 的 每 个 账户 有 一 个 
编号 ， 可 以 通过 发 送 适当 消息 的 方式 访问 该 编号 ) 。 

练习 3.49 ”请 设法 描述 一 种 情形 ， 使 上 述 的 避免 死 锁 机 制 在 这 种 情况 中 不 能 正常 工作 
(提示 ， 在 交换 问题 中 ， 每 个 进程 都 知道 它 下 面 需要 访问 的 账户 是 哪些 。 请 考虑 一 种 情形 ， 其 
中 进程 必须 在 访问 了 某 些 共 享 资 源 之 后 ， 才 能 确定 它 是 否 还 需要 访问 其 他 的 共享 资源 。) 


并 发 性 、 时 间 和 通信 

我 们 已 经 看 到 ， 在 并 发 系统 的 程序 设计 中 ， 为 什么 需要 去 控制 不 同 进程 访问 共享 变量 的 
事件 发 生 的 顺序 ， 也 看 到 了 如 何 通过 审慎 地 使 用 串 行 化 去 完成 这 方面 的 控制 。 但 是 并 发 性 的 
基本 问题 比 这 些 更 次 刻 ， 因 为 ， 从 一 种 更 基本 的 观点 看 ， 共享 状态 ”究竟 意味 着 什么 ， 这 件 
Hin ih Hinz 

fRtest-and-set! 这样 的 机 制 ， 都 要 求 进程 能 在 任意 时 刻 去 检查 一 个 全 局 性 的 共享 标志 。 
在 实现 新 型 高 速 处 理 器 时 ， 由 于 在 那里 需要 采用 各 种 优化 技术 ,例如 流水 线 和 缓存 ， 因 此 就 不 
可 能 在 每 个 时 刻 都 保持 存储 器 内 容 的 一 致 性 ， 此 时 完成 上 述 的 检查 将 很 有 问题 ， 也 必然 非常 低 
效 。 正 因为 这 样 ， 在 当前 的 多 处 理 器 系统 里 ， 串 行 化 方式 正在 被 并 发 控制 的 各 种 新 技术 取代 “。 

共享 变量 的 各 方面 问题 也 出 现在 大 型 的 分 布 式 系 统 里 。 例 如 ， 设 想 一 个 分 布 式 的 银行 系 
统 ， 其 中 的 各 个 分 支 银 行 维护 着 银行 余额 的 局 部 值 ， 并 且 周期 性 地 将 这 些 值 与 其 他 分 支 所 维 
护 的 值 相互 比较 。 在 这 样 的 系统 里 ,，“ 账 尸 余 额 ” 的 值 可 能 是 不 确定 的 ， 际 非 刚 刚 做 完了 一 次 
同步 。 如 果 Peter 在 他 与 Paul 共 用 的 一 个 账户 里 存 人 了 一 些 钱 ， 什 么 时 候 才 能 说 这 个 账户 的 余 
额 已 经 改变 了 一 一 是 在 本 地 的 分 支 银行 修改 了 余额 之 后 ， 还 是 在 同步 之 后 ? 进一步 说 ， 如 果 
Paul 从 另 一 分 支 银 行 访问 这 个 账户 ， 如 何在 这 一 银行 系统 里 对 这 种 行为 的 “正确 性 ”确定 合 
理 的 约束 ?在 这 里 ， 能 考虑 的 可 能 就 是 保持 Peter 和 Paul 的 各 目 行 为 ， 以 及 保证 刚刚 完成 同步 
时 刻 的 账户 “状态 ”正确 性 。 有 关 “真正 的 账户 余额 或 者 几 次 同步 之 间 事 件 发 生 的 顺序 ， 
可 能 就 是 完全 无 关 紧 要 ， 而 且 也 没有 意义 的 ma。 

这 里 的 基本 现象 是 不 同 进程 之 间 的 同步 ， 建 立 起 共享 状态 ， 或 巡 使 进程 之 间 通 信 所 产生 
的 事件 按照 某 种 特定 的 顺序 进行 。 从 本 质 上 看 ， 在 并 发 控制 中 ， 任 何 时 间 概 念 都 必然 与 通信 
有 内 在 的 密切 联系 ”。 有 意思 的 是 ， 时 间 与 通信 之 间 的 这 种 联系 也 出 现在 相对 论 里 ， 在 那里 


76 Havender (1968) 提出 的 避免 死 锁 的 一 般 性 技术 是 枚 举 共享 资源 ， 按 顺序 去 获取 它们 。 对 于 不 可 能 避免 的 死 
锁 情 况 ， 就 要 求 一 种 死 锌 恢复 方法 ， 要 求 进程 能 “退出 ” 死 锁 状态 并 重新 尝试 运行 。 死 锁 恢 复 机 制 广泛 采用 
于 数据 库 管 理 系统 中 ， 有 关 这 一 问题 的 细节 参见 Gray and Reuter 1993, 

nee es tein ware ais 程序 员 可 以 允许 并 发 进程 随意 地 执行 ， 但 需要 建立 起 一 些 同步 点 

(“屏障 ”)， 任 何 进程 在 所 有 进程 没有 到 达 这 里 之 前 都 不 能 穿 过 它 。 现 代 处 理 器 提供 了 一 些 机 器 指令 ， 使 程序 
员 可 以 在 需要 统一 性 的 位 置 上 建立 同步 点 。 例 如 ，PowerPC 就 提供 了 两 条 为 此 目的 的 指令 SYNC 和 EIEIQ ( 强 
制 输 入 输出 的 按 序 执行 ，Enforced In-order Execution of Input/Output) , 

8 该 观点 看 起 来 有 些 怪 ， 但 确实 存在 采用 这 种 方式 的 系统 。 例 如 ， 信 用 卡 账户 的 跨国 付款 通常 采用 按 国家 结 清 
的 方式 ， 在 不 同 国 家 的 付款 则 采用 局 期 性 平 账 的 方式 。 这样， 一 个 账 户 在 不 同 国家 里 的 余额 就 完全 可 能 不 同 。 

9 对 于 分 布 式 系统 而 言 ， 这 种 看 法 由 Lamport 提 出 (1978) ， 他 说 明了 如 何 通过 通信 建立 一 种 “全 局 时 钟 ， 通 
过 它 就 可 以 在 分 布 式 系统 里 建立 起 事件 之 间 的 秩序 。 
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的 光速 (可 能 用 于 同步 事件 的 最 快 信号 ) 是 与 时 间 和 空间 有 关 的 基本 常量 。 在 处 理 时 间 和 状 
态 时 ， 我 们 在 计算 模型 领域 所 遭遇 的 复杂 性 ， 事 实 上 ， 可 能 就 是 物理 世界 中 最 基本 的 复杂 性 
的 一 种 反映 。 


3.5 iit 


我 们 已 经 对 采用 赋值 作为 工具 做 模拟 有 了 很 好 的 理解 ， 也 看 到 了 赋值 所 带 来 的 复杂 问题 。 
现在 是 提出 下 面 问题 的 时 候 了 :我 们 能 否 走 另 一 条 路 ， 以 便 避 免 这 些 问 题 中 的 某 些 东西 。 在 
这 一 节 里 ， 我 们 将 基于 一 种 称 为 流 的 数据 结构 ， 探 索 对 状态 进行 模拟 的 另 一 条 途径 。 正 如 下 
面 将 要 看 到 的 ， 流 可 能 缓和 状态 模拟 中 的 复杂 性 。 

让 我 们 先 退回 一 步 ， 重 新 考虑 一 下 有 关 的 复杂 性 来 自 何 处 。 在 试图 模拟 真实 世界 中 的 现 
象 时 ， 我 们 做 了 一 些 明显 合理 的 决策 : 用 具有 局 部 状态 的 计算 对 象 去 模拟 真实 世界 里 具有 局 
部 状态 的 对 象 ， 用 计算 机 里 面 随 着 时 间 的 变化 去 表示 真实 世界 里 随 着 时 间 的 变化 ， 在 计算 机 
里 ， 被 模拟 对 象 随 着 时 间 的 变化 是 通过 对 那些 模拟 对 象 中 局 部 变量 的 赋值 实现 的 。 

难道 还 有 什么 其 他 的 办 法 吗 ? 我 们 能 够 避免 让 计算 机 里 的 时 间 去 对 应 于 真实 世界 里 的 时 
间 吗 ?我 们 必须 让 相应 的 模型 随 着 时 间 变 化 ， 以 便 去 模拟 真实 世界 中 的 现象 吗 ? 如 果 以 数学 
函数 的 方式 考虑 这 些 问 题 ， 我 们 可 以 将 一 个 量 x 的 随 着 时 间 而 变化 的 行为 ， 描 述 为 一 个 时 间 的 
函数 x(1) 。 如 果 我 们 想 集中 关注 的 是 一 个 个 时 刻 的 +， 那 么 就 可 以 将 它 看 作 一 个 变化 着 的 量 。 
然而 ， 如 果 我 们 关注 的 是 这 些 值 的 整个 时 间 史 ， 那 么 就 不 需要 强调 其 中 的 变化 一 -这 一 函数 
本 身 并 没有 改变 ia 。 

如 果 用 离散 的 步 长 去 度量 时 间 ， 那 么 我 们 就 可 以 用 一 个 〈 可 能 无 穷 的 ) 序列 去 模拟 一 个 
时 间 函数 。 在 这 一 节 里 ,我们 将 看 到 如 何 用 这 样 的 序列 去 模拟 变化 ， 以 这 种 序列 表示 被 模拟 
系统 随 着 时 间 变 化 的 历史 。 为 了 做 到 这 些 ， 我 们 需要 引进 一 种 称 为 流 的 新 数据 结构 。 从 抽象 
的 观点 看 ， 一 个 流 也 就 是 一 个 序列 。 然 而 我 们 发 现 ， 把 流 直接 表示 为 表 ( 像 在 2.2.1 节 那样 ) 
并 不 能 完全 揭示 流 处 理 的 威力 。 作 为 一 种 替代 形式 ， 我 们 将 要 引进 一 种 延 时 求 值 的 技术 ， 它 
将 使 我 们 能 够 用 流 去 表示 非常 长 的 〈 甚 至 是 无 穷 的 ) 序列 。 

流 处 理 使 我 们 可 以 模拟 一 些 包 含 状态 的 系统 ， 但 却 不 需要 利用 赋值 或 者 变动 数据 。 这 一 
情况 会 产生 一 些 重 要 的 结果 ， 既 有 理论 的 也 有 实际 的 。 因 为 我 们 可 以 构造 出 一 些 模型 ， 它 们 
能 避免 由 于 引进 了 赋值 而 带 来 的 内 在 缺陷 。 但 是 ， 流 框架 也 带 来 它 自己 的 困难 。 有 关 哪 种 建 
模 技术 能 够 导致 更 模块 化 、 更 容易 维护 的 系统 的 问题 ， 仍 然 不 会 有 最 后 的 结论 。 


3.5.1 流 作为 延 时 的 表 


正如 我 们 已 经 在 2.2.3 节 里 看 到 的 ， 序 列 可 以 作为 组 合 程序 的 一 种 标准 界面 。 我 们 在 前 面 已 
经 构造 起 了 一 些 对 序列 进行 操作 的 功能 强大 的 抽象 机 制 ， 例 如 map 、filter 和 accumulate,， 
它们 以 简洁 优雅 的 方式 抓 住 了 范围 非常 广泛 的 许多 操作 的 共同 特征 。 

不 老 的 是 ， 如 果 我 们 将 序列 表示 为 表 ， 获 得 这 些 优雅 结果 就 需要 付出 严重 低 效 的 代价 ， 
无 论 是 在 计算 的 时 间 方 面 还 是 在 空间 方面 。 当 我 们 将 对 于 序列 的 操作 表示 为 对 表 的 变换 时 ， 


80 物理 学 里 有 了 时 也 采用 了 这 种 观点 ， 引 进 粒子 的 “世界 线 ”(world lines) 作为 对 运动 做 推理 的 一 种 工具 。 我 们 
也 已 经 提 到 过 (在 2.2.3 节 里 )， 这 是 考虑 信号 处 理 系统 的 一 种 很 自然 的 方式 。 下 面 将 在 3.5.3 节 里 把 流 应 用 于 


35 R 221 


在 工作 过 程 中 的 每 一 步 ， 有 关 程 序 都 必须 去 构造 和 复制 各 种 数据 结构 (它们 可 能 规模 巨大 )。 
为 了 说 明 事 情 确 实 如 此 ， 我 们 来 比较 两 个 程序 ， 它 们 都 计算 出 一 个 区 间 里 的 素数 之 和 。 
其 中 第 一 个 程序 用 标准 的 欠 代 风格 写 出 2 : 
(define (sum-primes a b) 
(define (iter count accum) 
(cond ((> count b} accum) 
((prime? count) (iter (+ count 1) (+ count accum))) 
(else (iter (+ count 1) accum)))) 
(iter a 0)) 


第 二 个 程序 完成 同样 的 计算 ， 其 中 使 用 了 2.2.3 节 中 的 序列 操作 : 

(define (sum-primes a b) 

(accumulate + 
0 
{filter prime? (enumerate-interval a b)))) 

在 执行 计算 时 ， 第 一 个 程序 里 只 需要 维持 正在 累积 的 和 。 与 此 相对 比 的 是 ， 只 有 等 
enumerate-interval 构 造 完 这 一 区 间 里 所 有 整数 的 表 之 后 ， 第 二 个 程序 里 的 过 滤器 才能 
开始 做 目 己 的 检查 工作 。 这 一 过 滤 强 将 产生 出 另 一 个 表 ， 在 将 这 个 表 挤 压 到 一 起 得 到 和 数 之 
前 ， 还 需要 将 这 个 表 传 递 给 accumulate 。 在 第 一 个 程序 里 ， 完 全 不 需要 这 么 大 的 中 间 存 储 ， 
因为 我 们 可 以 认为 那里 是 在 递增 地 枚 举 这 个 区 间 ， 产 生出 一 个 素数 后 就 将 它 加 入 和 数 之 中 。 

如 果 我 们 采用 下 面 的 表达 式 ， 通 过 序列 方式 去 计算 从 10 000 到 1 000 000 的 区 间 里 的 第 二 
个 素数 ， 这 种 低 效 情况 就 表现 得 太 明 显 了 : 


{car (cdr (filter prime? 
(enumerate-interval 10000 1000000)))) 


这 一 表达 式 确实 能 找 出 第 二 个 素数 ， 但 计算 的 开销 则 令 人 完全 无 法 容忍 。 这 里 首先 构造 出 一 
个 包含 了 差不多 一 百 万 个 整数 的 表 ， 通 过 过 滤 整 个 表 的 方式 去 检查 每 个 元 素 是 否 为 素数 ， 而 
后 抛弃 掉 几 平 所 有 的 结果 。 在 更 传统 的 程序 设计 风格 中 ， 我 们 完全 可 能 交错 进行 枚 举 和 过 滤 ， 
并 在 找到 第 二 个 素数 时 立即 停 下 来 。 

流 是 一 种 非常 巧妙 的 想法 ， 使 我 们 可 能 利用 各 种 序列 操作 ， 但 又 不 会 带 来 将 序列 作为 表 
去 操作 而 引起 的 代价 。 利 用 流 结构 ， 我 们 能 得 到 这 两 个 世界 里 最 好 的 东西 ， 如 此 形成 的 程序 
可 以 像 序列 操作 那么 优雅 ， 同 时 又 能 得 到 递增 计算 的 效率 。 这 里 的 基本 想法 就 是 做 出 一 种 安 
排 ， 只 是 部 分 地 构造 出 流 的 结构 ， 并 将 这 样 的 部 分 结构 送 给 使 用 流 的 程序 。 如 果 使 用 者 需要 
访问 这 个 流 的 尚未 构造 出 的 那个 部 分 ， 那 么 这 个 流 就 会 自动 地 继续 构造 下 去 ， 但 是 只 做 出 足 
够 满足 当时 需要 的 那 一 部 分 。 这 一 做 法 造成 了 一 种 假象 ， 就 好 像 整个 流 都 存在 着 一 样 。 换 名 
话说 ， 虽 然 下 面 将 要 写 出 各 个 程序 都 像 是 在 处 理 完整 的 序列 ， 但 我 们 将 要 设计 出 流 的 一 种 实 
现 ， 使 得 流 的 构造 和 它 的 使 用 能 够 交错 进行 ， 而 这 种 交错 又 是 完全 透明 的 。 

从 表面 上 看 ， 流 也 就 是 表 ， 但 是 对 它们 进行 操作 的 过 程 的 名 字 不 同 。 在 这 里 有 构造 函数 
“cons-stream， 还 有 两 个 选择 函数 stream-car 和 stream-cdr ， 它 们 注 足 如 下 有 的 约束 条 件 : 
(stream-car (cons-stream x y))=x 


(stream-cdr (cons-stream x y))=y 


8 假定 已 经 有 谓词 prime? ( 例如 像 1.2.6 节 里 那样 定义 ) ， 用 于 检查 一 个 数 是 否 为 素数 。 
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这 里 有 一 个 可 识别 的 对 象 the-empty-stream, 它 绝 不 会 是 任何 cons-stream 操 作 的 结 朱 。 
这 个 对 象 可 以 用 谓词 stream-nul1? 判断 。 有 了 这 些 东 西 ， 我 们 就 可 以 像 构 造 和 使 用 表 一 
样 ， 去 构造 和 使 用 流 ， 用 流 去 表示 汇聚 在 一 个 序列 里 的 一 批 数 据 了 。 特 别 是 我 们 将 用 与 第 2 章 
的 各 种 表 操 作 (如 1ist-ref 、map 和 for-~each 等 ) 的 类 似 方 式 去 构造 流 “: 


(define (stream-ref s n) 
(if (= n 0) 
(stream-car s) 
(stream-ref (stream-cdr s) (- n 1)))) 


(define (stream-map proc 8s) 
(if (stream-null? s) 
the-empty-stream 
(cons-stream (proc (stream-car s)) 
{stream-map proc (stream-cdr s))))) 


(define (stream-for-each proc s) 
(if (stream-null? s) 
"done 
(begin (proc (stream-car Ss) ) 
(stream-for-each proc (stream-cdr s))))) 


stream-for-each 对 于 考察 一 个 琉 非 党 有 用 : 
(define (display-stream sS) 


(stream-for-each display-line s)) 

(define (display-iine x) 

(newline) 
(display x)) 

为 了 使 流 的 实现 能 自动 地 、 透 明 地 完成 一 个 流 的 构造 与 使 用 的 交错 进行 ， 我 们 需要 做 出 
_ .种 安排 ， 使 得 对 于 流 的 cdzr 的 求 值 要 等 到 真正 通过 过 程 stream-cdGr 去 访问 它 的 时 候 再 做 ， 
而 不 是 在 通过 cons-stream 构 造 流 的 时 候 做 。 这 一 实现 选择 使 我 们 回忆 起 2.1.2 节 有 关 有 理 
数 的 讨论 。 在 那里 曾经 提出 ， 我 们 可 以 选择 有 理 数 的 实现 方式 ， 其 中 简化 分 子 与 分 母 的 工作 
可 以 在 构造 的 时 候 完成 ， 也 可 以 在 选取 的 时 候 完 成 。 有 理 数 的 这 样 两 种 实现 将 产生 出 同一 个 
数据 抽象 ， 但 是 不 同 的 选择 可 能 对 效率 产生 影响 。 在 流 和 常规 表 之 间 也 存在 着 类 似 的 关系 。 
作为 一 种 数据 抽象 ， 流 与 表 完 全 一 样 。 它 们 的 不 同 点 就 在 于 元 素 的 求 值 时 间 。 对 于 常规 的 表 ， 
其 car 和 cdr 都 是 在 构造 时 求 值 ， 而 对 于 流 ， 其 cdr 则 是 在 选取 的 时 候 才 去 求 值 。 

我 们 的 流 实现 将 基于 一 种 称 为 delay 的 特殊 形式 , 对 于 (delay <exp>) 的 求 值 将 不 对 
表达 式 <exp> 求 值 ， 而 是 返回 一 个 称 为 延 时 对 象 的 对 象 ， 它 可 以 看 作 是 对 在 未 来 的 某 个 时 间 求 
值 <exp> 的 允诺 。 和 delay 一 起 的 还 有 一 个 称 为 force 的 过 程 ， 它 以 一 个 延 时 对 象 为 参数 ， 执 
行 相应 的 求 值 工作 。 从 效果 上 看 ， 也 就 是 迫使 delay 完 成 它 所 允诺 的 求 值 。 下 面 将 看 到 
delay 和 force 可 以 如 何 实现 ， 现 在 我 们 先 用 它们 来 构造 议 。 


182 在 MIT 实现 里 ， the-empty-stream 就 等 同 于 空 表 0， 而 Stream-null? 也 就 是 null?.。 

183 广 可 能 使 你 感到 有 些 困惑 。 我 们 可 以 对 流 和 表 定 义 这 些 类 似 过 程 ， 正 说 BAR Ei RS AE MA FR. 
bit) eh T PER R HR, REEI ET ERE EE i, 而 这 种 控制 目前 还 做 不 到 。 我 们 将 在 
3.5.4 池 里 进一步 讨论 这 个 问题 ， 在 4.2 节 将 开发 出 另 一 种 框架 ， 统 一 起 表 和 度 。 
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cons-stream 是 一 个 特殊 形式 ， 其 定义 将 使 


(cons-stream <a> <b>) 


等 价 于 


(cons <a> (delay <d>)) 


这 就 表示 我 们 将 用 序 对 来 构造 流 。 不 过 ， 在 这 里 并 不 是 将 流 的 后 面部 分 放 进 序 对 的 cdr ， 而 
是 把 如 果 需 要 就 可 以 计算 出 有 关 部 分 的 允诺 放 在 那里 。 现 在 ，stream-car 和 stream-cdr 
已 经 可 以 定义 为 如 下 的 过 程 了 : 

(define (stream-car stream) (car stream) ) 


(define (stream-cdr stream) (force (cdr stream) ) ) 


stream-Ccar 选 取 有 关 序 对 的 Ca 部 分 ， stream-cdr 选 取 有 关 序 对 的 cdQz 部 分 ， 并 求 值 这 
里 的 延 时 表达 式 ， 以 获得 这 个 流 的 后 面部 分 “。 


流 实现 的 行为 方式 | 

要 想 看 看 上 述 实 现 的 行为 方式 ， 让 我 们 先 来 分 析 一 下 在 上 面 已 经 看 到 的 那个 “ 令 人 完全 
无 法 容忍 ”的 素数 计算 ， 但 现在 是 用 流 的 方式 重新 写 出 : 

(stream-car 

(stream-cdr 


(stream-filter prime? 
(stream-enumerate-interval 10000 1000000) ))) 


我 们 将 会 看 到 它 确 实 能 有 效 工作 。 
计算 开始 于 对 参数 10 000 和 1 000 000 调 用 stream-enumerate-interval。 这 里 的 
stream-enumerate-interval 是 类 似 于 enumerate-interval ( 见 2.2.3 节 ) HIW: 
(define (stream-enumerate-interval low high) 
(if (> low high) 
the-empty-stream 
(cons-stream 


low 
(stream-enumerate~interval (+ low 1) high)))) 


这 样 ， 由 stream-enumnmerate-interval 返 回 的 结果 了 束 是 通过 cons-stream 形 成 的 !*、: 
(cons 10000 | 
(delay (stream-enumerate-interval 10001 1000000))) 
也 就 是 说 ， stream-enumerate-interval 返 回 一 个 流 ， 其 car 是 10 000 ， 而 其 cdr 是 一 
个 人 旬 诺 ， 其 意 为 如 果 需 要 ， 就 能 枚 举 出 这 个 区 间 里 更 多 的 东西 。 这 个 流 被 送 去 过 滤 出 素数 ， 
用 的 是 与 过 程 filter ( 见 2.2.3 节 ) 类 似 的 针对 流 的 过 程 : 


(define (stream-filter pred stream) 


184 虽然 stream-car 和 Stream-cdr 都 可 以 定义 为 普通 过 程 ， 但 是 cons-stream 却 必须 是 特殊 形式 。 如 果 
cons-stream 也 是 过 程 ， 那 么 按照 我 们 的 求 值 模型 ， 对 (cons-stream <a> <b>) 的 求 值 就 会 自动 地 对 
<b> 的 求 值 ， 而 这 是 我 们 不 希望 的 事情 。 同 样 ，delay 也 必须 是 特殊 形式 ， 而 force 可 以 是 常规 过 程 。 

8S 在 这 里 ， 实 际 出 现在 延 时 表达 式 里 的 并 不 是 写 出 的 数值 ， 实 际 出 现 的 是 原来 的 表达 式 ， 有 关 变 量 在 一 个 环境 
里 约束 到 适当 的 数值 。 举 例 说 ，( +low 1) 实际 出 现在 写 10 001 的 地 方 ， 其 中 1ow 约 束 到 10 000， 
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(cond ((stream-null? stream) the-empty-stream) 
( (pred (stream-car stream) ) 
(cons-stream (stream-car stream) 
{stream-filter pred 
(stream-cdr stream) ))) 
(else (stream-filter pred (stream-cdr stream) )))) 


stream-filter#*# j##Mstream-car (也 就 是 当时 那个 序 对 的 car ， 此 时 就 是 10 000), 
因为 这 个 数 并 非 素 数 ，stream-filter 需 要 去 进一步 去 检查 它 的 输入 流 的 stream-cdr。 
xE ¥fFstream-—cdr fyi HiH 使 系统 对 延 时 的 stream- -enumerate-interval 求 值 ， 这 
一 次 它 返 回 : 


(cons 10001 
(delay (stream-enumerate-interval 10002 1000000) )) 


stream-filter 现 在 关注 的 是 这 个 流 的 stream-car ， 也 就 是 10 001， 它 看 到 这 个 数 也 不 是 
素数 ， 因 此 就 再 次 迫使 求 值 stream~cdr ， 并 如 此 进行 下 去 ， 直 至 stream-enumerate- 
interval 产 和 让 出 素数 10 007。 这 时 stream-f1ilter 根 据 其 定义 返回 : 


(cons-stream (stream-car stream) 
(stream-filter pred (stream-cdr stream) ) ) 


这 时 它 也 就 是 : 


(cons 10007 
{delay 

(stream-filter 

prime? 

(cons 10008 

(delay 
(stream-enumerate-interval 10009 
1000000)))))) 


结果 现在 被 送 给 我 们 原先 的 表达 式 里 的 Stream-cdr ， 又 迫使 延 时 的 stream-filter 
RE 它 转 而 去 迫使 延 时 的 stream-enumerate-intervVal 的 求 值 ， 直 到 它 找 到 了 下 一 个 
素数 ， 在 这 里 就 是 10 009 。 最 后 ， 这 个 结果 被 送 给 原来 表达 去 的 stream-Ca : 


(cons 10009 
(delay 

{stream-filter 

prime? 

(cons 10010 

(delay 
(stream-enumerate-interval 10011 
1000000)))))) 


stream-carjk 10 009 ， 整 个 计算 结束 。 在 此 期 间 只 检查 了 为 找到 第 二 个 素数 所 必须 检查 
的 那些 数 是 否 为 素数 ， 对 有 关 区 间 的 枚 举 也 只 进行 到 为 满足 素数 过 滤器 的 需要 所 必须 做 的 地 
方 。 

_. 般 而 言 ， 可 以 将 延 时 求 值 看 作 一 种 “由 需要 驱动 ”的 程序 设计 ， 其 中 流 处 理 的 每 个 阶 
段 都 仅仅 活动 到 足够 满足 下 一 阶段 需要 的 程度 。 我 们 已 经 完成 的 工作 ， 也 就 是 松弛 了 计算 中 
事件 发 生 的 实际 顺序 与 过 程 的 表面 结构 的 关系 。 这 样 写 出 的 过 程 就 像 是 这 个 流 已 经 “不 折 不 
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扣 地 完全 ” 放 在 那里 ， 而 实际 上 ， 这 一 计算 的 执行 是 逐步 进行 的 ， 就 像 传统 程序 设计 一 样 。 


Gelay 和 force 的 实现 

虽然 delay 和 force 貌似 很 有 魔力 的 操作 ,其实 它们 的 实现 却 真是 相当 直截了当 的 。 
delay 必须 包装 起 一 个 表达 式 ， 使 它 可 以 在 以 后 根据 需要 去 求 值 。 我 们 可 以 个 单 地 通过 将 这 
一 表达 式 作 为 一 个 过 程 的 体 来 做 到 这 一 点 。 下 面 这 样 的 特殊 形式 delay : 


(delay <exp>) 


实际 上 不 过 是 在 下 面 形式 的 外 面包 装 起 一 层 语法 糖衣 : 


{lambda () <exp>) 
而 force 也 就 是 简单 地 调用 由 delay 产 生 的 那 种 (无 参 ) 过 程 ， 因 此 ， 可 以 将 force 实 玩 为 


(define (force delayed-object) 
(delayed-object) ) 

这 种 实现 已 经 足以 使 delay 和 force 按 照 上 面 所 说 的 方式 工作 了 。 但是， 在 这 里 还 存在 
一 种 很 重要 的 优化 ， 可 以 将 它 包括 进来 。 在 许多 应 用 中 ， 我 们 都 需要 多 次 地 坦 使 同一 个 延 时 
对 象 求 值 (参见 练习 3.57) 。 解 决 这 种 问题 的 办 法 就 是 设法 采用 一 种 构造 延 时 对 象 的 方法 ， 使 
它们 在 第 一 次 被 迫 求 值 之 后 能 保存 起 求 出 的 值 。 随 后 再 次 遇 到 被 迫 求 值 时 ， 这 些 对 象 就 可 以 
直接 返回 自己 保存 的 值 ， 而 不 必 重 复 进行 计算 。 换 名 话说， 我 们 可 以 将 delay 实现 为 一 种 特 
殊 的 记忆 性 过 程 ， 类 似 于 练习 3.27 中 所 描述 的 。 做 到 这 一 点 的 一 种 方法 是 采用 下 面 过 程 ， 它 
以 一 个 (无 参 ) 过 程 为 参数 ， 返 回 该 过 程 的 记忆 性 版 本 。 这 种 记忆 性 过 程 在 第 一 次 运行 时 将 
计算 出 的 结果 保存 起 来 。 在 随后 再 遇 到 求 值 时 ， 它 就 简单 返回 已 有 的 结果 : 


{define (memo-proc proc) 
(let ((already-run? false) (result false) ) 
(lambda () 
(if (not already-run?) 

{begin (set! result (proc)) 
(set! already-run? true) 
result) 

result)))) 


此 后 就 可 以 设法 定义 delay ,使 得 (delay <exp>) 等 价 于 


(memo-proc (lambda () <exp>)) 


而 force 的 定义 与 前 面 完 全 一 样 “。 ， 
练习 3.50 ”请 完成 下 面 的 定义 ， 这 个 过 程 是 stream-map 的 推广 ， 它 允许 过 程 带 有 多 个 
参数 ， 类 似 于 2.2.3 节 的 脚注 /78。 


(define (stream-map proc . argstreams) itt 


86 除了 本 节 所 提出 的 方法 之 外 ， 还 有 许多 方法 可 以 实现 流 。 使 流 成 、 演 用 技术 的 关键 是 延 时 求 值 。 在 Algol 60 
语言 里 ， 按 名 调用 参数 机 制 是 一 种 内 在 特征 。 利 用 该 机 制 实现 溪 的 问题 首先 由 Landin (1965) iy die 
Friedman and Wise (1976) 将 针对 流 的 延 时 求 值 引进 了 Lisp 。 在 他 们 的 实现 里 ，cons 总 延 时 求 值 它 的 各 个 
参数 ， 因 此 表 也 就 自动 地 成 为 了 流 。 记 忆 性 过 程 也 称 为 按 需 调用 。Algol 社 团 更 愿意 称 我 们 原来 的 延 时 对 家 为 
按 名 调用 楷 ， 而 称 后 面 的 优化 版 本 为 按 需 调用 槽 。 
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(if (<??> (car argstreams) ) 
the-empty~-~stream 
(<??> 
{apply proc (map <??> argstreams)) 
(apply stream-map | 
(cons proc (map <??> argstreams)))))) 
练习 3.51 为 了 更 仔细 地 观察 延 时 求 值 的 情况 ， 我 们 将 使 用 下 面 过 程 ， 它 在 打印 其 参数 
Zia tal HIRE: 
(define (show x) 
(display-line x) 
X) 
解释 器 对 于 顺序 地 求 值 下 面 各 个 表达 式 的 响应 是 什么 “? 


(define x (Stream-map show (stream-enumerate-interval 0 10))) 
(stream-ref x 5) 


(stream-ref x 7) 


练习 3.52 考虑 下 面 的 表达 式 序列 ， 


Ay 


(define sum 0) 


{define (accum x) 
(set! sum (+ x sum) ) 
sum) 


(define seq (stream-map accum (stream-enumerate-interval 1 20))) 

(define y (stream-filter even? seq) ) 

(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) 
seq) ) 


(stream-ref y 7) 
(display-stream z) 


在 上 面 每 个 表达 式 求 值 之 后 sum 的 值 是 什么 ? 求 值 其 中 的 stream~ref fidisplay- 
stream 表 达 式 将 打印 出 什么 响应 ? 如果 我 们 简单 地 将 (delay <exp>) 实现 为 (lambda () 
<exp> )， 而 不 使 用 memo-proc 所 提供 的 优化 ， 这 些 响 应 会 有 什么 不 同 吗 ? 请 给 出 解释 。 


3.5.2 无 穷 流 


前 面 我 们 已 经 看 到 如 何 做 出 一 种 假象 ， 使 我 们 可 以 像 对 待 完整 的 实体 一 样 去 对 流 进 行 
种 操作 ， 即 使 在 实际 上 只 计算 出 了 有 关 的 流 中 必须 访问 的 那 一 部 分 。 我 们 可 以 利用 这 种 技术 
有 效 地 将 序列 表示 为 流 ， 即 使 对 应 的 序列 非常 长 。 更 令 人 了 吃惊 地 是 ,我们 黄 至 可 以 用 流 去 表 
示 无 穷 长 的 序列 。 例 如 ， 考 虚 下 面 有 关 正 整数 的 流 有 的 定义 : 


187 如 练 习 3.51 和 练习 3.52 这 样 的 练 弛 “在 检查 我 们 对 于 Gelay 怎样 工作 的 理解 方面 很 有 价值 。 在 另 一 方面 ， 让 
延 时 求 值 和 打印 混在 一 起 一 一 更 精 糕 的 是 ， 与 赋值 混在 一 起 一 一 也 是 特别 容易 迷惑 人 的 ， 因 此 在 传统 上 ， 计 
算 机 语言 课程 的 教师 常常 在 考试 里 用 本 节 里 这 样 问题 去 指 问 学 生 。 应 该 说 ， 写 出 依赖 于 这 类 殉 紫 细节 的 程序 
是 极其 丑陋 的 程序 设计 风格 。 流 处 理 的 部 分 威力 就 在 于 使 我 们 能 忽略 程序 中 各 个 事件 的 实际 发 生 顺 序 。 然 而 ， 
这 恰好 就 是 有 赋值 时 我 们 无 法 做 到 的 事情 ， 因 为 赋值 迫使 我 们 必须 去 考虑 时 间 和 变化 。 
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(define (integers-starting-from n) 
(cons-stream n (integers-starting-from (+ n 1)))) 


(define integers (integers-starting-from 1)) 


AREA LH, AAintegers#e—TrH, Heargiel, mA cdr” EBA M 
开始 的 整数 的 允诺 。 这 是 一 个 无 穷 长 的 流 ， 但 在 任何 给 定时 刻 ， 我 们 都 只 检查 到 它 的 有 穷 部 
分 ， 因 此 我 们 的 程序 将 永远 也 不 会 知道 整个 的 无 穷 序列 并 不 在 那里 。 
我 们 可 以 利用 integers 定 义 出 另 一 些 无 穷 流 ,例如 所 有 不 能 被 7 整除 的 整数 的 流 : 
(define (divisible? x y) (= (remainder x y) 0)) 
{define no-sevens 
({stream-filter (lambda (x) (not (divisible? x 7))) 
integers) ) 
而 后 就 可 以 简单 地 通过 访问 这 个 流 的 元 素 的 方式 ， 找 出 不 能 被 7 整除 的 整数 ; 
{stream-ref no-sevens 100) 
117 
就 像 可 以 定义 integers 一 样 ， 我 们 也 可 以 定义 非 波 那 契 数 的 无 穷 流 : 
(define (fibgen a b) 
(cons-stream a (fibgen b (+ a b)))) 


(define fibs (fibgen 0 1)) 


这 样 定义 出 的 Eibs 是 一 个 序 对 ， 其 car 是 0， 而 其 cdr 是 一 个 求 值 (fibgen 1 1) 的 允诺 。 
当 我 们 求 值 延 时 表达 式 (fibgen 1 1) 时 ， 它 又 将 产生 出 一 个 序 对 ， 其 car 是 1， 而 其 cdr 
是 一 个 求 值 (fibgen 1 2) 的 一 个 允诺 ， 如 此 下 去 。 

要 想 看 一 个 更 令 人 激动 的 例子 ， 我 们 可 以 推广 前 面 的 no-sevens 实例 ， 采 用 一 种 通常 称 
为 厄 拉 多 塞 得 法 嵌 ， 构 造 出 素数 的 无 穷 流 。 为 此 我 们 将 从 整数 2 开始 ， 因 为 这 是 第 一 个 素数 。 
为 了 得 到 其 余 的 素数 ， 就 需要 从 其 余 的 整数 中 过 滤 掉 2 的 所 有 倍数 。 这 样 就 留 下 了 一 个 从 3 开 
始 的 流 ， 而 3 也 就 是 下 一 个 素数 。 现 在 我 们 再 从 这 个 流 的 后 面部 分 过 滤 掉 所 有 3 的 倍数 ， 这 样 
就 留 下 一 个 以 5 开头 的 流 ， 而 5 又 是 下 一 个 素数 。 我 们 可 以 这 样 继 续 下 去 。 换 句 话说 ， 这 种 方 
法 就 是 通过 一 个 筛选 过 程 构造 出 各 个 素数 ， 该 过 程 可 描述 如 下 : 对 流 S 做 筛选 就 是 形成 一 个 
流 ， 其 中 的 第 一 个 元 素 就 是 S 的 第 一 个 元 素 ， 得 到 其 随后 的 元 素 的 方式 是 从 8 的 其 余 元 素 中 过 
滤 掉 S 的 第 一 个 元 素 的 所 有 倍数 ， 而 后 再 对 得 到 的 结果 进行 第 选 。 这 一 过 程 很 容易 用 流 操作 
描述 : 

(define (sieve stream) 

(cons-stream 
(stream-car stream) 
(sieve (stream-filter 
(lambda (x) 
(not (divisible? x (stream-car stream) ))) 
(stream-cdr stream) )))) 


8 厄 拉 多 塞 是 公元 前 3 世纪 希腊 亚 力 山大 的 哲学 家 。 他 由 于 第 一 个 给 出 了 地 球 的 圆周 的 精确 估计 而 闻名 于 世 。 
他 的 计算 方式 是 观察 夏至 日 正午 影子 的 角度 。 虽 然 厄 拉 多 塞 饰 法 历史 如 此 之 悠久 ， 但 仍 成 为 专用 硬件 Th 
的 基础 ， 直 至 最 近 都 一 直 是 确定 大 素数 存在 的 有 力 工 具 。 直 到 20 世 纪 70 年 代 ， 这 类 方法 才 被 1.2.6 节 讨论 过 的 
概率 算法 的 成 果 所 超越 。 
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(define primes (sieve (integers-starting-from 2))) 


如 果 现 在 希望 找到 某 个 特定 素数 ， 只 需要 提出 LA 下 要求 : 


(stream-ref primes 50) 
233 


一 件 很 有 意思 的 事情 是 仔细 看 看 由 sieve 形 成 的 信号 处 理 系 统 ， 如 图 3-31 中 所 示 的 
“Henderson 图 ”'。 输 入 流 馈 和 人 “ 反 cons”， 分 解 出 这 个 流 的 首 元 素 和 流 的 其 余 元 素 ， 用 这 
个 首 元 素 去 构造 一 个 可 除 性 过 滤器 ， 该 流 的 其 余部 分 穿 过 这 个 过 滤器 ， 这 个 过 滤器 的 输出 再 
A B+ OR, TR RR BY ot cons 到 这 个 内 部 篇 的 输出 上 ， 形 成 最 终 的 输出 流 。 这 
样 ， 不 仅 这 个 流 是 无 穷 的 ， 信 息 处 理 器 也 是 无 穷 的 ， 因 为 在 这 个 第 里 还 包含 着 为 一 个 饰 。 
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filter: 
not 






divisible? 


图 3-31 Resa EM Ss hk As 


隐 式 地 定义 流 

上 面 的 ijntegers 和 fibs 流 是 通过 描述 “生成 ”过 程 的 方式 定义 的 ， 这 种 过 程 一 个 个 地 
计算 出 流 的 元 素 。 描 述 流 的 另 一 种 方式 是 利用 延 时 求 值 隐 式 地 定义 流 。 举 个 例子 ， 下 面 表达 
式 将 ones 定 义 为 1 的 一 个 无 穷 流 : 

(define ones (cons-stream l ones) ) 
这 种 定义 方式 就 像 是 在 定义 一 个 递归 过 程 : 这 里 的 ones 是 一 个 序 对 ， 它 的 car 是 1 ， 而 cdzr 是 
求 值 ones 的 一 个 允诺 。 对 于 其 cdr 的 求 值 又 给 了 我 们 一 个 1 和 求 值 ones 的 一 个 允诺 ， 并 这 样 
继续 下 去 。 | 

通过 使 用 诸如 add-streams 一 类 的 操作 ， 我 们 还 可 以 做 一 些 更 有 趣 的 事情 。add-streams 
操作 产生 出 两 个 给 定 流 的 逐 对 元 素 之 和 ”: 

(define {add-streams sl 52) 


(stream-map + sl s2)) 
PREF ANT AT LARA ao TAKE BR integers, 
{define integers (cons-stream 1 (add-streams ones integers) )) 
这 样 定义 出 的 ijntegers 是 一 个 流 ， 其 首 元 素 是 1 ， 其 余部 分 是 ones Fintegers Z. X 
样 ，integers 的 第 二 个 元 素 就 是 1 加 上 integers 的 第 一 个 元 素 ， 也 就 是 x2，integers 的 


189 这 种 图 是 用 Peter Henderson 的 名 字 命 名 的 。Henderson 是 第 一 个 画 出 这 种 类 型 的 图 的 人 ， 以 此 作为 一 种 思考 流 
处 理 的 方式 。 这 里 的 每 条 实 线 代 表 需 传输 值 的 流 ， 从 car 发 出 的 虚线 表明 这 是 一 个 值 而 不 是 一 个 流 。 
190 这 里 使 用 了 来 自 练 习 3.S0 的 推广 的 stzeam-map 。 
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第 三 个 元 素 是 1 加 上 integers 的 第 二 个 元 素 ， 也 就 是 3， 如 此 继续 下 去 。 这 一 定义 可 行 ， 是 
因为 在 任 一 点 上 上， 都 已 经 生成 出 了 integers 流 的 足够 部 分 ， 这 就 使 我 们 可 以 将 它 馈 回 这 一 
定义 ， 去 产生 出 下 一 个 整数 。 
我 们 可 以 用 同样 的 风格 定义 出 辈 波 那 契 数 ， 
(define fibs 
(cons-stream 0 
(cons-stream 1 


(add-streams (stream-cdr fibs) 
fibs)))) 


i EME ibse— TAO MI ARE. Ie TA RB AA DAs ot UE ibs 和 移 
动 了 一 个 位 置 的 fibs 而 得 到 : 
1 1 2 3 5 8 13 21 …=(stream-cdr fibs) 
0 1 1 2 3 5 8 13 .…=fibs 
0 1 1 2 3 5 8 13 21 34 ..=fibs 


scale-stream 是 描述 这 种 流 定 义 的 另 一 个 有 用 过 程 。 这 个 过 程 将 一 个 给 定 的 向 数 乘 到 
PAY BET LE : 
(define (scale-stream stream factor) 
(stream-map (lambda (x) (* x factor)) stream) ) 


例如 : 


(define double (cons-stream 1 (scale-stream double 2))) 


生成 出 2 的 各 个 害 : 1, 2, 4, 8, 16, 32, … | 
素数 流 的 另 一 定义 方式 是 从 整数 出 发 BIRR EE ARRAN AACE EI. LHR 
以 第 一 个 素数 2 作为 开始 : 


(define primes 
(cons-stream 
2 
(stream-filter prime? (integers-starting-from 3)))) 
这 个 定义 并 不 像 它 初 看 起 来 那么 直截了当 ， 因 为 检查 一 个 数 n 是 否 素数 的 方式 ， 就 是 检查 n 能 
否 被 所 有 小 于 等 于 Vn 的 素数 (而 不 是 用 所 有 这 样 的 整数 ) 整除 : 


(define (prime? n) 
(define (iter ps) 
(cond ((> (Square (stream-car ps)) n) true) 
((divisible? n (stream-car ps)) false) 
(else (iter (stream-cdr ps))))) 
(iter primes) ) 


这 是 一 个 递归 定义 ， 因 为 primes 是 基于 谓词 prime? 定 义 出 来 的 ， 而 在 这 个 谓词 本 身 的 定义 
中 又 使 用 了 流 Primes 。 这 一 过 程 能 行 的 原因 是 ， 在 计算 中 的 任 一 点 ， 流 primes 虱 已 经 生成 
出 的 足够 多 的 部 分 ， 足 以 满足 我 们 检查 下 面 的 任何 数 是 否 素数 的 需要 。 也 就 是 说 ， 在 检查 任 
何 一 个 数 n 是 否 素数 时 ， 或 者 n 不 是 素数 (这 时 存在 着 一 个 已 经 生成 的 素数 能 够 整除 它 )， 或 者 
n 是 素数 (这 时 ， 已 经 生成 过 一 个 素数 一 -也 就 是 说 ， 已 经 生成 过 一 个 小 于 n 但 是 大 于 vn 的 素 
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练习 3.53 ”请 不 要 运行 程序 ， 描 述 一 下 由 下 面 程 序 定义 出 的 流 里 的 元 素 : 


(define s (cons-stream 1 (add-streams s s))) 


练习 3.54 ”请 定义 一 个 与 add-streams 类 似 的 过 程 mul1~streams， 对 于 两 个 输入 流 ， 
它 按 元 素 逐 个 生成 乘积 。 用 它 和 integers 流 一 起 完成 下 面 流 的 定义 ， 其 中 的 第 n 个 元 娄 (从 
0 开始 数 ) 是 n 十 1 的 阶乘 : | 


(define factorials (cons~stream 1 (mul-streams <??> <??>))) 


练习 3.55 lige <a Rpartial-sums, CAAS AB A, BE AGED ICH ES, Sot 
§,,S9+5,+52, °°, Milan, (partial-sums integers) 应 该 生成 流 1, 3,6, 10, 15, ---, 
练习 3.56 ”这 是 一 个 非常 著名 的 问题 ， 首 先 由 R. Hamming 提 出 。 问 题 是 要 按照 递增 的 顺 
序 不 重复 地 枚 举 出 所 有 满足 条件 的 整数 ， 这 些 整 数 都 没有 2、3 和 5 之 外 的 素数 因子 。 人 完成 此 事 
的 一 种 明显 方法 是 简单 地 检查 每 一 个 整数 ， 看 看 它 是 否 有 2、3 和 5 之 外 的 素数 因子 。 但 这 样 做 
极其 低 效 ， 因 为 随 着 整数 变 大 ， 它 们 之 中 满足 要 求 的 数 也 会 变 得 越 来 越 少 。 换 一 种 看 法 ， 让 
我 们 将 所 需 的 流 称 作 S ， 看 看 有 关 它 的 下 述 事 实 : 
"SS 从 1 开始 。 
。 (scale-stream S 2) 的 元 素 也 是 S 的 元 素 。 
。 这 一 说 法 对 于 (scale-stream S 3) 和 (scale-stream 5 S) 也 部 对 。 
“这 些 也 就 是 S 的 所 有 元 素 了 ]。 
现在 需要 做 的 就 是 将 所 有 这 些 来 源 的 元 素 组 合 起 来 。 为 此 我 们 先 定义 一 个 国 数 merge ， 
它 能 将 两 个 排 好 顺序 的 流 合并 为 一 个 排 好 顺序 的 流 ， 并 删除 其 中 的 重复 : 
(define (merge si s2) 
{cond (({stream-null? sl) s2) 
((stream-null? s2) sl) 
(else 
{let ({slcar (stream-car s1)) 
(s2car (stream-car s2))) 
(cond ((< slcar s2car) 
(cons-stream slcar (merge (stream-cdr sl) s2))) 
({(> slear s2car) 
(cons-stream s2car (merge sl (stream-cdr s2)))) 
(else 
(cons-stream slcar 


{merge (stream-cdr s1) 
{stream-cdr s2))))))))) 


而 后 就 可 以 利用 mezge Wan T HARE WAT AER Ute T: 


(define S (cons-stream 1 (merge <??> <??>))) 


请 在 上 面 <22?> 标 记 的 位 置 填充 所 缺 的 表达 却 。 


o%1 最 后 一 点 并 不 容易 看 到 ， 它 依赖 于 事实 ,< pw” (这 里 的 pk 表示 铀 [个 素数 ) 。 像 这 样 形式 的 估计 是 很 难 建立 
的 。 欧 几 里 得 在 古代 证 明了 素数 有 无 穷 多 个 ， 其 中 证 明了 P, n Pi pa … pn +1， 直 到 1851 年 都 没 人 得 到 比 这 
更 好 的 结果 ， 那 一 年 俄罗斯 数学 家 P. L. Chebyshey 证 明 出 对 于 任何 ”都 有 Pu :和 2p,， 这 一 结果 是 184> 年 提出 的 
_ 个 猜想 ， 称 为 Bertrand 猜 想 。 在 Hardy 和 Wright 1960 的 22.3 节 可 以 找到 对 这 个 问题 的 证 明 。 
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练习 3.57 274 A Tadd-streams 过程 的 Eibs 定 义 计 算出 第 ”个 斐 波 那 契 数 时 ， 需 
要 执行 多 少 次 加 法 ? 请 证 明 ， 如 果 我 们 简单 地 用 (lambda () <exp>) 实现 (delay <exp>), 
又 不 用 3.5.1 市 给 出 的 memo-proc 过 程 所 提供 的 优化 ， 那 么 所 需 的 加 法 将 会 指数 倍 地 增加 “、 
练习 3.58 请 给 下 面 过 程 所 计算 的 流 的 一 种 解释 : 
(define (expand num den radix) 
(cons-stream 


(quotient (* num radix) den) 
(expand (remainder (* num radix) den) den radix))) 


(这 里 的 quotient 是 求 两 个 整数 的 整数 商 的 基本 函数 )。(expand 1 7 10) 会 顺序 产生 出 
哪些 元 素 ? (expand 3 8 10) 会 产生 哪些 元 素 ? 

练习 3.59 ”在 2.5.3 节 里 ， 我 们 说 明了 如 何 实 现 一 个 多 项 式 算 术 系 统 ， 其 中 将 多 项 式 表示 
ATA ZH. BATT ARR ARERR, 例如， 将 


xr x x“ 
e =l+x+t—+t-— + 十 … 
2 32 43-2 








表示 为 无 穷 的 流 。 我 们 把 将 级 数 ao 十 a1 x +az 0°40, t RRA TEV IHRRERRMWA 
HY ao, Ai, 42, @3, °°" 
a) 级 数 ao +a, X4+a,xX*4+4,x°4+--WROERR: 


l 4 1 3 l 4 
CHA XT aX FX tTa +:-- 


这 里 的 c 是 任意 常数 。 请 定义 过 程 jntegrate-~series， 它 以 一 个 表示 考级 数 的 流 ao, a1, … 
为 参数 ， 返 回 这 个 等 级 数 的 积分 中 各 个 非常 数 项 的 系数 的 流 ao， (Sa, (Saz, …。( 因为 返 


回 的 结果 中 不 包含 常数 项 ， 因 此 它 不 是 害 级 数 。 如 果 要 对 它们 使 用 ntegrate-series,， 
我 们 可 以 用 cons 加 上 一 个 常数 项 。) 

b) 函数 x Her 是 其 自身 的 导数 。 这 也 意味 着 ex 和 ex 的 积分 是 同一 个 级 数 ， 除 了 常数 项 之 外 。 
而 常数 项 应 该 是 eo =1。 根 据 这 种 情况 ， 我 们 可 以 按 如 下 方式 生成 e* 的 级 数 : 


(define exp-series 
(cons-stream 1 (integrate-series exp-series) )) 


我 们 知道 si 的 导数 是 cos ， 而 且 cos 的 导数 是 负 的 sin， 请 说 明 如 何 根据 这 些 事实 ， 生 成 Sin 和 co0s 
的 级 数 : 
{define cosine-series 
(cons-stream 1 <??>)) 


(define sine-series 
(cons-stream 0 <??>) ) 


92 光一 练习 说 明了 按 需 调用 与 练习 3.27 所 描述 的 常规 记忆 方法 有 密切 联系 。 在 那个 练习 里 ， 我 们 利用 赋值 构造 了 
一 个 显 式 的 表 列 。 这 里 的 按 需 调用 流 能 够 有 效 地 自动 构造 出 这 种 表 列 , 将 值 存 人 流 的 前 面 强迫 做 出 的 那 部 分 里 。 
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练习 3.60 ” 像 练习 3.59 里 那样 将 逢 级 数 表 示 为 系数 的 流 之 后 ， 级 数 的 和 就 可 以 直接 用 过 程 
add-streams 实 现 了 。 请 完成 下 面 级 数 乘积 过 程 的 定义 ， 


(define (mul-series sl s2) 
(cons-stream <??> (add-streams <??> <??>))) 


你 可 以 利用 公式 sin'x +cos’x =1， 用 练习 3.59 定 义 的 那些 级 数 检验 你 定义 出 的 过 程 。 
练习 3.61 SSE- BRAD RRR (练习 3.59)， 假 定 我 们 现在 希望 找 出 1/$ 的 器 级 
RB, HR ALL, FR BX, (HS  X=1, HSH RMS =1 +Sa， 其 中 Sn 是 $ 常 数 项 后 面 的 
部 分 。 而 后 我 们 就 可 以 按 下 面 方式 解 出 X: 
S- X=l 
(1 十 SRp) -X=1 
入 十 SR 太一] 
X =1—Sp ， 
换 句 话说 , XUAN T+ RAR, KERMA, MH rab ey LA Sei Ja RELAX 
得 到 。 请 利用 这 一 思想 写 出 一 个 过 程 ， 使 它 能 对 常数 项 为 1 的 宕 级 数 ? 计 算出 1 (he BEA 
练 了 3.60 的 mul~series， 
练习 3.6< 请 利用 练习 3.60 和 练习 3.61 的 结果 定义 一 个 过 程 div~series ， 人 完成 两 个 项 级 
数 的 除法 。div-series 应 该 能 对 任何 两 个 级 数 工作 ， 只 要 作为 分 母 的 级 数 具有 4 有 0 的 常数 项 
(如 果 它 的 常数 项 为 0，div-series 应 该 报错 )。 请 说 明 ， 如 何 利用 div-series 和 练 43.59 
的 结果 产生 出 正切 函数 的 蜂 级 数 。 


3.3.3 流 计算 模式 的 使 用 


带 有 延 时 求 值 的 流 可 能 成 为 一 种 功能 强大 的 模拟 工具 ， 能 提供 局 部 状态 和 赋值 的 许多 效 
益 。 进 -一步 说 ， 这 种 机 制 还 能 避免 将 赋值 引入 程序 设计 语言 所 带 来 的 一 些 理论 困难 ， 

流 方法 极 富有 启发 性 ， 因 为 借助 于 它 去 构造 系统 时 ， 所 用 的 模块 划分 方式 可 以 与 采用 赋 
值 、 围 绕 着 状态 变量 组 织 系统 的 方式 不 同 。 例如， 我 们 可 以 将 整个 的 时 间 序 列 (或 者 信号 ，) 
作为 关注 的 目标 ， 而 不 是 去 关注 有 关 状 态 变 量 在 各 个 时 刻 的 值 。 这 将 使 我 们 能 更 方便 地 组 合 
与 比较 来 自 不 同时 刻 的 状态 成 分 。 

系统 地 将 选 代 操 作 方 式 表示 为 流 过 程 

1.2.1 节 介绍 了 选 代 过 程 ， 这 种 工作 过 程 也 就 是 不 断 地 更 新 一 些 状态 变量 。 现 在 我 们 知道 
状态 可 以 表示 为 值 的 “没有 时 间 的 ” 流 ， 而 不 是 一 组 不 断 更 新 的 变量 。 现 在 让 我 们 采用 这 一 
观点 ， 重 新 去 看 1.1.7 节 的 平方 根 过 程 。 请 回忆 一 下 ， 那 里 的 思想 就 是 生成 出 一 个 序列 ， 其 元 
素 是 x 的 平方 根 的 一 个 比 一 个 更 好 的 猜测 值 ， 采 用 的 方法 是 反复 应 用 一 个 改进 猜测 的 过 程 ， 


(define (sqrt-improve guess x) 
(average guess (/ x guess))) 


在 原来 的 sqzt 过 程 里 ， 我 们 用 其 个 状态 变量 的 一 系列 值 表示 这 些 猜 测 。 换 一 种 方式 ， 我 们 也 
可 以 生成 一 个 无 穷 的 猜测 序列 ， 从 初始 猜测 1 开始 ”: 


”不 能 用 1et 去 建立 局 部 变量 9uesses 的 约束 ， 因 为 9uesses 的 值 依赖 于 guesses 本 身 。 参 见 练 了 3.63。 
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(define (sqrt-stream x) 
(define guesses 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x) ) 
guesses) )) 


guesses) 


(display-stream (sqrt-stream 2) ) 
l. 

1.5 

1.4166666666666665 
1.4142156862745097 
1.4142135623746899 


我 们 可 以 生成 出 这 个 流 中 越 来 越 多 的 项 ， 以 得 到 越 来 越 好 的 猜测 。 如 果 喜 欢 的 话 ， 我 们 也 可 
以 写 一 个 过 程 ， 使 它 能 不 断 生 成 项 ， 直 至 得 到 足够 好 的 答案 为 止 ( 另 见 练习 3.64 ) 。 
可 以 按照 同样 方式 处 理 的 另 一 个 迭代 是 生成 r 的 近似 值 ， 这 一 过 程 基于 下 面 的 交替 级 数 ， 

我 们 在 1.3.1 节 已 经 见 过 的 它 : 

Ax 1 1 1 

4 3+5 7° : 
我 们 首先 生成 上 述 级 数 (各 个 奇数 的 倒数 ， 其 符号 是 交替 的 ) 之 和 的 流 ， 逐 步 取 得 越 来 越 多 
的 项 之 和 (利用 练习 3.55 的 partial-sums 过程)， 并 将 得 到 的 结果 除 以 4: 


(define {pi-summands n) 
(cons-stream (/ 1.0 n) 
(stream-map - (pi-summands (+ n 2))))) 
(define pi-stream 
(scale-stream (partial-sums (pi-summands 1)) 4)) 


(display-stream pi-stream) 


-666666666666667 
-466666666666667 
-8952380952380956 
. 3396825396825403 
.9760461760461765 
.2837384837384844 
.017071817071818 


Ww Ww Me WwW NM Ww N b 
+ 


这 样 就 给 出 了 一 个 逐步 逼近 7 的 流 。 这 一 逼近 收敛 得 非常 慢 ， 序 列 中 的 8 项 只 能 将 7 值 界 定 
到 3.284 和 3.017 之 间 。 | 

到 现在 为 止 ， 我 们 对 状态 的 流 的 使 用 方式 与 做 状态 变量 更 新 还 没有 多 大 差别 。 但 是 ， 流 
确实 提供 了 一 些 机 会 ， 使 我 们 可 以 采用 一 些 非常 有 趣 的 技巧 。 举 例 来 说 ,我 们 可 以 用 一 个 库 
列 加 达 器 对 流 做 一 个 变换 ， 这 种 加 速 器 可 以 将 一 个 逼近 序列 变换 为 另 一 个 新 序列 ， 该 新 序列 
也 收 伍 到 与 原 序列 同样 的 值 ， 只 是 收敛 速度 快 得 多 。 


i PE DNR BS h I — 7S be 19 A Bok Be Fl CHG BB 欧 拉 ， 这 一 加 速 器 对 于 交错 级 数 
(具有 交错 符号 的 项 的 级 数 ) AE ES USE. FRR RRR, RIS. AIR OA AY A SF 
列 的 第 2 上 项， 那么 加 速 序列 的 形式 就 是 : 

BaS) 
™ S-25 +S, 
也 就 是 说 ， 如 果 原 序列 采用 一 个 值 的 流 表 示 ， 变 换 后 的 序列 可 以 如 下 给 出 : 


(define (euler-transform sS) 


(S 


n+] 


(let ({s0 (stream-ref s 0)) ; Sa) 
(sl (stream-ref s 1)) ; Sn 

(s2 (stream-ref s 2))) > Snri 
(cons-stream (- s2 (/ (square (~ s2 s1)) 


(+ s0 (* -2 si) s2))) 
(euler-transform (stream-cdr s))))) 


BAT BT LA FA AEN A i BA eR a A : 
(display-stream (euler-transform pi-stream) ) 
-166666666666667 

. 1333333333333337 

.1452380952380956 

-13968253968254 

-1427128427128435 

.1408813408813416 

-142071817071818 

.1412548236077655 


U w W wW w to W w 


还 可 以 做 得 更 好 些 ， 因 为 我 们 甚至 可 以 去 加 速 由 前 面 的 加 速 得 到 的 序列 ， 或 者 递归 地 加 
速 下 去 ， 如 此 等 等 。 也 就 是 说 ， 我 们 可 以 构造 出 一 个 流 的 流 (一 种 我 们 称 为 表 列 的 结构 )， 其 
中 的 每 个 流 都 是 前 一 个 流 的 变换 结 二 : 

{define (make-tableau transform s) 

(cons-stream s 


(make-tableau transform 
(transform s)))) 


这 样 得 到 的 表 列 具有 如 下 形式 : 


最 后 取出 表 列 中 每 行 的 第 一 项 ， 这 样 就 可 以 形成 一 个 序列 : 
(define (accelerated-sequence transform S ) 


(stream-map stream-car 
(make-tableau transform s))) 


PUT AT CA FAVE TAD PES eR A — “RR IG aE : 
(display-stream (accelerated~-sequence euler-transform 
pi-stream) ) 


M 
Ua 
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-166666666666667 
.142105263157895 
.141599357319005 
.1415927140337785 
-1415926539752927 
-1415926535911765 
-141592653589778 


w Ww U WwW Ww Ww U e 
È 


结果 非常 令 人 振奋 。 取 出 序列 的 8 项 ， 就 产生 出 x 的 直至 14 位 数字 的 正确 值 。 如 果 我 们 用 的 是 
原来 的 逼近 序列 ， 那 么 将 需要 计算 103 数 量 级 的 项 才能 达到 同样 精确 程度 (也 就 是 说 ， 需 要 展 
开 足 够 多 的 项 ,使 一 个 项 的 绝对 值 小 于 10“)。 如 果 不 使 用 流 ， 我 们 也 可 以 实现 这 些 加 速 技术 ， 
但 流 的 描述 形式 特别 优美 而 又 方便 ， 因 为 整个 状态 序列 就 像 一 个 数据 结构 一 样 ， 可 以 通过 一 
集 统一 的 操作 直接 地 随意 使 用 。 

练习 3.63 Louis Reasoner 则 为 什么 Sqrt- _stream 过 程 没 采 用 下 述 更 加 直截了当 的 形式 
写 出 ， 其 中 根本 不 用 局 部 变量 guesses : 


(define (sqrt-stream x) 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x)) 
(sqrt-stream x)))) 

Alyssa P. Hacker 对 所 说 过 程 的 这 个 版 本 的 评价 是 ， 它 过 于 低 效 ， 因为 其 中 执行 了 一 些 多 余 的 
操作 。 请 解释 Alyssa 的 回答 。 如 果 我 们 的 Gelay 直接 采用 (lambda () <exp>) 实现 ， 而 不 
用 memo-proc 所 提供 的 优化 ( 见 3.5.1 节 )， 这 两 个 版 本 在 效率 方面 还 会 有 差异 吗 ? 

练习 3.64 ”请 写 出 过 程 stream-1limit， 它 以 一 个 流 和 一 个 数 ( 当 作 容许 误差 ) FAS 
数 ， 检 查 这 个 流 ， 直 至 发 现 连续 两 项 之 差 的 绝对 值 小 于 给 定 容许 误差 。 这 时 该 过 程 返回 后 一 
个 项 。 利 用 这 一 过 程 ， 我 们 就 可 以 用 下 面 方式 计算 出 满足 给 定 误差 的 平方 根 : 

(define (sqrt x tolerance) 


(stream-limit (sqrt-stream x) tolerance) ) 


练习 3.65 用 级 数 : 


1 1 1 
In 2=1-3+3-4+" 
参照 上 面 计算 x 的 方式 ， 计 算出 逼近 2 的 自然 对 数 的 三 个 序列 。 这 些 序列 的 收敛 速度 怎么 杜 ? 


在 2.2.3 节 里 ， 我 们 看 到 过 如 何 通 过 序列 范 型 去 处 理 传统 的 峰 套 循环 ， 将 其 作为 定义 在 序 
对 的 序列 上 的 计算 过 程 。 如 果 将 这 一 技术 推广 到 无 穷 流 ， 我 们 就 可 以 写 出 一 些 很 不 容 多 用 俏 
环 表示 的 程序 ， 因 为 要 想 那 样 做 ， 就 必须 对 无 穷 集合 做 “循环 。 

举例 说 ， 假 定 我 们 希望 推广 2.2.3 节 的 prime-sum-pairs 过 程 ， 生 成 所 有 整数 序 对 C, j) 
的 流 ， 其 中 有 i <j 而 且 i +j 是 素数 。 如 果 int-pairs 是 所 有 满足 i <j 的 整数 序 对 C, J) 的 序列 ， 
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那么 我 们 的 需求 就 很 简单 了 “: 
(stream-filter (lambda (pair) 
(prime? (+ (car pair) (cadr pair)))) 
int-pairs) 
现在 问题 就 转化 为 流 l1nt-pairs 的 生成 。 更 一 般 些 ,假定 我 们 现在 有 了 两 个 流 $ = (Si) Fn 
T=(T)))， 设 想 下 面 的 无 穷 矩 形 阵 列 ， 
(So, To) (So, T;) (So, Tə) eee 
(Si, To) (Si, Tı) ($1, Tə) °° 
(S2, To) (So, T) (2,72)... 


我 们 需要 的 是 生成 一 个 流 ， 其 中 包含 了 在 这 一 阵列 中 位 于 对 角 线 及 其 上 方 的 所 有 序 对 ， 即 如 
下 的 这 些 序 对 : 
(So, To) (So, T) (So, T>) ere 
(Si, T) (Si, 72) .. 
(S2, Tə) eee 


(如 果 S 和 7 都 是 整数 的 流 ， 那 么 这 就 是 我 们 所 需要 的 jnt-pairs 流 .) 
我 们 把 这 个 一 般 性 的 流 称 为 (pairs S T)， 并 认为 它 由 三 部 分 组 成 : 序 对 So, T), Æ 
一 行 里 的 所 有 其 他 序 对 ， 以 及 其 余 的 序 对 “: 
(So, To) | (So, Ti) (So, T2) . 
(S, T) (S, Tə) ... 
(S2, T) ... 






可 以 看 出 ， 这 一 分 解 的 第 三 部 分 (那些 不 在 第 一 行 的 序 对 ) IE (递归 地 ) 由 (stream-cdr 
S) 和 (stream-cdr T) 形成 的 那些 序 对 。 还 可 以 看 到 其 第 二 部 分 (第 一 列 其 余 序 对 ) 就 
FE 


(stream-map (lambda (x) (list (stream-car s) x)) 


(stream-cdr t)) 


这 样 我 们 就 可 以 按照 如 下 方式 构成 所 需 的 序 对 六 了: 
(define (pairs s t) 
(cons-stream 
(list (stream-car s) (stream-car 七 ) ) 
(< 按 基 种 方式 组 合 > 
(stream-map (lambda (x) (list (stream-car S) x)) 
(stream-cdr t)) 

(pairs (stream-cdr s} (stream-cdr t))))) 


为 了 完成 这 一 过 程 ， 我 们 还 必须 选择 一 种 方式 ， 通 过 它 组 合 起 两 个 内 部 的 流 。 一 种 想法 


4 正 像 2.2.3 节 一 样 ， 我 们 在 这 里 将 整数 的 序 对 表示 为 两 个 元 素 的 表 ， 而 不 是 表示 为 Lisp 的 序 对 。 
95 有 关 为 什么 选择 这 种 分 解 的 考虑 ， 请 参考 练习 3.68 


fe A -32.2.10 F append i eR UN ot fE : 
(define (stream-append sl s2) 
(if (stream-null? s1) 
S2 
(cons-stream (stream-car s81) 
(stream-append (stream-cdr sl) s2)))) 


Ri, HFPA., AWEZE, AAC REA K — A OW PA eZ Ie, 
才 去 结合 进 第 二 个 流 的 元 素 。 特 别 是 如 果 我 们 试图 用 如 下 方式 生成 所 有 正 整 数 的 序 对 : 


(pairs integers integers) 


结果 得 到 的 流 将 会 试图 首先 生成 出 第 一 个 元 素 等 于 1 的 所 有 序 对 ， 因 此 也 就 根本 不 会 产生 出 以 
其 他 整数 作为 第 一 个 元 素 的 序 对 了 。 

为 了 处 理 无 穷 的 流 ， 我 们 需要 设计 另 一 种 组 合 顺序 ， 以 保证 只 要 这 个 程序 运行 的 时 间 足 
够 长 ， 那 么 最 终 就 能 得 到 流 中 的 每 一 个 元 素 。 做 到 这 一 点 的 一 种 很 美妙 的 方式 是 采用 下 面 的 
interleave tf", 


(define (interleave sl s832) 
(if (stream-null? sl) 
s2 
(cons-stream (stream-car sl) 
(interleave s2 (stream-cdr si))))) 


因为 nterleave 交 赫 地 从 两 个 流 中 取 元 素 ， 这 样 ， 即 使 第 一 个 流 是 无 穷 的 ， 第 二 个 流 里 每 
个 元 素 最 终 都 能 在 这 样 交错 得 到 的 流 里 有 目 己 的 位 置 。 
现在 ， 我 们 已 经 可 以 通过 如 下 方式 生成 所 需 的 流 了 : 


(define (pairs s t) 
({cons-stream 
(list (stream-car s) (stream-car 七 ) ) 
(interleave 
(stream-map (lambda (x) (list (stream-car s) X)) 
(stream-cdr t)) 
(pairs (stream-cdr s) (stream-cdr t))))) 
练习 3.66 ”请 仔细 检查 流 (pairs integers integers), (RAEN ATM MALU 
中 顺序 做 出 任何 一 般 性 的 说 明 吗 ? 比如 说 ， 在 序 对 (1，100) 之 前 大 约 有 多 少 个 序 对 ? 在 序 对 
(100, 100) 之 前 呢 ? (如 果 你 能 在 这 里 做 出 精确 的 数学 描述 ， 那 当然 更 好 了 。 但 如 采 提 得 很 
难 做 好 定量 的 回答 ， 你 也 完全 不 必 感 到 诅 乱 。， 
练习 3.67 “请 修改 过 程 pairs, 使 (pairs integers integers) 能 生成 所 有 整数 
序 对 (i,j) 的 流 (不 考虑 条 件 i <j)。 提 示 : 你 需要 混合 进去 男 一 个 流 。 
练习 3.68 Louis Reasoner 认 为 从 上 述 三 个 部 分 出 发 构造 流 ， 是 把 事情 弄 得 过 于 复杂 了 了。 
他 建议 不 要 把 (So, T) 与 第 一 行 的 其 他 部 分 分 开 ， 而 是 直接 对 整个 这 一 行 工 作 ， 采 用 下 面 方 
式 : 


196 这 一 组 合 顺序 所 需 的 性 质 可 以 精确 地 陈述 如 下 : 应 该 有 一 个 两 参数 的 函数 /， 使 对 应 于 第 一 个 流 的 元 素 ! 和 第 
二 个 流 的 元 素 j 的 那个 序 对 出 现 输出 流 中 ， 作 为 其 中 的 第 Ri, 内 个 元 素 。 使 用 interleave 达 到 这 一 效果 的 
技巧 是 David Tumer 教 给 我 们 的 ， 他 在 语言 KRC (Turner 1981) 里 使 用 了 这 种 技术 。 
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(define (pairs s t) 
(interleave 
(stream~map (lambda (x) (list (Stream-car S) X)) 
t) 


(pairs (stream-cdr s) (stream-cdr t)))) 


这 样 做 能 行 吗 ? 请 考虑 一 下 ， 如 果 我 们 采用 Louis 对 pairs 的 定义 去 求 值 (pairs integers 
integers), AERTAL. 

练习 3.69 ”请 写 一 个 过 程 triples ， 它 以 三 个 无 穷 流 $、T 和 U0 为 参数 ， 生 成 三 元 组 Gi, 
T, U) 的 流 ， 其 中 要 求 有 i<j <k。 利 用 triples 生 成 所 有 正 的 毕 达 哥 拉 斯 三 元 组 的 流 ， 也 就 
是 说 ， 生 成 所 有 的 三 元 组 (i, j, k), HRi<j, MAAC +P =k., 

练习 3.70 ”如果 能 够 让 生成 的 流 中 的 序 对 按照 某 种 有 用 的 顺序 排列 ， 而 不 仅仅 是 顺便 地 
任 由 某 种 实际 交错 过 程 产 生 ， 也 可 能 是 很 有 价值 的 事情 。 问 题 是 要 定义 好 一 种 方式 ， 使 我 们 
能 够 说 某 个 序 对 “小 于 ” 另 一 个 ， 而 后 就 可 以 采用 某 种 类 似 于 练习 3.56 里 的 merge 过 程 的 技 
术 了 。 完 成 此 事 的 一 种 方式 是 定义 一 个 “权重 尔 数 ”W(i, 门 ， 并 规定 当 W(ii, Jj) <W, ja) 
时 (i, J) 就 小 于 (2， 门 。 请 写 出 过 程 wezge-~weighted， 它 很 像 merge， 但 还 多 了 一 个 参 
数 weight ， 这 是 一 个 用 于 计算 序 对 权重 的 过 程 ， 用 于 确定 元 素 在 归并 所 产生 的 流 中 出 现 的 顺 
序 ”。 利 用 这 个 函数 将 pairs 推 广 为 过 程 weighted-pairs， 这 个 过 程 的 参数 包括 两 个 流 ， 
还 有 一 个 用 于 计算 权重 函数 的 过 程 。 它 按照 给 定 的 权重 顺序 生成 出 序 对 的 流 。 请 用 你 的 过 程 
生成 出 : 

a) 所 有 正 BABES (G, j) 的 流 ， 共 中 要 求 i <j, RA Be + 的 顺序 排列 。 

b) 所 有 正 整 数 序 对 (G, /) 的 流 ， 其 中 要 求 i <j, 而 且 这 里 的 i 或 者 /可 以 被 、3 或 者 53 整除， 
这 些 序 对 按照 和 数 2i 十 3j + 5i 的 顺序 排列 。 

练习 3.71 可 以 以 多 于 一 种 方式 表达 为 两 个 立方 数 之 和 的 数 有 了 时 被 称 为 Ramanujan 数 LA 
纪念 数学 家 Srinivasa Ramanujan'”。 序 对 的 有 序 流 为 计算 这 些 数 的 问题 提供 了 一 种 非常 优美 
的 解决 方案 。 为 了 能 够 找到 所 有 能 以 两 种 不 同方 式 写 为 两 个 立方 之 和 的 数 ， 我 们 只 需要 以 和 
4+ PEMA ( 见 练习 3.70) 顺序 地 生成 整数 序 对 的 流 ， 而 后 在 这 个 流 里 寻找 具有 同样 权 
重 的 两 个 前 后 相 邻 排列 的 序 对 。 请 写 一 个 过 程 生 成 Ramanujan 数 。 第 一 个 这 样 的 数 是 1729， 
随后 的 5 个 数 是 什么 ? 

练习 3.72 ”请 采用 类 似 于 练习 3.71 的 方式 ， 生 成 出 所 有 满足 下 面条 件 的 数 的 流 : 这 些 数 都 
能 够 以 三 种 不 同方 式 表 示 为 两 个 平方 数 之 和 (并 请 显示 出 它们 的 分 解 形式 )。 


将 流 作 为 信号 
在 开始 有 关 流 的 讨论 时 ， 我 们 将 它们 描述 为 信号 处 理 系 统 里 的 “信号 ”在 计算 中 的 对 应 
物 。 事 实 上 ， 我 们 可 以 采用 流 ， 以 一 种 非常 直接 的 方式 为 信号 处 理 系 统 建 模 ， 用 流 的 元 素 表 


9 需要 对 权重 函数 提出 以 下 要 求 :， 当 沿 着 序 对 阵列 的 任何 一 行 同 右 ， 或 者 沿 着 任何 一 列 向 下 时 ， 序 对 的 权重 一 
定 增加 。 

98 引用 哈代 有 关 Ramanujan 的 传略 (Hardy 1921 ):“ 那 是 Littlewood 先 生 ( 我 认为 ) 说 的 , “每 一 个 正 整数 都 是 
他 的 朋友 ' 。 记 得 有 一 次 我 去 看 他 ， 他 当时 正 因 病 住 在 Futney 。 我 刚刚 坐 的 出 租车 号 码 是 1729 ， 我 说 这 个 数 
实在 没 趣 ， 但 愿 这 不 是 一 个 坏 兆 头 。 他 回答 说 : 不 ， 这 是 一 个 非常 有 趣 的 数 ， 它 是 能 以 两 种 不 同方 式 表 达 
为 两 个 立方 数 之 和 的 最 小 的 数 。 ”利用 带 权 数 的 序 对 生成 Ramanujan 数 的 技 巧 是 Charles Leiserson 告诉 我 们 的 。 
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示 一 个 信号 在 顺序 的 一 系列 时 间 间 隔 上 的 值 。 举 例 来 说 ， 我 们 可 以 实现 一 个 积分 器 或 者 求 和 
器 ， 对 于 输入 流 x =(Xi)， 初 始 值 C 和 一 个 小 增 量 dt， 累 积 下 MAA: 


S -C+ hx dt 


并 返回 值 $ =(S) 的 流 。 下 面 的 ijntegral 过 程 使 我 们 回想 起 前 面 给 出 的 整数 流 的 “ 隐 式 风格 
的 ”定义 〈 见 3.5.2 市 )。 
(define (integral integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 

int) 
3-322 WY Fintegral tf Aa SERRARA., RWA WEAR ERE ka 
一 个 加 法 器 ， 加 法 器 的 输出 又 重新 送 回 同一 个 加 法 器 。 位 于 int 定 义 里 的 自 引 用 ， 在 图 中 的 
反应 就 是 从 加 法 器 的 输出 到 其 一 个 输入 的 反馈 循环 。 


initial-value 
oe 


图 3-32 将 integral 过 程 看 作 信号 处 理 系统 


练习 3.73 ”我 们 可 以 用 流 表示 电流 或 者 电压 在 时 间 序 列 上 的 值 ， 用 以 模拟 电子 线路 。 举 
例 说 ， 假 定 有 一 个 RC 电路 ， 它 由 一 个 阻 值 为 R 的 电阻 和 一 个 容量 为 C 的 电容 器 串联 而 成 。 该 电 
路 对 输入 电流 i 的 电压 响应 v 由 图 3-33 里 的 公式 表示 ， 其 结构 由 对 应 的 信号 流 图 表示 。 





L integral 









图 3-33 一 个 RC 电路 与 关联 的 信和 号 流 图 


请 写 出 一 个 过 程 RC 模拟 这 个 电路 。RC 应 该 以 R、C 和 dt 的 值 作为 输入 ， 它 应 返回 一 个 过 程 ， 
该 过 程 的 输入 是 一 个 表示 电流 的 流 i 和 一 个 表示 电容 嚣 初始 电压 值 的 vo, 输出 是 表示 电压 的 流 Y。 
例如 ， 你 应 该 能 通过 求 值 (define RC1 (RC 5 1 0.5))， 用 RC 模拟 一 个 RC 电路 ， 其 中 
R =5 欧姆,，C =1 法 ， 以 0.5 秒 作为 时 间 步 长 。 这 一 表达 式 将 定义 出 一 个 过 程 RC1 ， 它 以 一 个 表 
示 电 流 的 时 间 序 列 的 流 和 电容 器 的 一 个 初始 电压 量 为 参数 ， 能 产生 出 表示 电压 的 输出 序列 。 


练习 3./4 Alyssa P. Hacker 正 在 设计 一 个 系统 ， 以 处 理 来 自 物理 传感器 的 信号 。 她 希望 
得 到 的 一 个 重要 特性 就 是 一 个 描述 了 输入 信和 号 过 零点 的 信号 。 也 就 是 说 ， 在 输入 信号 从 负 值 
变 成 正 值 时 这 个 结果 信号 应 该 是 +1， 而 当 输 入 信号 由 正 变 负 时 它 应 该 是 一 1， 其 他 时 刻 值 为 0 
(0 输入 的 符号 也 假定 为 正 )。 例 如 ， 一 个 典型 的 输入 信号 及 其 相关 的 过 零点 信号 应 该 是 : 
.1 2 1.5 1 0.5 -0.1 -2 -3 -2 -0.5 0.2 3 4... 
。0 0 0 0 0 -1 0 0 0 0 1 0 0 ... 
在 Alyssa 的 系统 里 ， 来 自传 感 器 的 信号 用 流 sense-data 表 示 ， 流 zero-crossings 是 对 应 
的 过 零点 流 。Alyssa 首 先 写 出 一 个 过 程 sSign-change-detector， 它 以 两 个 值 作为 参数 ， 
比较 它们 的 符号 产生 出 适当 的 9 、1 或 者 一 1 。 而 后 她 用 下 面 方式 构造 出 过 零 拟 流 : 
(define (make-zero-crossings input-stream last-value) 
(cons-stream 
(sign-change-detector (stream-car input-stream) last-value) 


(make-zero-crossings (stream-cdr input-stream) 


(stream-car input-stream) ))) 


(define zero-crossings (make-zero-crossings sense-data 0)) 


Alyssa 的 上 司 Eva Lu Ator 走 过 ， 提 出 说 这 一 程序 与 下 面 的 程序 差不多 ， 其 中 采用 了 取 目 练习 
3.50 的 stream-map 的 推广 版 本 : 


(define zero-crossings 
(stream-map sign-change-detector sense-data <expression>) ) 


请 填充 这 里 缺少 的 <expression> ， 完 成 这 一 程序 。 


练习 3.75 ”不幸 的 是 ， 练 习 3.74 中 Alyssa 的 过 零 点 检查 程序 被 证 明 效果 不 好 ， 因 为 来 目 传 
感 器 的 噪声 信号 将 导致 一 些 虚假 的 过 零点 。 硬 件 专家 Lem E. Tweakite iy Alyssa xf 5-5 BOF , 
在 提取 过 零点 之 前 过 滤 掉 噪声 。Alyssa 接 受 了 他 的 建议 ,决定 先 做 每 个 感应 值 与 前 一 感应 值 
的 平均 值 ， 而 后 在 这 样 构造 出 的 信号 里 提取 过 零点 。 她 将 这 一 问题 解释 给 自己 的 助手 Louis 
Reasoner ， 让 他 实现 这 一 想法 。Louis 将 Alyssa 的 程序 修改 为 下 面 样子 : 


(define (make-zero-crossings input-stream last-value) 
(let ((avpt (/ (+ (stream-car input-stream) last-value) 2))) 
(cons-stream (sign-change-detector avpt last-value) 
(make-zero-crossings (stream-cdr input-stream) 
avpt)))) 


这 并 没有 正确 实现 Alyssa 的 计划 。 请 找 出 Louis 留 在 其 中 的 错误 ， 改 正 它 ， 但 不 要 改变 程序 的 
结构 。( 提示 : 你 将 需要 增加 make-zero-crossings 的 参数 的 个 数 ) 

练习 3.76 Eva Lu Ator 对 练习 3.75 中 Louis 的 计划 有 一 个 批评 意见 ， 说 他 写 出 的 程序 不 够 
模块 化 ， 因 为 其 中 的 平滑 运算 和 过 零点 提取 操作 混在 一 起 了 。 举 例 说 ， 如 果 Alyssa 找 到 了 另 一 
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种 改善 输入 信号 的 更 好 方法 ， 不 应 该 修改 这 里 的 提取 程序 。 请 帮助 Louis 写 一 个 过 程 smooth， 
它 以 一 个 流 为 输入 ， 产 生出 男 一 个 流 ， 基 中 的 每 个 元 素 都 是 输入 流 中 顺序 的 两 个 元 素 的 平均 
值 。 而 后 以 smooth 作为 部 件 ， 以 更 模块 化 的 方式 实现 这 个 过 零 氮 检测 器 。 


3.5.4 流 和 延 时 求 值 


前 一 节 里 的 最 后 一 个 过 程 integral， 展示 了 我 们 可 以 怎样 用 流 去 模拟 包含 反馈 循环 的 
言 号 处 理 系统 。 图 3-32 中 所 示 的 加 法 器 的 反馈 循环 ， 是 通过 将 ntegral 的 内 部 流 int 通 过 它 
本 身 定义 的 方式 去 模拟 的 : 
(define int 
(cons-stream initial-value 


(add-streams (scale-stream integrand dt) 
int))) 


解释 器 处 理 这 种 隐 式 定义 的 能 力 依赖 于 daelay， 它 被 结合 在 cons-stzeam 里 面 。 如 朱 设 有 
这 个 delay ， 解 释 器 就 不 可 能 在 完成 对 cons-stzeam 的 两 个 参数 的 求 值 之 前 构造 出 Int， 
为 这 将 要 求 int 已 经 定义 好 。 一 般 说 ， 在 利用 流 去 模拟 包含 循环 的 信号 处 理 系统 时 ，delay 
是 至 关 重 要 的 。 如 果 没 有 delay， 我 们 的 模拟 就 不 得 不 这 样 描 述 ， 其 中 要 求 对 每 个 信号 处 理 
部 件 的 输入 都 能 在 产生 输出 之 前 完成 求 值 。 这 也 就 完全 把 循环 排除 在 外 了 。 

但 是 ， 对 于 带 有 循环 的 系统 的 流 模拟 ， 除 了 cons-stream 所 提供 的 “隐藏 的 delay 
之 外 ， 可 能 还 需要 直接 使 用 delay。 举 个 例子 ， 图 3-34 显 示 了 一 个 解 微分 方程 dy/dt =f O) 的 
信号 处 理 系统 ， 其 中 的 f 是 一 个 给 定 函 数 。 图 中 显示 了 一 个 映射 部 件 将 函数 请 应 用 于 其 输入 信 
号 的 情况 ， 它 也 连接 在 一 个 反馈 循环 里 ， 循 环 中 包含 一 个 积分 器 ， 连 接 方式 很 像 在 模拟 计算 
机 中 实际 用 于 求解 这 种 方程 的 电路 形式 。 





图 3-34 一 个 求解 方程 dy/dt =f 0) 的 “模拟 计算 机 电路 ” 
假定 给 了 y 的 一 个 输入 值 yp， 我 们 可 能 企图 采用 下 面 过 程 模拟 这 个 系统 : 


(define (solve f y0 dt) 
(define y (integral dy y0 dt)) 
(define dy (stream-map f y)) 
Y) 
可 是 这 一 过 程 无 法 工作 ， 因 为 在 solve 的 第 一 行 里 对 integral 的 调用 要 求 Gy 已 经 定义 ， 但 
这 是 到 solve 的 第 二 行 才 做 的 事情 。 
换 句 话说 ， 这 一 定义 的 意图 确实 是 有 意义 的 ， 因 为 从 原则 上 说 ， 我 们 有 可 能 在 不 知道 Gy 
的 情况 下 开始 生成 y。 实 际 上 ，integral 和 其 他 的 许多 流 都 有 类 似 cons~stream 的 这 种 性 
质 ， 我 们 可 以 在 只 有 参数 的 一 部 分 信息 的 情况 下 ， 开 始 生 成 出 输出 流 的 有 关 部 分 WT 
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integral, ， 输 出 流 的 第 一 个 元 素 由 initial-value 描 述 ， 这 样 我 们 就 可 以 在 不 求 值 积 分 
对 象 dy 的 情况 下 生成 出 输出 流 里 的 第 一 个 元 素 。 一 旦 我 们 知道 了 Y 的 第 一 个 元 素 ， 位 于 
solve 第 二 行 的 stream-map 就 可 以 开始 工作 ， 生 成 出 dy 的 第 一 个 元 素 ， 这 样 就 可 以 生成 出 
Y 的 下 一 个 元 素 ， 并 可 以 这 样 继续 下 去 了 。 
为 了 利用 这 种 想 半 ， 我 们 就 需要 重新 定义 1ntegral， 将 被 积 的 流 看 作 一 个 壬 时 和 参数 。 
integral 将 在 需要 生成 输出 流 第 一 个 元 素 之 后 的 元 素 时 force 积 分 对 象 的 求 值 : 
(define (integral delayed-integrand initial-value dt) 
(define int 
{cons-stream initial-value 
(let ((integrand (force delayed-integrand) ) ) 
(add-streams (scale-stream integrand dt) 
int)))) 
int) 
现在 我 们 只 需 在 Y 的 定义 里 延 时 求 值 dy ， 就 可 以 实现 solve 过 程 了 ”: 
(define (solve f y0 dt) | 
(define y (integral (delay dy) y0 dt)) 
(define dy (stream-map f y)) 
y) 
一 般 而 言 ，integral 的 每 个 调用 者 现在 都 必须 delay 其 被 积 参数 。 下 面 是 展示 solve 过 程 


工作 情况 的 例子 ， 希 望 在 y= 1 处 ， 初 始 条 件 为 y(0) = 1 的 情况 下 ， 计 算 微分 方程 dy/dt =y 的 解 ， 


这 将 计算 出 近似 值 e ~2.718。 
(stream-ref (solve (lambda (y) y) 1 9.001) 1000) 
2.716924 


练习 3.77 上 面 所 用 的 ijntegral 过 程 类 似 于 在 3.5.2 节 里 整数 无 穷 流 的 “ 隐 式 ”定义 。 
换 一 种 方式 ， 我 们 也 可 以 给 出 的 另 一 个 定义 ， 它 更 像 ijntegers-starting-from (WR 
3.5.254). 


(define (integral integrand initial-value dt) 
(cons-stream initial-value 
(if (stream-null? integrand) 

the-empty-stream 

(integral ({stream-cdr integrand) 
(+ (* dt (stream-car integrand) ) 

initial-value) 

at ) ) )) 


在 用 于 带 循环 的 系统 时 ， 这 个 过 程 有 着 与 开始 integral 版 本 一 样 的 问题 。 请 修改 这 个 过 程 ， 
使 它 将 integrand 看 作 延 时 参数 ， 以 便 能 用 于 上 述 的 solve 过 程 。 
练习 3.78 现在 考虑 设计 一 个 信号 处 理 系统 ， 研 究 齐 次 二 阶 线性 微分 方程 : 


2 
dY _ gD _ bya 
dt dt 


99 这 一 过 程 并 不 保证 能 在 所 有 Scheme 实现 中 工作 ， 但 在 每 一 个 实现 中 ， 都 有 它 的 一 个 简单 变形 可 以 工作 。 问 是 
出 在 Scheme 实现 中 对 内 部 定义 的 处 理 方式 的 细微 差异 上 (参见 4.1.6 节 )。 
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输出 流 模拟 y， 它 由 一 个 包含 循环 的 网 络 生成 。 这 是 因为 d*y/dr* 的 值 依赖 于 y 和 dy/dt 的 值 ， 而 它 
们 又 都 由 被 积 式 d?y/df? 所 确定 。 图 3-35 显 示 了 我 们 希望 去 编码 的 图 形 。 请 写 出 一 个 过 程 
solve-2nd ， 它 以 常数 4a、b 和 dt，y 的 初始 值 o 和 dyo。 ， 以 及 dy/dt 为 参数 ， 生 成 缆 的 一 系列 值 





练习 3.79 ”请 推广 练习 3.78 里 写 出 的 过 程 solve-2nd ,使 之 能 用 于 求解 一 般 的 二 次 微分 
Fy Fed? y/dt =f(dy/dt, y), 

练习 3.80 串联 RLC 电路 由 一 个 电阻 、 一 -个 电容 器 和 一 个 电感 串联 组 成 ， 如 图 3-36 所 示 。 
如 果 R、L 上 L 和 C 分 别 是 电路 里 的 电阻 值 、 电 容量 和 电感 量 ， 那 么 由 三 个 部 件 间 的 电压 O) 和 电流 
(D 关系 由 下 面 方程 描述 





图 3-36 一 个 申 行 RLC 电 路 


电路 连接 导致 下 面 的 关系 : 
iR = ip 一 一 ic l 


Vc =V VR 


请 组 合 这 些 方 程 ， 证 明 电路 的 状态 (vfi) 可 以 由 以 下 微分 方程 描述 : 





scale: —R/L 
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请 写 出 一 个 过 程 REC， 它 以 电路 的 R、L、C 和 时 间 增 量 dt 为 参数 ， 按 类 似 于 练习 3.73 中 过 
程 RC 的 方式 ，RLC 应 该 生成 一 个 过 程 ， 该 过 程 以 状态 变量 的 初始 值 vco 和 谍 0 为 参数 ， 生 成 出 状 
Any Fi, WI A —- 7 Feet (用 cons ) 。 利 用 RLC 生 成 出 一 对 流 ， 模 拟 一 个 RZLC 电路 的 行为 ， 其 
中 R=1 欧 , C=0.2 法 , 上 =1 亨 ,dt 0.1 秒 ， 初 始 值 i =0 安 培 ， vec, =10 伏 特 。 


规范 求 值 序 

本 节 中 的 实例 说 明 ， 显 式 使 用 delay 和 force 能 够 提供 很 大 的 编程 灵活 性 ， 但 同样 实 例 
也 显示 出 这 种 做 法 可 能 如 何 导致 程序 变 得 更 加 复杂 。 举 例 来 说 ， 新 的 jntegral 过 程 给 了 我 
们 模拟 带 有 循环 的 系统 的 能 力 ， 但 现在 我 们 就 必须 记 住 ， 调 用 integIal 时 必须 用 一 个 延 时 
参数 ， 每 个 使 用 integral 的 过 程 都 必须 注意 这 一 问题 。 从 效果 上 看 ， 我 们 已 经 构 运 出 了 两 
类 过 程 ， 常规 的 过 程 和 要 求 延 时 参数 的 过 程 。 一 般 说 ， 如 果 创 建 了 不 同 种 类 的 过 程 ， 束 将 但 
使 我 们 同时 去 创建 不 同 种 类 的 高 阶 过 程 ”。 


200 这 是 常规 强 类 型 语言 (如 Pascal) 在 处 理 高 阶 过 程 时 所 遇 到 的 困难 情况 在 Lisp 里 的 一 种 小 小 反应 。 在 那些 语 
zE, EF 员 必 须 刻画 每 个 过 程 的 参数 和 结果 的 数据 类 型 ， 数 、 逻 辑 值 、 序 列 等 等 。 因 此 我 们 就 无 法 表述 某 
些 抽象 ， 例 如 用 一 个 如 stream-map 那 样 的 高 阶 过 程 “ 将 给 定 过 程 Proc 映射 到 一 个 序列 里 的 每 个 元 素 。 相 
反 ， 我 们 将 需要 对 每 种 参数 和 结果 数据 类 型 的 不 同 组 合 定义 不 同 的 映射 过 程 ， 各 自 应 用 于 特定 的 Proc 。 在 
出 现 了 高 阶 函数 的 情况 下 ， 维 持 一 种 实际 的 “数据 类 型 ”概念 就 变 成 了 一 个 很 困难 的 问题 。 语 言 ML 天 明了 
处 理 这 一 问题 的 一 种 方法 (Gordon, Milner, and Wadsworth 1979)， 其 中 的 “多 态 数 据 类 型 ”包含 着 数据 类 型 
间 高 阶 变换 的 模式 。 这 就 使 程序 员 不 必 显 式 声 明 ML 里 的 大 部 分 过 程 的 数据 类 型 。ML 包 含 一 种 “类 型 推 隆 
机 制 ， 用 于 从 环境 中 归结 出 新 定义 的 过 程 的 数据 类 型 。 
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为 了 避免 需要 两 类 不 同 过 程 ， 一 种 方式 是 让 所 有 过 程 都 用 延 时 参数 。 我 们 可 以 采纳 一 种 
求 值 模型 ， 其 中 所 有 过 程 参数 都 自动 延 时 ， 只 有 在 实际 需要 它们 的 时 候 〈 例 如 ， 当 基本 操作 
需要 它们 的 时 候 ) 才 强 迫 参 数 求 值 。 这 样 做 ， 就 把 我 们 的 语言 转 到 了 采用 规范 序 的 方式 ， 在 
1.1.5 节 介绍 求 值 的 代 换 模型 时 曾 第 一 次 介绍 过 这 一 概念 。 转 到 规范 序 求 值 ， 能 得 到 一 种 简化 
延 时 求 值 使 用 方式 的 统一 的 优雅 途径 ， 如 果 我 们 关心 的 只 是 流 处 理 ， 这 将 是 一 种 应 该 采用 的 
非常 自然 的 策略 。 在 研究 了 求 值 器 之 后 ， 我 们 将 在 4.2 节 里 看 看 怎样 将 所 用 的 语言 变换 到 那 种 
样子 。 不 幸 的 是 ， 把 延 时 包含 到 过 程 调 用 中 ， 将 会 对 我 们 设计 依赖 于 事件 顺序 的 程序 的 能 
造成 极 大 损害 ， 例 如 使 用 赋值 、 变 动 数据 、 执 行 输入 输出 的 程序 等 等 。 其 至 在 cons-stream 
里 的 那个 delay 也 会 产生 极 大 的 迷惑 作用 ,如 练习 3.51 和 练习 3.52 所 示 。 目前 所 有 的 人 都 知道 ， 
恋 动 性 和 延 时 求 值 在 程序 设计 语言 里 结合 得 非常 不 好 ， 设 计 出 某 些 方式 ， 适 当地 处 理 这 两 种 
东西 ， 仍 然 是 一 个 很 活跃 的 研究 领域 。 


3.5.5 函数 式 程序 的 模块 化 和 对 象 的 模块 化 


正如 我 们 在 3.1.2 节 里 所 看 到 的 ， 引 进 赋值 的 主要 收益 就 是 使 我 们 可 以 增 踢 系统 的 模块 化 ， 
把 一 个 大 系统 的 状态 中 的 某 些 部 分 封装 ， 或 者 说 “隐藏 ”到 局 部 变量 里 。 流 模型 可 以 提供 等 
价 的 模块 化 ， 同 时 又 不 必 使 用 赋值 。 为 了 展示 这 方面 的 情况 ， 我 们 可 以 重新 实现 前 面 在 
节 考 察 过 的 r 的 蒙特 卡 罗 估 计 ， 这 次 从 流 的 观点 出 发 来 做 。 

这 里 的 一 个 关键 性 的 模块 化 问题 ， 就 是 我 们 希望 将 一 个 随机 数 生成 器 的 内 部 状态 隐藏 起 
来 ， 隔 离 在 使 用 随机 数 的 程序 之 外 。 我 们 从 过 程 rand-update 开 始 ， 它 所 提供 的 一 系列 值 
就 是 我 们 所 需 的 随机 数 ， 用 它 作为 一 个 随机 数 生成 颖 : 


(define rand 
(let ((x random-init)) 
(lambda () 
(set! x (rand-update x)) 


x))) 


EAR h, RUA BH BT CBRL ERR. FER BRA TUL, i 
过 对 rand-update 的 一 系列 顺序 调用 产生 : , | 


(define random-numbers 
(cons~stream random-init 
(stream-map rand-update random~numbers) ) ) 


A eee WH Zerandom-numbers jt + Wi FF AIZ _EACesaro iR3e Ay Hai Me : 


(define cesaro-stream 
(map-successive-pairs (lambda (rl r2) (= (gcd rl r2) 1)) 
random-numbers) ) 


(define (map-successive-pairs f s) 
(cons-stream 
(£ (stream-car s) (stream-car (stream-cdr s))) 


(map-successive-pairs f (stream-cdr (stream-cdr s))))) 


M7 #cesaro-stream##Amonte-carlow, wit BER —A ARE EHH io PERI 
的 结果 被 变换 到 一 个 估计 x 值 的 流 。 这 一 版 本 的 程序 里 根本 不 需要 用 参数 去 告诉 它 试 多 少 次 ， 
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如 果 去 查看 pi 流 里 更 后 面 的 值 ， 我 们 就 可 以 得 到 7 的 更 好 估计 (也 就 是 执行 更 多 的 试验 )。 
{define (monte-carlo experiment-stream passed failed) 
(define (next passed failed) 
(cons-stream 
(/ passed (+ passed failed) ) 
(monte-carlo 
(stream-cdr experiment-stream) passed failed))) 
(if (stream-car experiment-stream) 
(next (+ passed 1) failed) 
(next passed (+ failed 1)))) 


(define pi 
(stream-map (lambda (p) (sqrt (/ 6 p))) 
{monte-carlo cesaro-stream 0 0))) 


这 一 方法 也 相当 模块 化 ， 因 为 这 里 仍然 构造 出 了 一 个 一 般 性 的 monte-carlo 过 程 ， 它 可 
以 处 理 任 何 试验 。 而 且 这 里 没有 赋值 ， 也 没有 局 部 状态 。 

练习 3.81 练习 3.6 讨 论 了 推广 随机 数 生 成 器 ， 使 人 可 以 重 置 随机 数 序 列 ， 以 便 生成 出 
“随机 ” 数 的 可 重复 序列 。 请 做 出 这 种 生成 器 的 一 个 流 模 型 ， 它 对 一 个 表示 需求 的 输入 流 操作 ， 
或 者 是 generate 一 个 新 随机 数 ， 或 者 是 将 序列 reset 为 某 个 特定 值 ， 进 而 生成 所 需 的 随机 
数 流 。 在 你 的 解 中 不 要 使 用 赋值 。 

练习 3.82 ”以 流 的 方式 重新 做 练习 3.5 里 的 蒙特 卡 罗 积 分 ，estimate-integral Huth 
本 将 不 需要 参数 告知 执行 试验 的 次 数 ， 相 反 ， 它 将 生成 一 个 表示 越 来 越 多 试验 次 数 的 估 值 流 ， 

时 间 的 函数 式 程 序 设 计 观 点 

现在 回 到 有 关 对 象 和 状态 的 问题 ， 这 是 本 章 开 始 提出 的 ， 现 在 让 我 们 从 一 种 新 的 角度 去 
看 它们 。 引 进 赋 值 和 变动 对 象 ， 就 是 为 了 提供 一 种 机 制 ， 以 便 能 模块 化 地 构造 出 程序 ， 去 模 
所 具有 状态 的 系统 。 我 们 构造 了 包含 内 部 状态 变量 的 计算 对 象 ， 用 赋值 去 修改 这 些 变 量 。 我 
们 利用 对 应 计算 对 象 的 时 序 行 为 去 模拟 现实 世界 中 的 各 种 对 象 的 时 序 行为 。 

现在 已 经 看 到 ， 流 为 模拟 具有 内 部 状态 的 对 象 提供 了 另 一 种 方式 。 可 以 用 一 个 流 去 模拟 
-一 个 蛮 化 的 量 ， 例 如 某 个 对 象 的 内 部 状态 ， 用 流 表 示 其 顺序 状态 的 时 间 史 。 从 本 质 上 说 ， 这 
里 的 流 将 时 间 显 式 地 表示 了 出 来 ， 因 此 就 松 开 了 被 模拟 的 世界 里 的 时 间 与 求 值 过 程 中 事件 发 
生 的 顺序 之 间 的 紧密 联系 。 确 实 ， 由 于 delLay 的 出 现 ， 在 模型 中 被 模拟 的 时 间 与 求 值 中 事件 
发 生 的 顺序 之 间 已 经 没有 什么 关系 了 。 

为 了 进一步 对 比 这 两 种 模拟 方式 ， 让 我 们 重新 考虑 一 个 “取款 处 理 器 ”的 实现 ， 它 管理 
着 一 个 银行 账户 的 余额 。 在 3.1.3 节 里 ， 我 们 实现 了 这 一 处 理 器 的 一 个 简化 版 本 : 


(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) ) 


balance) ) 
调用 make-simplified-withdraw 将 生成 出 这 种 计算 对 象 ， 每 个 这 种 对 象 里 都 有 局 部 变量 
balance， 其 值 将 在 对 这 个 对 象 的 一 系列 调用 中 逐步 减少 。 这 些 对 象 以 amount 为 参数 ， 圾 
回 一 个 新 的 余额 值 。 我 们 可 以 设想 ， 银 行 账户 的 用 户 送 一 个 输入 序列 给 这 种 对 象 ， 由 它 得 到 
一 系列 返回 值 ， 显 示 在 某 个 显示 屏幕 上 。 
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{define (stream-withdraw balance amount-stream) 
(cons-stream 
balance 
(stream-withdraw (- balance (stream-car amount-stream) ) 
{stream-cdr amount-stream) ))) 


stream-withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 其 输出 完全 由 输入 确定 。 当 然 ， 
这 里 假定 了 输入 amount-stream 是 由 用 户 送 来 的 顺序 值 构 成 的 流 ， 作 为 结果 的 余额 流 将 被 
显示 出 来 。 这 样 ， 从 送 入 这 些 值 并 观看 结果 的 用 户 的 角度 看 ， 这 一 流 过 程 的 行为 与 由 make- 
Simplified-withdraw 创 建 的 对 象 并 没有 什么 不 同 。 当 然 ， 在 这 种 流 方式 里 没有 赋值 ， 没 
有 局 部 状态 变量 ， 因 此 也 就 不 会 有 我 们 在 3.1.3 节 所 遇 到 的 种 种 理论 困难 。 但 是 这 个 系统 也 有 
状态 ! 

这 确实 是 极其 惊人 的 。 虽 然 stream-withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 
其 行为 根本 不 会 变化 ， 用 户 看 到 的 却 是 在 这 里 与 一 个 改变 着 状态 的 系统 交互 。 消 除 这 一 迟 论 
的 一 种 方式 是 认识 到 ， 正 是 由 于 用 户 方 的 时 态 的 存在 ， 为 这 个 系统 赋予 了 状态 特性 。 如 采用 
户 从 自己 的 交互 问题 上 后 退 一 步 ， 以 余额 流 的 方式 思考 问题 ， 而 不 是 去 看 个 别 的 交易 ， 这 个 
系统 看 上 去 就 是 无 状态 的 了 ” 。 

从 一 个 复杂 过 程 中 的 一 部 分 的 观点 出 发 ， 其 他 的 部 分 看 起 来 正在 随 着 时 间 变 化 ， 它 们 有 
着 隐藏 的 随时 间 变 化 的 局 部 状态 。 如 果 我 们 希望 去 写 程序 ， 在 计算 机 里 用 某 种 结构 去 模拟 现 
实 世界 中 的 这 类 自然 分 解 (就 像 我 们 从 自己 的 观点 ， 将 它 看 作 世 界 的 一 个 部 分 那样 )， 那 么 就 
会 做 出 一 些 不 是 函数 式 的 计算 对 象 一 一 它们 必须 随 着 时 间 不 断 变化 。 我 们 用 局 部 状态 变量 去 
模拟 状态 ， 用 对 这 些 变量 的 赋值 模拟 状态 的 变化 。 在 这 样 做 的 时 候 ， 就 是 在 用 计算 执行 中 的 
时 间 去 模拟 我 们 所 在 的 世界 里 的 时 间 ， 也 就 是 把 “对 象 ” 弄 进 了 计算 机 。 | 

用 对 象 来 做 模拟 是 威力 强大 的 ， 也 很 直观 ， 这 一 情况 的 主要 根源 ， 就 在 于 它 非 常 符合 我 
们 对 自己 身 处 其 中 并 与 之 交流 的 世界 的 看 法 。 然 而 ， 正 如 在 读 完 这 一 章 的 整个 过 程 中 我 们 已 
经 反复 看 到 的 ， 这 种 模型 也 产生 了 对 于 事件 的 顺序 ， 以 及 同步 多 个 进程 的 坏 手 问题 。 避 免 这 
些 问 题 的 可 能 性 推动 着 函数 式 程序 设计 语言 的 开发 ， 这 类 语言 里 根本 不 提供 赋值 或 者 变动 对 
象 。 在 这 样 的 语言 里 ， 所 有 过 程 实现 的 都 是 它们 的 参数 上 的 定义 良好 的 数学 函数 ， 其 行为 不 
会 变化 。 函 数 式 途 径 对 于 处 理 并 发 系统 特别 有 吸引 力 ”。 

但 是 ， 在 另 一 方面 ， 如 果 我 们 贴近 观察 ， 就 会 看 到 与 时 间 有 关 的 问题 也 潜入 了 函数 式 模 
型 之 中 。 一 个 特别 麻烦 的 领域 出 现在 我 们 希望 设计 交互 式 系 统 的 时 候 ， 特 别 是 如 果 需 要 去 模 
拟 一 些 独 立 对 象 之 间 的 交互 。 举 个 例子 ， 我 们 再 次 考虑 允许 共用 账户 的 银行 系统 的 实现 。 普 
通 系统 里 将 使 用 赋值 和 状态 ， 在 模拟 Peter 和 Paul 共 享 一 个 账户 时 ， 我 们 i 上 Peter 和 Paul 将 他 们 
的 交易 请 求 送 到 同一 个 银行 账户 对 象 ， 就 像 在 3.1.3 节 里 所 看 到 的 那样 。 从 流 的 观点 看 ， 在 这 


201 物理 中 也 类 似 ， 当 我 们 观察 一 个 正在 移动 的 粒子 时 ， 我 们 说 该 粒子 的 位 置 RE) 正在 变化 。 然 而 ， 从 粒子 
的 世界 线 的 观点 看 ， 这 里 根本 就 不 涉及 任何 变化 。 | 

2? John Backus (Fortran 的 发 明 者 ) 在 1978 年 得 到 图 灵 奖 时 特别 赞赏 函数 式 程序 设计 。 在 他 的 授奖 讲演 中 
(Backus 1978) 强 列 地 推崇 函数 式 途径 。Henderson 1980 和 Darlington，Henderson， and Turner 1982 给 出 了 有 


关 函 数 式 程序 设计 的 很 好 综述 。 
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里 根本 就 没有 什么 “对 象 ， 我 们 已 经 说 明了 可 以 用 一 个 计算 过 程 去 模拟 银行 账户 ， 该 过 程 在 
一 个 请 求 交 易 的 六 上 操作 ， 生 成 一 个 系统 啊 应 的 流 。 我 们 也 同样 能 模拟 Peter 和 和 Paul 有 着 共用 
账户 的 事实 ， 只 要 将 Peter 的 交易 请 求 流 与 Paul 的 交易 请 求 流 归并 ， 并 把 归并 后 的 流 送 给 那个 
银行 账 己 过 程 ， 如 图 3-38 所 示 。 


Peter 的 请 求 


Paul 的 请 求 归并 银行 账户 ”| 一 一 ->> 
—_——— > 


图 3-38 一 个 合用 账户 ， 通 过 合并 两 个 交易 请 求 流 的 方式 模拟 


这 种 处 理 方 式 的 麻烦 就 在 于 归并 的 概念 。 通 过 简单 交替 地 从 Peter 的 请 求 中 取 一 个 ， 而 后 
从 Paul 的 请 求 中 取 一 个 的 方式 根本 不 行 。 假 定 Paul 很 少 访问 这 个 账户 ， 我 们 将 很 难 强迫 Peter 
等 待 Paul 对 账户 的 访问 ， 而 后 才能 进行 自己 的 第 二 次 访问 。 无 论 这 种 归并 如 何 实现 ， 它 都 必 
须 在 某 种 由 Peter 和 Paul 可 以 看 到 的 “真实 时 间 ” 的 约束 之 下 交错 归并 这 两 个 交易 流 ， 这 也 束 
是 说 ， 如 果 Peter 和 Paul 会 面 了 ， 他 们 总 可 以 一 致 地 认为 ， 某 些 交 易 已 经 在 这 次 会 面 之 前 做 了 ， 
其 他 交易 将 在 这 次 会 面 之 后 做 ”"。 这 正好 是 在 3.4.1 节 里 我 们 不 得 不 去 处 理 的 同一 个 约束 条 件 ， 
在 那里 我 们 发 现 需要 引进 显 式 同 步 ， 以 确保 在 并 发 处 理 具 有 状态 的 对 象 的 过 程 中 ， 各 个 事件 
是 按照 “正确 ”顺序 发 生 的 。 这 样 ， 虽 然 这 里 试图 支持 国 数 式 的 风格 ， 但 在 需要 归并 来 目 不 
同 主体 的 输入 时 ， 又 要 重新 引入 函数 式 风格 致力 于 消除 的 同一 个 问题 。 

本 章 开 始 时 提出 了 一 个 目标 ， 那 就 是 构造 出 一 些 计算 模型 ， 使 其 结构 能 够 符合 我 们 对 于 
试图 去 模拟 的 真实 世界 的 看 法 。 我 们 可 以 将 这 一 世界 模拟 为 一 集 相互 分 离 的 、 受 时 间 约 束 的 、 
具有 状态 的 相互 交流 的 对 象 ， 或 者 可 以 将 它 模拟 为 单一 的 、 无 时 间 也 无 状态 的 统一 体 。 每 种 
观点 都 有 其 强 有 力 的 优势 ， 但 就 其 自身 而 言 ， 又 没有 一 种 方式 能 够 完全 令 人 满意 。 我 们 还 在 
等 待 着 一 个 大 统一 的 出 现 ” 。 


203 请 注意 ， 一 般 地 说 ， 对 于 任意 两 个 流 ， 存 在 着 多 于 一 种 可 接受 的 交错 顺序 。 这样， 从 技术 上 看 , “归并 ”就 
是 一 个 关系 而 不 是 一 个 函数 一 -得 到 的 回答 并 不 是 输入 的 确定 性 函数 。 我 们 已 经 提 到 过 (脚注 167 )， 非 确定 
性 在 处 理 并 发 方面 是 本 质 性 的 。 这 一 归并 关系 展示 了 同样 本 质 性 的 非 确 定性 。 在 4.3 节 里 我 们 将 看 到 来 目 力 一 
种 观点 的 非 确 定性 。 

204 对 象 模 型 对 世界 的 近似 在 于 将 其 分 割 为 独立 的 片断 ， 函 数 式 模型 则 不 是 沿 着 对 象 间 的 边界 去 做 模块 化 。 妆 
“对 象 ”之 间 不 共享 的 状态 远 远 大 于 它们 所 共享 的 状态 时 ， 对 象 模型 就 特别 好 用 。 这 种 对 象 观 点 失效 的 一 个 
地 方 就 是 量子 力学 ， 在 那里 ， 将 物体 看 作 独 立 的 粒子 就 会 导致 悖 论 和 混乱 .将 对 象 观点 与 函数 式 观点 合并 可 
能 与 程序 设计 的 关系 不 大 ， 而 是 与 基本 认识 论 有 关 的 论题 。 


种 4 章 元 语言 抽象 


用 普通 的 话 来 说 ， 这 个 如 语 就 是 一 -- 阿 已 拉 卡 法 巴 拉 ， 芝 麻 开 门 ， 而 且 还 有 另外 
的 东 西 一 一 在 一 个 故事 里 的 咒语 在 另 一 故事 里 就 不 灵 了 。 真 正 的 魔力 在 于 知道 哪个 咒 
语 有 用 ， 在 什么 时 候 ， 用 于 做 什么 ， 其 诀窍 就 在 于 学 会 有 关 的 诀 窃 。 

而 这 些 咒 语 也 是 用 我 们 的 字母 表 里 的 字母 拼 出 来 的 ， 这 个 字母 表 中 不 过 是 几 十 
个 可 以 用 笔画 出 来 的 弯 弯 曲线 。 这 就 是 最 关键 的 ! 而 那些 珍宝 也 是 如 此 ， 如 果 我 们 
能 将 它们 拿 到 手中 的 话 | 这 就 像 是 说 ， 就 像 通 向 珍宝 的 钥匙 就 是 珍宝 1 | 








一 一 John Barth, Charon ( 奇想 ) 


在 前 面 有 关 程 序 设计 的 研究 中 ， 我 们 已 经 看 到 专业 程序 员 在 设法 控制 他 们 的 设计 的 复杂 
性 时 ， 采 用 的 正 是 与 所 有 复杂 系统 的 设计 者 同样 的 通用 技术 。 他 们 将 基本 元 素 组 合 起 来 ， 形 
成 复合 元 素 ， 从 复合 元 素 出 发 通过 抽象 形成 更 高 一 屋 的 构件 ， 并 通过 采取 某 种 适当 的 关于 系 
统 结构 的 大 尺度 观点 ， 保 持 系 统 的 模块 性 。 为 了 阐释 这 些 技术 ， 我 们 一 直 用 Lisp 作 为 语言 ， 
描述 计算 过 程 ， 构 造 用 于 模拟 现实 世界 中 复杂 现象 的 复合 性 计算 对 象 和 计算 过 程 。 然 而 ， 随 
着 所 面 对 的 问题 变 得 更 加 复杂 ， 我 们 会 发 现 Lisp ， 以 及 任何 一 种 确定 的 程序 设计 语言 ， 都 不 
足以 满足 我 们 的 需要 。 我 们 必须 经 常 转向 新 的 语言 ， 以 便 能 够 更 有 效 地 表述 自己 的 想法 。 建 
立新 语言 是 在 工程 设计 中 控制 复杂 性 的 一 种 威力 强大 的 工作 策略 ， 我 们 常常 能 通过 采用 一 种 
新 语言 而 提升 处 理 复杂 问题 的 能 力 ， 因 为 新 语言 可 能 使 我 们 以 一 种 完全 不 同 的 方式 ， 利 用 不 
同 的 原 语 ， 不 同 的 组 合 方式 和 抽象 方式 去 描述 (因此 也 是 思考 ) 所 面 对 的 问题 ， 而 这 些 都 可 
以 是 为 了 手头 需要 处 理 的 问题 而 专门 打造 的 ”5。 : 

程序 设计 中 总 会 涉及 到 多 种 语言 。 这 里 有 物理 的 语言 ， 例 如 针对 特定 计算 机 的 机 器 语言 。 
这 些 语言 关注 的 是 数据 和 控制 在 存储 器 和 基本 机 器 指令 中 一 系列 二 进 制 位 上 的 表示 。 机 器 语 
言 程序 员 关 心 的 是 如 何 利 用 给 定 硬件 构造 出 各 种 系统 和 有 用 功能 ， 以 便 在 资源 受 限 的 条 件 下 
有 效 地 实现 计算 过 程 。 高 级 语言 构筑 在 机 器 语言 之 上 ， 它 们 隐藏 起 数据 被 表示 为 一 些 二 进 制 
位 ,程序 被 表示 为 一 个 基本 指令 序列 的 许多 细节 。 这 些 语言 提供 了 一 些 组 合 和 抽象 机 制 ， 例 
如 过 程 定义 ， 因 此 更 适合 大 规模 的 系统 组 织 。 


205 同样 的 想法 在 工程 中 随处 可 见 。 举 例 来 说 ， 电 子 工 程 师 使 用 许多 不 同 的 语言 去 描述 电路 ， 其 中 的 两 种 语言 是 
电子 网 络 的 语言 和 电子 系统 的 语言 。 网 络 语言 强调 的 是 基于 各 种 电子 元 件 为 设备 建 模 ， 在 这 个 语言 里 的 基本 
对 象 是 各 种 基本 电子 元 器 件 ， 如 电阻 器 、 电 容器 、 电 感 器 和 晶体 管 ， 它 们 的 特征 采用 电压 和 电流 等 物理 变量 
刻画 。 在 采用 网 络 语言 描述 电路 时 ， 工 程 师 关心 的 是 一 个 设计 的 物理 特性 。 与 此 相对 应 ， 系 统 语 言 中 的 基本 
对 象 是 信号 处 理 模 块 ， 如 过 滤器 和 放大 器 。 此 时 需要 关心 的 只 是 这 些 模块 的 功能 行为 以 及 对 信和 号 的 操作 ， 并 
不 关心 它们 在 物理 的 电流 电压 上 的 实现 。 这 种 系统 语言 是 在 网 络 语言 的 基础 上 构造 起 来 的 ， 因 为 信号 处 理 系 
统 的 元 素 是 用 电子 网 络 构造 起 来 的 。 但 是 ， 设 计 者 在 这 里 关心 的 是 为 解决 给 定 的 应 用 问题 而 做 的 电子 设备 的 
大 规模 组 织 ， 并 假定 了 其 中 各 部 分 的 物理 可 行 性 。2.2.4 节 中 的 图 形 语言 所 展示 的 分 层 设计 技术 正好 是 分 层 语 
言 的 另 一 个 例子 。 
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元 语言 抽象 就 是 建立 新 的 语言 。 它 在 工程 设计 的 所 有 分 支 中 都 扮演 着 重要 的 角色 ， 在 计 
算 机 程序 设计 领域 更 是 特别 重要 ， 因 为 这 个 领域 中 ， 我 们 不 仅 可 以 设计 新 的 语言 ， 还 可 以 通 
过 构造 求 值 器 的 方式 实现 这 些 语 言 。 对 于 某 个 程序 设计 语言 的 求 值 器 (或 者 解释 器 ) 也 是 一 
个 过 程 ， 在 应 用 于 这 个 语言 的 一 个 表达 式 时 ， 它 能 够 执行 求 值 这 个 表达 式 所 要 求 的 动作 。 

把 这 一 点 看 做 是 程序 设计 中 最 基本 的 思想 一 点 也 不 过 分 : 

求 值 器 决定 了 一 个 程序 设计 语言 中 各 种 表达 式 的 递 义 ， 而 它 本 身 也 不 过 就 是 另 一 个 

程序 。 

认识 到 这 一 点 ， 我 们 就 需要 修正 有 关 自己 作为 程序 员 的 看 法 。 现 在 应 该 开始 将 自己 看 做 
语言 的 设计 师 ， 而 不 仅仅 是 别人 设计 好 的 语言 的 使 用 者 。 

事实 上 ， 我 们 几乎 可 以 把 任何 程序 看 做 是 某 个 语言 的 求 值 器 。 举 例 说 ，2.5.3 节 的 多 项 式 
运算 系统 里 包含 着 多 项 式 的 算术 规则 ， 以 及 它们 基于 表 结构 数据 操作 的 实现 。 如 果 我 们 扩充 
这 一 系统 ， 加 进 读 入 和 打印 多 项 式 的 过 程 ， 我 们 就 有 了 一 个 用 于 处 理 符号 数学 问题 的 专用 语 
言 的 核心 部 分 。3.3.4 节 的 数字 逻辑 模拟 器 和 3.3.5 节 的 约束 传播 系统 ， 从 它们 自己 的 角度 看 ， 
也 都 是 完全 合格 的 语言 。 它 们 都 有 自己 的 基本 操作 ， 组 合 手段 和 抽象 手段 。 从 这 样 一 种 观点 
看 问题 ， 处 理 大 规模 计算 机 系统 的 技术 ， 与 构造 新 的 程序 设计 语言 的 技术 有 紧密 的 联系 ， 而 
计算 机 科学 本 身 不 过 (也 不 更 少 ) 就 是 有 关 如 何 构造 适当 的 描述 语言 的 学 科 。 

现在 我 们 将 要 启程 ， 去 讨论 有 关 如 何在 一 些 语 言 的 基础 上 构造 新 语言 的 技术 。 在 这 一 章 
里 ， 我 们 将 用 Lisp 语 言 作 为 基础 ， 将 各 种 求 值 器 实现 为 一 些 Lisp 过 程 。 因 为 Lisp 的 描述 能 力 和 
操作 符号 表达 式 的 能 力 ， 它 特别 适合 用 于 这 一 工作 。 作 为 理解 语言 实现 问题 的 第 一 步 ， 我 们 
将 首先 构造 起 一 个 针对 Lisp 本 身 的 求 值 器 。 由 我 们 的 求 值 器 实现 的 语言 将 是 Lisp 的 Scheme 方 
言 的 一 个 子 集 ， 也 就 是 本 书 中 所 使 用 的 语言 。 虽 然 本 章 描述 的 求 值 器 针对 的 是 Lisp 的 一 个 特 
定 方言 ， 但 是 它 已 经 包含 了 任何 为 在 顺序 计算 机 上 写 程序 而 设计 的 表达 式 语言 的 求 值 器 的 基 
本 结构 (事实 上 ， 大 部 分 语言 的 处 理 器 ， 在 其 深 处 都 包含 了 一 个 小 小 的 “Lisp” 求 值 器 ) 。 为 
便于 展示 和 讨论 ， 我 们 对 这 个 求 值 器 做 了 一 些 简化 ， 某 些 特 征 被 放 到 一 边 ， 其 中 有 一 些 对 于 
产品 质量 的 Lisp 系 统 可 能 是 非常 重要 的 。 但 无 论 如 何 ， 这 个 简单 求 值 器 已 经 足以 执行 本 书 中 
的 大 部 分 程序 了 2 

将 求 值 器 实现 为 一 个 清 清 楚楚 的 Lisp 程 序 ， 还 带 来 了 另 一 个 好 处 ， 这 使 我 们 可 以 通过 修 
改 这 个 求 值 器 程序 ， 实 现 各 种 不 同 的 求 值 规则 。 能 够 很 好 利用 这 一 优势 的 一 个 地 方 ， 是 我 们 
可 以 取得 对 计算 模型 中 所 代入 的 时 间 概 念 的 进一步 控制 ， 这 也 是 第 3 章 讨 论 的 核心 问题 。 在 那 
里 ， 我 们 利用 流 的 概念 去 松 开 计算 机 里 的 时 间 表 示 与 现实 世界 的 时 间 之 间 的 联系 ， 以 降低 由 
状态 和 赋值 带 来 的 复杂 性 。 然 而 ， 我 们 的 流程 序 有 时 写 起 来 很 罗 嗪 ， 因 为 受到 了 Scheme 的 应 
用 顺序 求 值 的 限制 。 在 4.2 节 里 我 们 要 修改 基础 语言 ， 提 供 一 个 更 优雅 的 途径 ， 采 用 的 方式 就 
是 修改 求 值 器 ， 提 供 按照 正则 序 求 值 的 能 力 。 

4.3 节 将 要 实现 一 项 更 加 雄心 勃勃 的 语言 修改 ， 在 那里 ， 表 达 式 可 以 有 多 重 的 值 ， 而 不 仅 
仅 是 一 个 值 。 在 那里 的 非 确定 性 计算 的 语言 里 ， 我 们 可 以 很 自然 地 表达 这 样 的 计算 过 程 ， 在 


206 我 们 的 求 值 器 所 没有 涉及 的 最 重要 特征 是 有 关 处 理 错 误 和 支持 查 错 的 机 制 。 有 关 求 值 器 的 更 深入 讨论 可 风 
Friedman, Wand, and Haynes 1992， 那 里 通过 一 系列 招 cheme 写 出 的 求 值 器 ， 揭 示 了 程序 设计 语言 里 的 各 种 
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其 中 生成 出 一 个 表达 式 的 所 有 值 ， 而 后 从 中 搜索 出 满足 菜 些 特定 约束 条 件 的 值 。 从 计算 和 时 
间 模 型 的 角度 看 ， 这 样 做 就 像 是 允许 时 间 有 分 岔 ， 形 成 一 集 “ 可 能 的 未 来 ， 而 后 搜索 出 适当 
的 时 间 线 路 。 借 助 于 这 个 非 确 定性 求 值 器 ， 维 护 多 重 值 的 轨迹 并 执行 搜索 的 工作 都 将 由 语言 
的 基础 机 制 目 动 处 理 。 

在 4.4 节 里 实现 了 一 个 运 辑 程序 设计 语言 ， 在 那里 知识 用 关系 的 形式 描述 ， 而 不 十 描述 为 
带 有 输入 输出 的 计算 过 程 。 虽 然 这 样 得 到 的 语言 与 Lisp 大 相 径 庭 ， 也 与 所 有 常规 语言 根本 不 
同 ， 但 我 们 还 是 会 看 到 ， 这 个 逻辑 程序 设计 的 求 值 器 仍然 享用 着 Lisp 求 值 器 的 基本 结构 。 


4.1 元 循环 求 值 器 


现在 我 们 要 把 Lisp 求 值 器 实现 为 一 个 Lisp 程 序 ， 考 虑 用 一 个 本 身 也 在 Lisp 里 实现 的 求 值 器 
去 求 值 Lisp 程 序 。 这 看 起 来 似乎 是 一 种 循环 定义 。 不 过 ， 求 值 是 一 种 计算 过 程 ， 所 以 用 Lisp 来 
描述 这 个 过 程 也 是 合适 的 ， 因 为 毕竟 它 一 直 是 我 们 用 来 描述 计算 过 程 的 工具 ”。 用 与 被 求 值 
的 语言 同样 的 语言 写 出 的 求 值 器 被 称 为 元 循环 。 

从 根本 上 说 ， 元 循环 求 值 器 也 就 是 3.2 节 所 描述 求 值 A SUBS 的 一 个 Scheme 表达 形式 。 
回忆 一 下 ， 该 模型 包括 两 个 部 分 : 

1) 在 求 值 一 个 组 合式 (一 个 不 是 特殊 形式 的 复合 表达 式 ) 时 ， 首 先 求 值 其 中 的 子 表达 式 ， 
而 后 将 运算 符 子 表达 式 的 值 作用 于 运算 对 象 子 表达 式 的 值 。 

2) 在 将 一 个 复合 过 程 应 用 于 一 集 实 际 参数 时 ， 我 们 在 一 个 新 的 环境 里 求 值 这 个 过 程 的 体 。 
构造 这 一 环境 的 方式 就 是 用 一 个 框架 扩充 该 过 程 对 象 的 环境 部 分 ， 框 架 中 包含 的 是 这 个 过 程 
的 各 个 形式 参数 与 这 一 过 程 应 用 的 各 个 实际 参数 的 约束 。 

这 两 条 规则 描述 了 求 值 过 程 的 核心 部 分 ， 也 就 是 它 的 基本 循环 。 在 这 一 循环 中 ， 表 达 式 
在 环境 中 的 求 值 被 归 约 到 过 程 对 实际 参数 的 应 用 ， 而 这 种 应 用 又 被 归 约 到 新 的 表达 式 在 新 的 
环境 中 的 求 值 ， 如 此 下 去 ， 直 至 我 们 下 降 到 符号 (其 值 可 以 在 环境 中 找到 ) 或 者 基本 过 程 
(它们 可 以 下 接应 用 ) ， 见 图 4-1208 。 这 一 求 值 循环 实际 体现 为 求 值 器 里 的 两 个 关键 过 程 eval 
和 apply 的 相互 作用 ，4.1.1 节 将 描述 它们 (参看 图 4-1)。 

求 值 器 的 实现 依赖 于 一 些 定义 了 被 求 值 表达 式 的 语法 形式 的 过 程 。 我 们 仍 将 采用 数据 抽 
象 技术 ， 设 法 使 求 值 器 独立 于 语言 的 具体 表示 。 例 如 ， 我 们 并 不 事先 约定 一 些 选 择 ， 例 如 确 


207 即便 如 此 ， 这 里 的 求 值 器 还 是 没有 表现 出 来 求 值 过 程 的 某 些 重要 方面 。 其 中 最 重要 的 就 是 一 个 过 程 调用 其 他 
过 程 以 及 将 值 返回 调用 者 的 机 制 的 细节 。 我 们 将 在 第 5 章 里 讨论 这 些 问 题 ， 那 里 通过 将 求 值 器 实现 为 一 个 位 
单 的 寄存 器 机 器 的 方式 ， 更 贴近 地 观察 这 一 求 值 过 程 。 

208 如 果 我 们 已 经 得 到 了 应 用 基本 过 程 的 能 力 ， 那 么 在 实现 这 种 求 值 器 时 还 需要 做 些 什么 呢 ? 求 值 器 的 工作 并 不 
是 去 描述 语言 的 基本 过 程 ， 而 是 提供 一 套 连 接 方式 ， 提 供 一 些 组 合 手段 和 抽象 手段 ， 借 助 于 它们 将 基本 过 程 
联系 起 来 ， 形 成 一 个 语言 。 特 别 是 : 

“ 求 值 器 使 我 们 能 够 处 理 媒 套 的 表达 式 。 举例 来 说 ， 虽然 简单 地 应 用 基本 过 程 足 以 求 值 表 达 式 (+ 1 6)， 
但 却 无 法 处 理 (+ 1 (* 2 3))。 如 果 仅仅 考虑 基本 过 程 + ， 它 要 求 的 实际 参数 必须 是 数 。 如 果 将 表 
达 式 (* 2 3) 作为 实际 参数 送 给 它 ， 就 会 把 它 嘲 死 。 求 值 器 所 扮演 的 一 个 重要 角色 就 是 安排 好 一 秋 
办 法 ， 在 需要 将 像 (* 2 3) 这 样 的 复合 参数 传递 给 二 作为 实 参 之 前 ， 首 先 把 CHB, 

。 求 值 器 使 我 们 可 以 使 用 变量 。 举 例 说 ， 做 加 法 的 基本 过 程 不 能 处 理 像 (+ x 1) RR AN. RM 
需要 求 值 器 维护 一 批 变量 的 轨迹 ， 在 调用 基本 过 程 之 前 取得 有 关 变 量 的 值 。 

。 求 值 器 使 我 们 可 以 定义 复合 过 程 。 这 涉及 到 维护 过 程 定 义 的 轨迹 ， 知 道 如 何在 求 值 表达 式 的 过 程 中 去 
使 用 这 种 定义 ， 为 过 程 接 受 实际 参数 提供 一 种 机 制 等 。 

* 求 值 器 还 要 提供 一 批 特殊 形式 ， 它 们 的 求 值 方式 与 普通 过 程 调 用 不 同 。 


定 一 个 赋值 是 用 符号 set! 开头 的 表 的 形式 表示 ， 而 是 用 一 个 谓词 assignment? 去 检查 是 不 
是 赋值 ， 并 用 抽象 的 选取 冰 数 assignment-variable 和 assignment-value 去 访问 赋值 
中 相应 的 部 分 。 表 达 式 的 实现 将 在 4.1.2 闻 里 描述 。 在 4.1.3 节 里 还 要 描述 一 些 操作 ， 它 们 刻画 
了 过 程 和 环境 的 表示 形式 。 举 例 来 说 ,iaxe-procedure 将 构造 起 一 个 复合 过 程 ， 
1ookup-variable-value 提 取 变 量 的 值 ，apPLy-primitive-procedure 将 一 个 基本 
过 程 应 用 于 一 组 给 定 的 实际 参数 。 


表达 式 ， 
过 程 ， 环境 
实际 参数 


图 4-1 揭示 计算 机 语言 本 质 的 eval-apply 人 循环 
4.1.1 求 值 器 的 内 核 
求 值 过 程 可 以 描述 为 两 个 过 程 eval 和 apply 之 间 的 相互 作用 。 


eval 
eval 的 参数 是 一 个 表达 式 和 一 个 环境 。eval 对 表达 式 进 行 分 类 ， 依 此 引导 目 己 的 求 值 
工作 。eval 的 构造 就 像 是 一 个 针对 被 求 值 表 达 式 的 语法 类 型 的 分 情况 分 析 。 为 了 保持 这 一 过 
程 的 通用 性 ， 我 们 将 采用 抽象 的 方式 描述 表达 式 类 型 的 判定 工作 ， 其 中 并 不 为 各 种 表达 式 确 
定 任何 特殊 表示 方式 。 针 对 每 类 表达 式 有 一 个 谓词 完成 相应 的 检测 ， 有 一 父 抽 象 方法 去 选择 
表达 式 里 的 各 个 部 分 。 这 种 抽象 语法 使 我 们 很 容易 想到 ， 可 以 怎样 改变 这 个 求 值 器 所 处 理 的 
语言 的 语法 形式 。 为 此 只 需 采 用 另 一 组 不 同 的 语法 过 程 。 
基本 表达 式 : 
。 对 于 自 求 值 表 达 式 ， 例 如 各 种 数 ，eval 直接 返回 这 个 表达 式 本 身 。 
. eval 必须 在 环境 中 查找 变量 ， 找 出 它们 的 值 。 
特殊 形式 : 
。 对 于 加 引号 的 表达 式 ，evVval 返回 被 引 的 表达 式 。 
。 对 于 变量 的 赋值 (或 者 定义 ) ， 就 需要 递归 地 调用 eval 去 计算 出 需要 关联 于 这 个 变量 的 
新 值 。 而 后 需要 修改 环境 ， 以 改变 (或 者 建立 ) 相应 变量 的 约束 。 
。 一 个 if£ 表 达 式 要 求 对 其 中 各 部 分 的 特殊 处 理 方式 ， 在 谓词 为 真 时 求 值 其 推论 部 分 ， 否 
则 就 求 值 其 替代 部 分 。 
一 个 lambda 必须 被 转换 成 一 个 可 以 应 用 的 过 程 ， 方 式 就 是 将 这 个 lambda 表 达 式 所 撒 
述 的 参数 表 和 体 与 相应 的 求 值 环境 包装 起 来 。 | 
。 一 个 begin 表 达 式 要 求 求 值 其 中 的 一 系列 表达 式 ， 按 照 它们 出 现 的 顺序 。 
- 分 情况 分 析 (cond) 将 被 变换 为 一 组 峰 套 的 1f RAN, ， 而 后 求 值 。 


HAR: 

* 对 于 一 个 过 程 应 用 ，eval 必 须 递 归 地 求 值 组 合式 的 运算 符 部 分 和 运算 对 象 部 分 。 而 后 
将 这 样 得 到 的 过 程 和 参数 送 给 apply ， 由 它 去 处 理 实际 有 的 过 程 应 用 。 

这 里 是 eval EX: 


(define (eval exp env) 
{cond ((self-evaluating? exp) exp) 
( (variable? exp) (lookup-variable-value exp env) ) 
( (quoted? exp) (text-of-quotation exp) ) 
( (assignment? exp) (eval-assignment exp env) ) 
( (definition? exp) (eval-definition exp env) ) 
((if? exp) (eval-if exp env)) 
((lambda? exp) | 
(make-procedure (lambda-parameters exp) 
(lambda-body exp) 
env) ) 
((begin? exp) 
(eval-sequence (begin-actions exp) env) ) 
( (cond? exp) (eval (cond->if exp) env)) 
( (application? exp) 
(apply (eval (operator exp) env) 
(list-~of-values (operands exp) env) ) ) 
(else 
(error "Unknown expression type -- EVAL" exp)))) 


为 了 清晰 起 见 ， 这 里 将 eval 实 现 为 一 个 采用 cond 的 分 情况 分 析 。 这 样 做 的 缺点 是 我 们 
的 过 程 只 处 理 了 若干 种 不 同类 型 的 表达 式 ， 如 果 要 加 入 新 定义 的 表达 式 类 型 ， 那 么 就 必须 直 
接 去 编辑 eval 的 定义 。 在 大 部 分 的 Lisp 实现 里 ， 针 对 表达 式 类 型 的 分 派 都 汪 用 了 数据 导向 的 
方式 。 这 种 做 法 使 用 户 可 以 更 容易 增加 eval 能 分 辨 的 表达 式 类 型 ， 而 又 不 必修 改 eval 的 定 
义 本 身 (参见 练习 4.3 ) 。 


apply 
apply 有 两 个 参数 ， 一 个 是 过 程 ， 一 个 是 该 过 程 应 该 去 应 用 的 实际 参数 的 表 。apply 将 
过 程 分 为 两 类 。 它 直接 调用 apply-primitive-procedure 去 应 用 基本 过 程 ， 应 用 复合 过 
程 的 方式 是 顺序 地 求 值 组 成 该 过 程 体 的 那些 表达 式 。 在 求 值 复合 过 程 的 体 时 需要 建立 相应 的 
环境 ， 这 个 环境 的 构造 方式 就 是 扩充 该 过 程 所 携带 的 基本 环境 ， 并 加 入 一 个 框架 ， 其 中 将 过 
程 的 各 个 形式 参数 约束 于 过 程 调 用 的 实际 参数 。 下 面 是 apply 的 定义 : 
(define (apply procedure arguments) 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure procedure arguments) ) 
((compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
{(procedure~parameters procedure) 
arguments | 
(procedure-environment procedure) ))) 


(else 


-2 PF ii 


(error 
"Unknown procedure type -- APPLY" procedure) ))) 


过 程 参数 
eval 在 处 理 过 程 应 用 时 用 1ist-of- values 去 生成 实际 参数 表 ， 以 便 完 成 这 一 过 程 应 用 。 
1ist-of~values 以 组 合式 的 运算 对 象 为 参数 ， 求 值 各 个 运算 对 象 ， 返 回 这 些 值 的 表 ” 


(define (list-of-values exps env) 
(if (no-operands? exps) 
() 
(cons (eval (first-operand exps) env) 
(list-of-values (rest-operands exps) env)))). 


条 件 
eval-if 在 给 定 环 境 中 求 值 if 表 达 式 的 谓词 部 分 ， 如 果 得 到 有 的 结果 为 真 ，eval-if 就 
去 求 值 这 个 if 的 推论 部 分 ， 否 则 它 就 求 值 其 替代 部 分 : 
(define (eval-if exp env) 
(if (true? (eval {if-predicate exp) env)) 
(eval (if-consequent exp) env) 
(eval (if-alternative exp) env))) 


从 eval-if 里 对 true? 的 使 用 中 ， 可 以 清楚 地 看 到 在 被 实现 语言 与 实现 所 用 的 语言 之 间 
的 联系 。if-predicate 在 被 实现 的 语言 里 求 值 ， 产 生出 这 一 语言 里 的 一 个 值 。 解 释 器 的 请 
词 true? 将 该 值 翻译 为 可 以 由 实现 所 用 的 语言 里 的 if 检 测 的 值 。 由 此 可 见 ， 在 这 个 元 循环 
求 值 器 中 所 采用 的 真 值 表示 ， 完 全 可 以 与 作为 其 基础 的 Scheme 不 同 ”。 


序列 

eval-sequence 用 在 aPPly 里 ， 用 于 求 值 过 程 体 里 的 表达 式 序 列 。 它 也 用 在 eval 里 ， 
用 于 求 值 begin 表 达 式 里 的 表 达 式 序列 。 这 个 过 程 以 一 个 表达 式 序 列 和 一 个 环境 为 参数 ， 按 
照 序列 里 表达 式 出 现 的 顺序 对 它们 求 值 。 它 返回 最 后 一 个 表达 式 的 值 。 


(define (eval-sequence exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env) ) 
(else (eval (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 


赋值 和 定义 
下 面 过 程 处 理 变 量 赋值 。 它 调用 eval 找 出 需要 赋 的 值 ， 将 变量 和 得 到 的 值 传 给 过 程 
set-variable-value!, 将 有 关 的 值 安里 到 指定 环境 里 : 


{define (eval-assignment exp env) 
(set-variable-value! (assignment-variable exp) 
(eval (assignment-value exp) env) 
env) 
‘Ok ) 


20 我 们 也 可 以 使 用 map (并 假定 operands 返 回 的 是 表 ) 简化 eval 里 的 apPPlication? Ms, 而 不 是 自己 另 
写 一 个 list-of-values 过 程 。 这 里 选择 不 用 map 是 为 了 强调 一 个 事实 : 我 们 完全 可 以 不 用 任何 高 阶 过 程 
实现 这 个 求 值 器 (这样 就 可 以 用 不 支持 高 阶 过 程 的 语言 来 写 求 值 器 )， 即 使 被 实现 的 语言 里 包含 高 阶 过 程 。 

210 在 目前 情况 下 ， 被 实现 的 语言 与 实现 所 用 的 语言 一 样 。 在 这 里 仔细 考究 true? 的 意义 ， 得 到 的 是 对 情况 的 更 
深入 的 认识 ， 并 不 会 破坏 事情 的 本 质 。 
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变量 定义 也 用 类 似 方 式 处 理 ”: 
(define (eval-definition exp env) 
(define-variable! (definition-variable exp) 
(eval (definition-value exp) env) 
‘Ok ) | 
这 里 的 选择 是 返回 一 个 符号 ok ， 作 为 赋值 和 定义 的 返回 值 一 。 
练习 4.1 注意， 我 们 没 办 法 说 循环 求 值 器 是 从 左 到 右 还 是 从 右 到 左 求 值 各 个 运算 对 象 ， 
因为 这 一 求 值 顺序 是 从 作为 其 基础 的 Lisp 那 里 继承 来 的 ， 如 果 在 iist-of-values 里 的 cons 
从 左 到 右 求 值 ， 那 么 list-of-values 也 将 从 左 到 右 求 值 ， 如 果 cons 的 参数 从 右 到 左 求 值 ， 
那么 list-of-values 也 将 从 右 到 左 求 值 。 
请 写 出 一 个 list~of-values 版 本 ,使 它 总 是 从 左 到 右 求 值 其 运算 对 象 ， 无论 作 为 其 基 
础 的 Lisp 采 用 什么 求 值 顺序 。 为 外 写 出 一 个 总 是 从 右 到 左 求 值 的 llst-of -values 版 本 。 


4.1.2 表达 式 的 表示 


这 个 求 值 器 很 像 2.3.2 布 讨论 的 符号 微分 程序 。 这 两 个 程序 完成 的 都 是 一 些 对 符号 表达 式 
的 操作 。 在 两 个 程序 里 ， 对 于 一 个 复合 表达 式 的 操作 结果 ， 也 都 是 由 表达 式 的 片段 递归 地 确 
定 的 ， 结 果 的 组 合 也 是 按照 一 种 由 表达 式 的 类 型 确定 的 方式 。 在 这 两 个 程序 里 ， 我 们 都 采用 
了 数据 抽象 技术 ， 借 以 松 开 一 般 性 的 操作 规则 与 表达 式 特 定 表示 的 细节 方式 之 间 的 联系 。 在 
微分 程序 里 ， 这 意味 着 同一 个 微分 过 程 可 以 处 理 前 缀 形式 的 、 中 缀 形式 的 ， 或 者 其 他 形式 的 
代数 表达 式 。 对 于 求 值 器 ， 这 意味 着 ， 被 求 值 语言 的 语法 形式 可 以 仅仅 由 一 些 对 表达 陈 进 行 
分 类 和 提取 表达 式 片 段 的 过 程 确 定 。 
这 里 是 我 们 的 语言 的 语法 规范 : 
* 这 里 的 自 求 值 表达 式 只 有 数 和 字符 串 : 
(define (self-evaluating? exp) 
(cond ((number? exp) true) 
( (string? exp) true) 
(else false) )) 
。 变量 用 符号 表示 : 
(define (variable? exp) (symbol? exp)) 
© 引 有 旦 表达 式 的 形式 是 (quote <text-of-quotation>) 全: 


(define (quoted? exp) 
(tagged-list? exp ‘quote) ) 
(define (text-of-quotation exp) (cadr exp) ) 


n define 的 实现 中 忽略 了 处 理 内 部 定义 时 的 一 个 微妙 问题 ， 虽 然 这 里 的 做 法 对 于 大 部 分 情况 都 能 工作 。 我 们 


将 在 4.1.6 节 看 到 如 何 解决 有 关 问题 。 
252 正如 在 前 面 介 绍 define 和 set! 时 所 说 的 ， 在 Scheme 里 这 些 值 依赖 于 具体 的 实现 一 也 就 是 说 ， 实 现 者 可 以 
选择 返回 任意 的 值 。 | 
23 正如 2.3.1 节 所 说 , 求 值 器 看 到 的 引号 表达 式 是 以 9uote 开 头 的 表 ， 即使 这 种 表达 式 在 输入 时 用 的 是 一 个 引号 。 
举例 来 说 ， 求 值 器 看 到 的 表达 式 'a 实 际 上 是 (quote a)， 见 练习 2.55 。 


quoted? 借 助 于 过 程 tagged-1list? 定 义 ， 它 确定 一 个 表 的 开始 是 不 是 某 个 给 定 符 号 : 
(define (tagged-list? exp tag) 
(if (pair? exp) 
(eq? (car exp) tag) 
false) ) 
* 贼 值 的 形式 是 (set! <var><value>) : 
(define (assignment? exp) 
(tagged-list? exp ‘set!)) 


(define (assignment-variable exp) (cadr exp)) 


(define (assignment-value exp) (caddr exp)) 


* 定义 的 形式 古 : 


(define <var> <value>) 


或 者 


(define (<var><parameter,> ... <parameter,>) 

<body>) 
后 一 形式 (标准 的 过 程 定 义 ) RET MBAR PBR: 
{define <var> 


(lambda (<parameter,> ... <parameter,>) 
<body>) ) 


相应 的 语法 过 程 古 
(define (definition? exp) 


(tagged-list? exp define) ) 


(define (definition-variable exp) 
(if (symbol? (cadr exp) ) 
(cadr exp) 
{caadr exp) )) 


(define (definition-value exp) 
(if (symbol? (cadr exp) ) 
(caddr exp) 
(make-lambda (cdadr exp) ; formal parameters 
(cddr exp)))) ; body 


。lambda 表 达 式 是 由 符号 1ambda 开 始 的 表 : 

(define (lambda? exp) (tagged-list? exp lambda)) 

(define (lambda-parameters exp) (cadr exp)) 

(define (lambda-body exp) (cddr exp)) 

我 们 还 为 lambda 表 达 式 提供 了 一 个 构造 函数 ， 它 用 在 上 面 的 definition-value 里 : 


(define (make-lambda parameters body) 
(cons "lambda (cons parameters body))) 


。 条 件 式 由 if 开始 ， 有 一 个 谓词 部 分 、 一 个 推论 部 分 和 一 个 〈 可 缺 的 ) SMB. MR 
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(define (if? exp) (tagged-list? exp ‘if)) 
(define (if-predicate exp) (cadr exp)) 
(define (if-consequent exp) (caddr exp) ) 


(define (i1f-alternative exp) 
{if (not (null? (cdddr exp))) 
(cadddr exp) 
‘false)) 


我 们 也 为 if 表 达 式 提供 了 一 个 构造 函数 ， 它 在 cond->if 里 使 用 ， 用 于 将 cond 表 达 式 变 
换 为 1f 表 达 式 ， | 
(define (make-if predicate consequent alternative) 
{list ’if predicate consequent alternative) ) 


“begin 包 装 起 一 个 表达 式 序 列 ， 在 这 里 提供 了 对 begin 表 达 式 的 一 组 语法 操作 ， 以 便 从 
begin 表 达 式 中 提取 出 实际 表达 式 序 列 ， 还 有 选择 函数 返回 序列 中 的 第 一 个 表达 式 和 其 
RREN o 

(define (begin? exp) (tagged~list? exp “begin)) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 

{define (rest-exps seq) (cdr seq)) 

我 们 还 包括 了 一 个 构造 函数 sequence->exp (用 在 cond->if 里 )， 它 把 一 个 序列 变换 

为 一 个 表达 式 ， 如 果 需 要 的 话 就 加 上 begin 作 为 开头 : | 

(define (sequence->exp seq) 

(cond ((null? seq) seq) | 
((last-exp? seq) (first-exp seq) ) 
(else (make-begin seq) ))) 


(define (make-begin seq) (cons ‘begin seq)) 


过 程 应 用 就 是 不 属于 上 述 各 种 表达 式 类 型 的 任意 复合 表达 式 。 这 种 表达 式 的 car 是 运算 
FF ， 其 cdr 是 运算 对 象 的 表 : 


(define (application? exp) (pair? exp)) 

(define (operator exp) (car exp)) 

(define (operands exp) (cdr exp)) 

(define (no-operands? ops) (null? ops) ) 

(define (first-operand ops) (car Ops) ) 

(define (rest-operands ops) (cdr ops) ) 

26 在 谓词 为 假 时 而 且 没有 替代 部 分 时 ， 让 表达 式 的 值 在 Scheme 里 没有 规定 。 我 们 这 里 的 选择 是 让 它 取 值 假 。 
这 里 将 通过 在 全 局 环境 里 提供 约束 的 方式 支持 对 表达 式 里 变量 true 和 false 的 求 值 ， 见 4.1.4 池 。 


215 这 些 选 择 函 数 都 直接 对 表达 式 的 表 定 义 一 对 应 的 是 运算 对 象 的 表 一 一 而 设 有 再 做 为 一 种 数据 抽象 。 引 进 它 
们 采用 了 类 似 基本 表 操 作 的 名 字 ， 以 便 使 人 更 容易 理 钥 .4 节 里 的 显 式 控制 求 值 普 。 


8 E E 


派生 表达 式 

在 我 们 语言 里 ， 一 些 特 殊 形 式 可 以 基于 其 他 特殊 形式 的 表达 式 定 义 出 来 ， 而 不 必 直 接 去 
实现 。 一 个 这 样 的 例子 是 cond ， 它 可 以 实现 为 一 些 嵌 套 的 让 表达 式 。 举 例 来 说 ， 我 们 可 以 将 
对 于 下 述 表 达 式 的 求 值 问 题 : | 

(cond ((> x 0) x) 

((= x 0) (display ‘zero) 0) 
(else (- x))) 
归 约 为 对 下 面 涉 及 if 和 begin 的 表达 式 的 求 值 问题 : 
(if (> x 0) 
(if (= x 0) 
(begin (display ‘zero) 
0) 
(~ X))) | 
采用 这 种 方式 实现 对 cond 的 求 值 能 简化 求 值 器 ， 因 为 这 样 就 减少 了 需要 特别 描述 求 值 过 程 的 
特殊 形式 的 数目 。 

我 们 在 这 里 包括 了 提取 cond 表 达 式 中 各 个 部 分 的 语法 过 程 ， 以 及 过 程 Ccond->if ， 它 能 
将 cond 表 达 式 变换 为 if 表达 式 。 一 个 分 情况 分 析 以 cond 开 始 ， 并 包含 一 个 谓词 - 动作 子 名 
的 表 。 如 果 一 个 子 句 的 符号 是 else ， 那 么 就 是 一 个 else 子 句 “。 

(define (cond? exp) (tagged-list? exp ‘cond) ) 

(define (cond-clauses exp) (cdr exp) ) 


(define (cond-else-clause? clause) 
(eq? (cond-predicate clause) ‘else) ) 


(define (cond-predicate clause) (car clause) ) 
(define (cond-actions clause) (cdr clause) ) 


(define (cond->if exp) 
(expand-clauses (cond-clauses exp) )) 


(define (expand-clauses clauses) 
(if (null? clauses) 
"false : clause else no 
{let ((first (car clauses) ) 
(rest (cdr clauses) )) 
(if (cond-else-clause? first) 
(if (null? rest) 
(sequence->exp (cond-actions first)) 
(error "ELSE clause isn’t last -- COND->IF" 
clauses) ) 
{make-if (cond-predicate first) 
(sequence->exp (cond-actions first)) 
{expand-clauses rest)))}))) 


216 当 所 有 的 谓词 都 为 假 而 且 又 没有 else 子 句 时 ， 在 Scheme 里 没有 规定 cond 表 达 式 的 值 。 我 们 这 里 的 选择 是 让 
这 时 的 值 为 假 。 
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我 们 这 样 选 出 来 的 ， 末 用 语法 变换 的 方式 实现 的 表达 式 (如 cond 表 达 式 ) 称 为 派生 表达 
式 。let 表 达 式 也 被 作为 派生 表达 式 ( 见 练 习 4.6) 7", 
练习 4.2 Louis Reasoner 计 划 重 新 安排 eval 里 cond 子 句 的 位 置 ， 使 得 有 关 过 程 应 用 的 子 
名 出 现在 有 关 赋 值 的 子 句 之 前 。 他 的 论断 是 ， 这 样 做 将 会 提高 求 值 器 的 效率 : 因为 程序 里 通 
常 包含 的 函数 应 用 比 赋值 和 定义 等 等 更 多 一 些 ， 而 经 他 的 修改 之 后 ，eval 为 确定 一 个 表达 式 
的 类 型 所 需 检 查 的 子 句 将 会 比 原来 的 eval 更 少 些 。 : 
a) Louls 的 计划 有 什么 错 ? (提示 : Louls 的 求 值 器 将 如 何 处 理 表达 式 (define x 3) ? ) 
b) Louis 因 为 其 计划 无 法 工作 而 感到 非常 诅 表 。 他 和 希望， 无 论 要 走 多 远 也 要 让 自己 的 求 值 
器 在 检查 大 部 分 表达 式 之 前 就 识别 出 过 程 应 用 。 请 设法 帮助 他 ， 修 改 被 求 值 语 言 的 语法 ， 使 
得 每 个 过 程 应 用 都 以 call 开始 。 例 如 现在 我 们 不 是 直接 写 (factorial 3)， 而 是 需要 写 
(call factorial 3) , 不 能 直接 写 (+1 2), 而 将 必须 写 (call+1 2), 
练习 4.3 ”请 重 写 eval ， 使 之 能 以 一 种 数据 导向 的 方式 完成 分 派 。 请 将 这 样 做 出 的 程序 与 
练习 2.73 的 数据 导向 的 求 导 程序 做 一 个 比较 。( 你 可 以 用 一 个 复合 表达 式 的 car 作为 表达 式 的 
类 型 ， 采 用 像 这 一 节 中 所 实现 的 语法 形式 。) 
练习 4.4 回忆 第 1 章 解 释 的 特殊 形式 and 和 or 的 定义 : | 
“and :其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 假 ， 那 么 就 返回 假 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 真 ， 那 么 就 返回 最 后 一 个 表达 式 
的 值 。 如 果 没 有 可 求 值 的 表达 式 就 返回 真 。 
cor, 其 表达 式 从 左 到 右 求 值 。 如 果菜 个 表达 式 求 出 的 值 是 真 ， 那 么 就 返回 真 值 ， 剩 下 
的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 假 ， 或 者 根本 就 没有 可 求 值 的 表 
达 式 ， 那 么 返 ERÉ. | | 
请 将 and 和 or 作为 新 的 特殊 形式 安装 到 求 值 器 里 ， 定 义 适当 的 语法 过 程 和 求 值 过 程 
eval-and 和 eval-or。 换 一 种 方式 ， 请 说 明 如 何 将 and 和 or 实现 为 派生 表达 式 。 
练习 4.5 Schemée 还 允许 另 一 种 形式 的 cond 子 名 ，(<itest> => <recipient> )。 如 末 <test> 
求 出 的 值 是 真 ， 那 么 就 对 <recipient> 求 值 。 这 样 求 出 的 值 必须 是 一 个 单个 参数 的 过 程 ， 将 这 
一 过 程 应 用 于 <test> 的 值 ， 并 将 其 返回 值 作为 这 个 cond 表 达 式 的 值 。 例 如 : 
(cond ((assoc ’b '((a 1) (b 2))) => cadr) 
(else false) ) 
返回 值 2。 请 修改 对 cond 的 处 理 ， 使 之 能 支持 这 一 语法 扩充 。 
练习 4.6 ”let 表达 式 也 是 一 种 派生 表达 式 ， 因 为 : 


(let ((<Vari> <exp\>) 。。。 (<var,> <exp,>) ) 
<body>) 
等 价 于 
( (lambda (<var,> 。。。 <var,>) 
<body>) 


217 实际 的 Lisp 系统 提供 了 一 种 机 制 ， 使 用 户 可 以 添加 新 的 派生 表达 式 并 将 它们 的 实现 描述 为 语法 变换 ， 而 又 不 
必修 改 求 值 器 。 这 种 用 户 定义 变换 称 为 安 。 虽 然 很 容易 为 定义 宏 增 加 一 种 基本 机 制 ， 但 是 这 样 做 出 的 语言 却 
会 产生 一 种 微妙 的 名 字 溃 突 问题 。 关 于 如 何 提 供 宏 定 义 而 又 不 造成 这 些 麻 烦 ， 有 许多 人 进行 过 研究 。 请 看 ， 
例如 Kohlbecker 1986, Clinger and Rees 1991 [J Hanson 1991, 


<exp\> 


<expn> ) 


请 实现 语法 变换 过 程 let->combination， 它 能 将 对 let 表 达 式 的 求 值 归 约 到 对 于 上 面 类 型 
的 组 合式 的 求 值 。 请 给 eval 增 加 适当 的 子 句 以 处 理 let 表达 式 .。 
练习 4.7 let* 与 et 类似, 但 其 中 对 let 变 量 的 约束 是 从 左 到 右 顺 序 进行 的 ， 每 个 约束 
都 在 同一 个 环境 中 完成 ， 已 经 做 了 的 约束 都 是 可 见 的 。 例 如 : 
(let* ((x 3) 
(y (+ x 2)) 
(z (+ x y 5))) 
(* x 2)) 
39, AA, Ht A—tlet* HA KA BSH -HREMletRAK, HASU-* 
tHlet*->nested-lets ZEME., MRRINGAA FletWRA (44.6), Ha 
望 扩 充 求 值 器 去 处 理 1et* ， 请 给 eval 加 入 一 个 其 中 的 动作 如 下 的 子 句 


(eval (let*->nested-lets exp) env) 


就 够 了 吗 ? 或 者 说 我 们 必须 显 式 地 以 非 派生 方式 来 扩充 对 let* 的 处 理 ? 

练习 4.8 “命名 let” 是 let 的 一 种 变形 ， 具 有 下 面 的 形式 : 

(let <var> <bindings> <body>) 
其 中 的 <bindings> 和 <body> 都 与 常规 let 完 全 一 样 ， 只 是 在 <body> 里 的 <var> 应 该 约束 到 一 个 
过 程 ， 该 过 程 的 体 就 是 <body>， 而 其 参数 就 是 <bindings> 里 的 变量 。 这 样 ， 我 们 就 可 以 通过 
调用 名 字 为 <var> 的 过 程 的 方式 ， 反 复 执 行 这 个 <body> 。 举 例 说 ， 和 迭代 型 的 斐 波 纳 契 过 程 (OL 
1.2.2 节 ) 可 以 用 命名 let 重 新 写 为 : 

(define (fib n) 

(let fib-iter ({a 1) 
(b 0) 
(count n)) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (- count 1))))) 

请 修改 练习 4.6 里 的 let->combination,， 使 之 能 够 支持 命 alet, 

练习 4.9 许多 语言 都 支持 多 种 迭代 结构 ,例如 do 、for 、while 和 until。 在 Scheme 里 ， 
迭代 计算 过 程 可 以 通过 常规 过 程 调用 的 方式 表述 ， 因 此 ， 特 殊 的 迭代 结构 并 不 会 在 计算 能 力 
方面 带 来 任何 真正 的 收获 。 但 在 另 一 方面 ， 这 种 结构 也 确实 能 带 来 很 多 方便 。 请 设计 出 才干 
种 迭代 结构 ， 给 出 使 用 它们 的 例子 ， 并 说 明 怎 样 将 它们 实现 为 一 些 派生 表达 式 .。 

练习 4.10 ”通过 使 用 数据 抽象 技术 ,我们 就 能 够 写 出 独立 于 被 求 值 语言 的 特定 语法 形式 
的 eval 过 程 。 为 阐释 这 一 点 ， 请 为 Scheme 设 计 和 实现 一 种 新 的 语法 形式 ， 请 仅仅 修改 本 市 的 
有 关 过 程 ， 而 不 修改 eval 或 者 app1ly。 


4.1.3 求 值 器 数据 结构 
除了 需要 定义 表达 式 的 外 部 语法 形式 之 外 ， 求 值 器 的 实现 还 必须 定义 好 在 其 内 部 实际 操 
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作 的 数据 结构 ， 作 为 程序 执行 的 一 部 分 。 例 如 ， 定 义 好 过 程 和 环境 的 表示 形式 ， 真 和 假 的 表 
示 方 式 等 等 。 

谓词 检测 

为 了 实现 条 件 表达 式 ， 我 们 把 除了 false 对 象 之 外 的 所 有 东西 都 接受 为 真 ， 


(define (true? x) 
(not (eq? x false))) 


{define (false? x) 
(eq? x false) ) 


为 能 处 理 基 本 过 程 ， 我 们 假定 已 经 有 了 下 述 过 程 ; 
¢ (apply-primitive-procedure <proc> <args>) 
它 能 够 将 给 定 的 过 程 应 用 于 表 <args> 里 的 参数 值 ， 并 返回 这 一 应 用 的 结果 。 
* (primitive-procedure? <proc>) 
检查 <proc> 是 否 为 一 个 基本 过 程 。 
有 关 如 何 处 理 基 本 过 程 的 机 制 将 在 4.1.4 市 里 进一步 讨论 。 
复合 过 程 是 由 形式 参数 、 过 程 体 和 环境 ， 通 过 构造 函数 make-procedure 做 出 来 的 : 


(define (make-procedure parameters body env) 


{list ‘procedure parameters body env)) 


(define (compound-procedure? p) 
(tagged-list? p procedure) ) 


(define (procedure-parameters p) (cadr p)) 
(define (procedure-body p) (caddr p)) 
(define (procedure-environment p) (cadddr p)) 
对 环境 的 操作 
求 值 器 需要 一 些 对 环境 的 操作 。 正 如 在 3.2 节 里 所 解释 的 ， 一 个 环境 就 是 一 个 框架 的 序列 ， 
每 个 框架 都 是 一 个 约束 的 表格 ， 其 中 的 约束 关联 起 一 些 变量 和 与 之 对 应 的 值 。 我 们 提供 下 面 
这 一 组 针对 环境 的 操作 : 
* (lookup-variable-value <var> <env>) 
返回 符号 <var> 在 环境 <env> 里 的 约束 值 ， 如 果 这 一 变量 没有 约束 就 发 出 一 个 错误 信号 。 
* (extend-environment <variables> <values> <base-env>) 
返回 一 个 新 环境 ， 这 个 环境 中 包含 了 一 个 新 的 框架 ， 其 中 的 所 有 位 于 表 <variables> 里 的 
符号 约束 到 表 <values> 里 对 应 的 元 素 ， 而 其 外 围 环境 是 环境 <base-env>。 
e (define-variable! <var> <value> <env>) | 
在 环境 <envy> 的 第 一 个 框架 里 加 入 一 个 新 约束 ， 它 关联 起 变量 <yar> 和 值 <y&lwe>。 
. (set-variable-value! <var> <value> <env>) 
修改 变量 <var> 在 环境 <env> 里 的 约束 ， 使 得 该 变量 现在 约束 到 值 <value>。 如 果 这 一 变 
量 没有 约束 就 发 出 一 个 错误 信号 。 
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为 了 实现 这 些 操作 ， 我 们 将 环境 表示 为 一 个 框架 的 表 ， 一 个 环境 的 外 围 环 境 就 是 这 个 表 
的 cdr ， 空 环境 则 直接 用 空 表 表示 。 


(define (enclosing-environment env) (cdr env)) 
{define (first-frame env) (car env) ) 


(define the-empty-environment ’()) 


在 环境 里 的 每 个 框架 都 是 一 对 表 形 成 的 序 对 : 一 个 是 这 一 框架 中 的 所 有 变量 的 表 ， 还 有 就 是 
它们 的 约束 值 的 表 。 
(define (make-frame variables values) 
(cons variables values) ) 


(define (frame-variables frame) (car frame) ) 
(define (frame-values frame) (cdr frame) ) 


(define (add-binding-to-frame! var val frame) 
(set-car! frame (cons var (car frame))) 
(set-cdr! frame (cons val (cdr frame) ))) 


为 了 能 够 用 一 个 (关联 了 一 些 变量 和 值 的 ) 新 框架 去 扩充 一 个 环境 ， 我 们 让 框架 由 一 个 
变量 的 表 和 一 个 值 的 表 组 成 ， 并 将 它 结 合 到 环境 上 。 如 果 变 量 的 个 数 与 值 的 个 数 不 匹配 ， 我 
们 就 发 出 一 个 错误 信号 。 l 

(define (extend-environment vars vals base-env) 

(if (= (length vars) (length vals) ) 
(cons (make-frame vars vals) base-env) 
(if (< (length vars) (length vals)) 
(error "Too many arguments supplied" vars vals) 
(error "Too few arguments supplied" vars vals)))) 


要 在 一 个 环境 中 查找 一 个 变量 ， 就 需要 扫描 第 一 个 框架 里 的 变量 表 。 如 果 在 这 里 找到 了 
所 需 的 变量 ， 那 么 就 返回 与 之 对 应 的 值 表 里 的 对 应 元 素 。 如 果 我 们 不 能 在 当前 框架 里 找到 这 
个 变量 ， 那 么 就 到 其 外 围 环境 里 去 查找 ， 并 如 此 继续 下 去 。 如 果 遇 到 了 空 环 境 ， 那 么 就 发 出 
一 个 “未 约束 变量 ”的 错误 信号 。 

(define (lookup-variable-value var env) 

(define (env-loop env) 
(define (scan vars vals) 
(cond (({null? vars) 
| (env-loop (enclosing-environment env) ) ) 
((eq? var (car vars) ) 
(car vals) ) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment ) 
{error "Unbound variable" var) 
(let ((frame (first-frame env) }) 


(scan (frame-variables frame) 
(frame-values frame) )))) 


218 在 下 面 的 代码 里 并 没有 把 框架 做 成 一 种 数据 抽象 : set-variable-value! f7define-variable! BE 
直接 用 set-car! 修 改 框架 中 的 值 。 这 样 定义 框架 过 程 ， 是 为 了 使 这 些 环境 操作 函数 更 容易 阅读 。 
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(env-loop env)) 


EBBZART PRES ENAERE THEM, RERA, RRECE 
lookup-variable-value 里 一 样 。 在 找到 这 一 变量 后 修改 它 的 值 。 


(define (set-variable-value! var val env) 
(define (env-loop env) 
(define (scan vars vals) 
(cond ((null? vars) 
(env-loop (enclosing-environment env) ) ) 
((eq? var (car vars) ) 
(set-car! vais val)) | 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment) 
(error “Unbound variable -- SET!" var) 
(let ((frame (first-frame env) )) 
(scan (frame-variables frame) 
(frame-values frame) )))) 
(env-loop env) ) 


为 了 定义 一 个 变量 ， 我 们 需要 在 第 一 个 框架 里 查找 该 变量 的 约束 ， 如 果 找 到 就 修改 其 约 
束 〔〈 就 像 是 在 set-variable-valuel 里 一 样 )。 如 果 不 存在 这 种 约束 ， 那 么 就 在 第 一 个 杠 
架 中 加 入 这 个 约束 。 


(define (define-variable! var val env) 
{let ((frame (first-frame env) )) 
(define (scan vars vals) 
(cond ((null? vars) 
(add-binding~-to-frame! var val frame) ) 
( (eq? var (car vars)} 
(set-car! vals val)) 
(else (scan (cdr vars) (cdr vals))))) 
(scan (frame-variables frame) 
(frame-values frame) ))) 


这 里 所 描述 的 方法 ， 只 不 过 是 表示 环境 的 许多 可 能 方法 之 一 。 由 于 前 面 采 用 了 数据 抽象 
技术 ， 将 求 值 器 的 其 他 部 分 与 这 些 表示 细节 隔离 开 ， 如 果 需 要 的 话 ， 我 们 也 完全 可 以 修改 环 
境 的 表示 ( 见 练习 4.11 )。 在 产品 质量 的 Lisp 系统 里 ， 求 值 器 中 环境 操作 的 速度 一 一 特别 龙 查 
找 变量 的 速度 一 -对 系统 的 性 能 有 着 重要 的 影响 。 这 里 所 描述 的 表示 方式 虽然 在 概念 上 非常 
简单 ， 但 其 工作 效率 却 很 低 ， 通 常 不 会 被 用 在 产品 系统 里 ”。 

练习 4.11 ”我 们 完全 可 以 不 把 框架 表示 为 表 的 序 对 ,而 是 表示 为 约束 的 表 ， 其 中 的 每 个 
约束 是 一 个 名 字 一 值 序 对 。 请 重 写 有 关 的 环境 过 程 ， 采 用 这 种 新 的 表示 方式 。 | 

练习 4.12 wRset-variable-value!, define-variable! fflookup- 
variable-value 可 以 基于 更 抽象 的 遍历 环境 结构 的 过 程 描 述 。 请 定义 有 关 的 抽象 ， 使 之 能 
够 抓 住 其 中 的 公共 模式 ， 而 后 基于 这 些 抽 象 重新 定义 上 述 的 三 个 过 程 。 


29 这 种 表示 (包括 练习 4.11 提 出 的 变形 ) 的 缺点 是 ， 求 值 器 为 了 找到 一 个 给 定 变量 的 约束 ， 可 能 需要 搜索 许多 
个 框架 。 这 样 一 种 方式 称 为 深 约束 。 避 免 这 一 低 效 性 的 方法 是 采用 一 种 称 为 语法 作用 域 的 策略 ，5.3.6 市 将 讨 
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练习 4.13 ” Scheme 允许 我 们 通过 define 为 变量 创建 新 的 约束 ， 但 却 没有 提供 消除 约束 的 
方式 。 请 为 求 值 器 实现 一 个 特殊 形式 make-unbound! ， 它 能 从 make-unbounal 表达 式 求 
值 的 哪个 环境 中 删除 给 定 符号 的 约束 。 这 一 问题 并 没有 完全 刻画 清楚 。 例 如 ， 我 们 应 该 只 删 
除 环境 中 第 一 个 框架 里 的 约束 吗 ? 请 完成 有 关 的 规范 ， 并 说 明 你 所 做 选择 的 合理 性 。 


4.1.4 作为 程序 运行 这 个 求 值 器 


有 了 一 个 求 值 器 ， 我 们 手头 上 就 有 了 一 个 有 关 Lisp 表 达 式 如 何 求 值 的 描述 〈 也 是 用 LisP 拖 
述 的 ) 。 将 求 值 器 描述 为 程序 的 一 个 优点 是 我 们 可 以 运行 这 个 程序 ， 这 样 就 给 了 我 们 一 个 能 够 
在 Lisp 里 运行 的 ， 有 关 Lisp 本 身 如何 完成 表达 式 求 值 的 工作 模型 。 这 一 模型 可 以 作为 一 个 工作 
框架 ， 使 人 能 够 去 试验 各 种 求 值 规则 。 这 也 是 我 们 在 本 章 后 面部 分 将 要 去 做 的 事情 。 | 

我 们 的 求 值 器 程序 最 终 将 把 表达 式 归 约 到 基本 过 程 的 应 有 用。 因此， 为 了 能 够 运行 这 一 求 
值 器 ,现在 需要 做 的 全 部 事情 就 是 创建 一 种 机 制 ， 通 过 它 能 够 去 调用 基础 Lisp 系 统 的 功能 ， 
去 模拟 那些 基本 过 程 的 应 用 。 

每 个 基本 过 程 名 必须 有 一 个 约束 ， 以 便当 eval 求 值 一 个 应 用 基本 过 程 的 运算 符 时 ， 可 以 
找到 相应 的 对 象 ， 并 将 这 个 对 象 传 给 apPPly 。 为 此 我 们 必须 创建 起 一 个 初始 环境 ， 在 其 中 建 
立 起 基本 过 程 的 名 字 与 一 个 唯一 对 象 的 关联 ， 在 求 值 表达 式 的 过 程 中 可 能 遇 到 这 些 名 字 。 这 
一 全 局 环境 里 还 要 包含 符号 true 和 false 的 约束 ， 这 就 使 它们 也 可 以 作为 变量 用 在 被 求 值 的 
表达 式 里 。 

(define (setup-environment) 

{let ((initial-env 
(extend-environment (primitive-procedure-names ) 
(primitive-procedure-objects) 
the-empty-environment) ) ) 
(define-variable! ‘true true initial-env) 


{define-variable! ’false false initial-env) 
initial-env) ) 


{define the-global-environment (setup-environment) ) 

基本 过 程 对 象 的 具体 表示 形式 并 不 重要 ， 只 要 apply 能 识别 它们 ， 并 能 通过 过 程 
primitive-procedure? 和 apply-primitive-procedure 去 应 用 它们 。 我 们 所 选择 的 
方式 ， 是 将 基本 过 程 都 表示 为 以 符号 primitive 开 头 的 表 ， 在 其 中 包含 着 基础 Lisp 系 统 里 实 
现 这 一 基本 过 程 的 那个 过 程 。 


(define (primitive-procedure? proc) 
{tagged-list? proc primitive)) 


(define (primitive-implementation proc) (cadr proc)) 
setup-environment 将 从 一 个 表 里 取 得 基本 过 程 的 名 字 和 相应 的 实现 过 程 ”: 


(define primitive-procedures 


0 在 基础 Lisp 里 定义 的 所 有 过 程 ， 都 可 以 用 作 这 个 元 循环 求 值 器 的 基本 过 程 。 在 求 值 器 里 设置 的 名 字 不 必 与 它 
们 在 基础 Lisp 系 统 里 的 名 字 相 同 ， 这 里 采用 同样 的 名 字 是 因为 这 个 元 循环 求 值 器 实现 的 就 是 Scheme 本 身 。 举 
例 来 说 ， 我 们 完全 可 以 将 (list first car) 或 者 (list "Square (lambda (x) (* x X))) Mx 


primitive-procedures fA. 
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(list (list ’car car) 
(list ‘cdr cdr) 
(list ‘cons cons) 
(list ‘null? null?) 
< 其 他 基本 过 程 > 
)) 


(define (primitive-procedure-names) 
(map car 
primitive-procedures} ) 


(define (primitive-procedure-objects) | 
(map (lambda (proc) (list ‘primitive (cadr proc))) 
primitive-procedures ) ) 


为 了 应 用 一 个 基本 过 程 ， 我 们 只 \ 需 要 简单 地 利用 基础 Lisp 系统， 将 相应 的 实现 过 程 应 用 
于 实际 参数 ”: 


(define (apply-primitive-procedure proc args) 
(apply-—in-underlying-scheme 
(primitive-implementation proc) args)) 


为 了 能 够 很 方便 地 运行 这 个 元 循环 求 值 器 ， 我 们 提供 了 一 个 驱动 循环 ， 它 模拟 基础 LisP 
系统 里 的 读 入 ~- 求 值 ~ 打 印 循 环 。 这 个 循环 打印 出 一 个 提示 符 ， 读 入 输入 表达 式 ， 在 全 局 环 
境 里 求 值 这 个 表达 式 ， 而 后 打印 出 得 到 的 结果 。 我 们 在 每 个 对 应 结果 前 面 放 一 个 输出 提示 ， 
以 使 这 些 表达 式 的 值 有 有 别 于 其 他 输 出。 


(define input-prompt ";;; M-Eval input:") 
(define output-prompt ";;; M-Eval value:") 


(define (driver-loop) 
(prompt-for-input input-prompt ) 
(let ((input (read))) 
(let ((output (eval input the-global-environment) ) ) 
(announce-output output-prompt ) 
(user-print output) )) 
(driver-loop) ) 


(define (prompt-for-input string) 
(newline) (newline) (display string) (newline) ) 


(define (announce-output string) 
(newline) (display string) (newline) ) 


221 这 里 的 appLY-in-underlying-scheme 也 就 是 我 们 在 前 面 章节 里 已 经 使 用 过 的 app1y 过 程 。 元 循环 求 什 
器 里 的 app1yY 过 程 (141.1%) 模拟 的 就 是 这 一 过 程 的 工作 。 采 用 两 个 不 同 的 而 名 字 又 同 为 apPlLy 的 东西 ， 
将 会 在 元 循环 求 值 器 的 运行 中 产生 一 个 技术 问题 ， 因 为 元 循环 求 值 器 的 apPP1Y 定义 会 掩盖 相应 基本 过 程 的 定 
义 。 绕 过 这 一 问题 的 一 种 方式 是 重 命名 元 循环 求 值 器 里 的 apP1Y ， 以 避免 与 基本 过 程 的 名 字 溃 突 。 我 们 假定 
采用 另 一 方式 ， 在 定义 元 循环 的 app1Y 之前， 已 经 先 用 下 面 方式 保存 了 基础 apPPLY 的 一 个 引用 : 


(define apply-in-underlying-scheme apply) 


这 就 使 我 们 可 以 以 另 一 个 不 同 的 名 字 访 问 aPP1Y 的 原来 版 本 了 。 

22 基本 过 程 reaG 将 一 直 等 待 用 户 的 输入 ， 并 返回 键 人 的 下 一 个 完整 表达 式 。 举 例 来 说 ， 如 果 用 户 的 输入 龙 
(+ 23 x), read 将 返回 一 个 包含 三 个 元 素 的 表 ,， 其 中 包含 符号 +、 数 23 以 及 符号 x。 如 果 用 户 键 人 的 是 x ， 
返回 的 将 是 一 个 包含 两 个 元 素 的 表 ， 其 中 包含 了 符号 Guote 和 符号 x。 


这 里 使 用 了 一 个 特殊 的 打印 过 程 user-print， 以 避免 打印 出 复合 过 程 的 环境 部 分 ， 因 为 它 
可 能 是 一 个 非常 长 的 表 (而 且 还 可 能 包含 循环 )。 


(define (user-print object) 
(if (compound~procedure? object) 
(display (list *compound-procedure 
({procedure-parameters object) 
(procedure-body object) 
’<procedure-env> ) ) 


(display object) )) 
为 了 运行 这 个 求 值 器 ,现在 我 们 需要 着 的 全 部 事情 就 是 初始 化 这 个 全 局 环境 ， 并 局 动 上 
述 的 驱动 循环 。 下 面 是 一 个 交互 过 程 实例 : 
(define the-global-environment (setup-environment) ) 
(driver-loop) 


3: M-Eval input: 
(define (append x y) 
(if (mull? x) 


Y 
(cons (car xX) 


| (append (cdr x) y)))) 
2:3: M-Eval value: 

ok 

2:3 M-Eval input: 

(append ’(a bc) ‘(de f)) 

°3: M-Eval value: 

(abcde f) 


练习 4.14 Eva Lu Ator 和 Louis Reasoner 4 3c Bl Tik BAS TCHR ARIE as o Evatt A [map 
WE, SGT HEA COMRES, CIFER. MmLouishil A Srmap hE 
本 作为 基本 过 程 安装 到 自己 的 元 循环 求 值 器 中 。 当 他 去 试验 这 个 过 程 时 ， 却 出 现 了 严重 的 错 
误 。 请 解释 ， 为 什么 Eva 的 map 能 够 工作 而 Louis 的 map 却 失败 J. 


4.1.5 将 数据 作为 程序 


在 思考 求 值 Lisp 表 达 式 的 Lisp 程 序 时 ， 有 一 个 类 比 可 能 很 有 帮助 。 关 于 程序 意义 的 一 种 操 
作 式 观点 ， 就 是 将 程序 看 成 一 种 抽象 的 (可 能 无 穷 大 的 ) 机 器 的 一 个 描述 。 例 如 ， 考 虑 下 面 
这 个 我 们 已 经 非常 熟悉 的 求 阶乘 程序 : 


(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 
我 们 可 以 将 这 一 程序 看 成 一 部 机 器 的 描述 ， 这 部 机 器 包含 的 部 分 有 减 量 、 乘 和 相等 测试 E 
有 一 个 两 位 置 的 开关 和 另 一 部 阶乘 机 器 (这 样 ， 阶 乘机 器 就 是 无 穷 的 ， 因 为 其 中 包含 看 力 一 
部 阶乘 机 器 )。 图 4-2 是 这 部 阶乘 机 器 的 流程 图 ， 说 明了 有 关 的 部 分 如 何 连接 在 一 起 。 
索 照 类 位 的 方式 ， 我 们 也 可 以 把 求 值 器 看 做 是 一 部 非常 特殊 的 机 器 ， 它 要 求 以 一 部 机 如 
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的 描述 作为 输入 。 给 定 了 一 个 输入 之 后 ， 求 值 器 就 能 够 规划 自己 的 行为 ， 模 拟 被 描述 机 器 的 
执行 过 程 。 举 例 来 说 ， 如 果 我 们 将 factorial 的 定义 馈 入 求 值 器 ， 如 图 4-3 所 示 ， 求 值 器 就 
能 够 计算 阶乘 。 


factorial 


(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1))} n))) 





图 4-3 BET — BRB HEL a8 BR A at 


‘eX UA, RA RAS AAS. CRE RSE A EE TDL ae , 
只 要 它们 已 经 被 描述 为 Lisp 程 序 空 。 这 是 非常 惊人 的 。 请 想 想 如 何 为 电子 电路 设 朴 一 种 类 似 的 
求 值 器 。 这 将 会 是 一 种 电路 ， 它 能 以 另 一 个 电路 (例如 某 个 过 滤器 ) 的 信号 编码 方案 作为 输 


223 有 关 将 机 器 描述 为 Lisp 程 序 的 事情 其 实 并 不 是 最 根本 的 。 如 果 我 们 送 给 自己 的 求 值 器 一 个 LiSpP 程 序 ， 其 行为 
是 另 一 种 语言 (例如 C 语言 ) 的 求 值 器 ， 那 么 这 个 Lisp 求 值 器 就 能 模拟 该 C 求 值 器 ， 进 而 能 够 模拟 任何 用 C 
程序 的 形式 描述 的 机 器 。 同 样 ， 在 C 里 写 出 一 个 Lisp 求 值 器 也 将 产生 出 一 个 能 够 执行 所 有 Lisp 程 序 的 (程序 。 
这 里 的 深刻 思想 是 ， 任 一 求 值 器 都 能 模拟 其 他 的 求 值 器 。 这 样 ， 有 关 “ 原 则 上 说 什么 可 以 计算 ”( 忽略 掉 有 
关 所 需 时 间 和 空间 的 实践 性 问题 ) 的 概念 就 是 与 语言 或 者 计算 机 无 关 的 了 ， 它 反映 的 是 一 个 有 关 可 计算 性 
的 基本 概念 。 这 一 思想 第 一 次 是 由 图 灵 (Alan M. Turing, 1912-1954) 以 如 此 消 晰 的 方式 前 述 的 ， 图 天 
1936 年 的 论文 为 计算 机 科学 理论 英 定 了 基础 。 在 这 篇 论文 里 ， 图 灵 给 出 了 一 种 简单 的 计算 模型 一 现在 被 称 
为 图 灵机 一 并 声称 ， 任 何 “ 有 效 过 程 ” 都 可 以 描述 为 这 种 机 器 的 一 个 程序 (这 一 论断 就 是 著名 的 磋 订 一 图 
灵 论 题 )。 图 灵 而 后 实现 了 一 台 通 用 机 器 ， 即 一 台 图 灵机 ， 其 行为 就 像 是 所 有 图 灵机 程序 的 求 值 颖 。 他 还 用 
这 一 理论 框架 证 明了 ， 存 在 着 能 够 清晰 地 提出 的 问题 ， 而 这 种 问题 是 图 灵机 不 能 计算 的 ( 见 练习 4.13 )。 图 
灵 也 为 实践 性 的 计算 机 科学 做 出 了 黄 基 性 的 贡献 。 例 如 ， 他 发 明了 采用 通用 子 程序 的 结构 化 程序 的 思想 。 
有 关 图 灵 的 生平 参见 Hodges 1983, 


268 FA LBS thg 


入 。 在 给 了 它 这 种 输入 之 后 ， 这 一 电路 求 值 器 就 能 具有 与 这 一 描述 所 对 应 的 过 滤器 同样 的 行 
为 。 这 样 的 一 个 通用 电子 线路 将 会 难以 想象 的 复杂 。 值 得 提出 的 是 ， 程序 的 求 值 器 还 是 一 个 
相当 简单 的 程序 224。 

求 值 器 的 另 一 惊人 方面 ， 在 于 它 就 像 是 在 我 们 的 程序 设计 语言 所 操作 的 数据 对 象 和 这 个 
程序 设计 语言 本 身 之 间 的 一 座 桥梁 。 现 在 设想 这 个 求 值 程序 (用 Lisp 实现 ) 正在 运行 ， 一 个 
用 户 正在 输入 表达 式 并 观察 所 得 到 的 结果 。 从 用 户 的 观点 看 ， 他 所 输入 的 形 如 (* x x) 的 
表达 式 是 程序 设计 语言 里 的 一 个 表达 式 ， 是 求 值 器 将 要 执行 的 东西 。 而 从 求 值 器 的 观点 看 ， 
这 一 表达 式 不 过 是 一 个 表 (在 目前 情况 下 ， 是 三 个 符号 *、x 和 x 的 表 )， 它 所 要 去 做 的 ， 也 就 
是 按照 一 套 良 好 定义 的 规则 去 操作 这 个 表 。 / 

这 种 用 户 程 序 也 就 是 求 值 器 的 数据 的 情况 ， 未 必 会 成 为 产生 混乱 的 源泉 。 事 实 上 ， 有 了 时 
简单 地 忽略 这 种 差异 ， 为 用 户 提供 显 式 地 将 数据 对 象 当 作 Lisp 表 达 式 求 值 的 能 力 ， 人 允许 他 们 
在 程序 里 直接 使 用 eval ， 甚 至 可 能 带 来 许多 方便 。 在 许多 Lisp 方 言 里 ， 都 提供 了 一 个 基本 的 
eval 过 程 , 这 个 过 程 以 一 个 表达 式 和 一 个 环境 作为 参数 , 在 这 一 环境 中 求 出 该 表达 式 的 值 2 。 
PRO: | 


(eval ’(* 5 5) user-initial-environment ) 


和 


(eval (cons ’* (list 5 5)) user-initial-environment) 


都 将 返回 25” 。 

练习 4.15 ”给 定 一 个 单 参数 的 过 程 p 和 一 个 对 象 a， 称 p 对 a“ 终 止 ， 如 林 对 于 表达 式 (P 
a) 的 求 值 能 返回 一 个 值 (与 得 到 一 个 错误 信息 而 终止 或 者 永远 运行 下 去 相对 应 )。 请 证 明 ， 
我 们 不 可 能 写 出 一 个 过 程 halts? ,使 它 能 正确 地 对 任何 过 程 P 和 对 象 & 判 定 是 否 P 对 a 终止 。 
请 采用 如 下 推理 过 程 : 如 果 你 能 有 这 样 一 个 过 程 ， 你 就 可 以 实现 下 述 程序 : 

(define (run-forever) (run-forever) ) 


(define (try p) 
(if (halts? p p) 
(run-forever) 
'halted)) 


现在 考虑 求 值 表达 式 (try try)， 并 说 明 任 何 可 能 的 结果 (无论 终 止 或 者 永远 运行 下 去 ) 
都 将 违背 所 确定 的 halts? 的 行为 ” 。 


24 有 人 觉得 这 样 的 求 值 器 是 违反 直觉 的 ， 因 为 它 由 一 个 相对 简单 的 过 程 实现 ， 却 能 去 模拟 可 能 比 求 值 种 本 身 还 
Be 杂 的 各 种 程序 。 通 用 求 值 器 的 存在 是 计算 的 一 种 深刻 而 美妙 的 性 质 。 弟 归 论 是 数理 逻辑 的 一 个 分 支 ， 这 
一 理论 研究 计算 的 逻辑 限制 。Douglas Hofstadter 的 美妙 著作 «Gödel, Escher, Bach) (1979) 里 探索 了 其 中 
的 一 些 思想 。 

25 警告 ， 这 一 eval 基 本 过 程 并 不 等 同 于 我 们 在 4.1.1 节 实现 的 eval 过 程 。 因 为 它 使 用 的 是 实际 的 scheme 环 境 ， 
而 不 是 我 们 自己 .在 4.1.3 节 里 构造 的 简单 环境 结构 。 这 些 实 际 环境 不 能 由 用 户 作 为 常规 的 表 去 操作 ， 而 只 能 通 
过 eval 和 其 他 特殊 操作 去 访问 。 与 此 类 似 ， 我 们 前 面 已 经 看 到 ， 基 本 过 程 apP1Y 人 也 不 等 同 于 元 循环 求 什 痊 
里 的 app1LYy ， 因 为 它 使 用 也 是 实际 的 Scheme 过 程 ， 而 不 是 我 们 在 4.1.3 节 和 4.1.4 节 构造 的 过 程 对 象 。 

26 在 MIT 的 Scheme 实现 中 包含 有 eval ， 还 有 一 个 符号 user-initial-environment ， 它 约束 到 用 户 输入 表 
达 式 的 求 值 所 用 的 那个 初始 环境 。 

27 虽然 我 们 规定 了 送 给 halts? 的 是 一 个 过 程 对 象 ， 但 也 请 注意 ， 这 一 推理 同样 适用 于 halts? 能 够 访问 过 程 
的 正文 或 者 它 的 运行 环境 的 情况 。 这 就 是 图 灵 伟 大 的 停机 定理 ， 是 清晰 给 出 的 第 一 个 不 可 计算 的 问题 ， 也 就 
是 说 ， 是 一 个 良好 刻画 的 工作 ， 但 却 不 能 由 一 个 计算 过 程 完成 。 


4.1.6 内 部 定义 


我 们 的 求 值 和 元 循环 求 值 器 的 环境 模型 将 按 顺 序 执行 给 它 的 定义 ， 一 次 在 环境 框架 里 扩 
充 一 个 定义 。 对 于 交互 式 的 程序 开发 ， 这 样 做 是 特别 方便 的 ， 因 为 程序 员 需 要 自由 地 混合 过 
程 应 用 和 新 过 程 的 定义 。 然 而 ， 如 果 我 们 仔细 想 一 想 用 于 实现 块 结构 的 内 部 定义 (在 1.1.8 节 
介绍 )， 就 会 发 现 ， 这 种 一 次 一 个 名 字 的 环境 扩充 方式 可 能 不 是 定义 局 部 变量 的 最 好 方式 。 

考虑 一 个 带 有 内 部 定义 的 过 程 ， 例 如 ， 


(define (f x) é 
(define (even? n) 
(if (= n 0) 
true 
(odd? (= n 1)))) 
(define (odd? n) 
(if (=n 0) 
false 
| (even? (- n1)))) 
< 工 体 的 其 余部 分 > ) 
我 们 在 这 里 的 意图 是 ， 在 过 程 even? 的 体 里 的 名 字 odd? 应 该 引用 过 程 odd? ， 而 它 是 在 
even? 之 后 定义 的 。 名 字 odd? 的 作用 域 是 三 的 整个 体 ， 而 不 仅 是 £ 的 体 里 从 出 现 oda? 的 
define 点 开始 的 那个 部 分 。 确 实 ， 在 我 们 考虑 odd? 本 身 也 是 基于 even? 定 义 的 时 候 一 一 所 
以 even? 和 odd? 是 相互 递归 定义 的 过 程 一 -就 可 以 看 到 ， 有 关 这 两 个 define 的 最 令 人 满意 
的 解释 ， 应 该 是 认为 两 个 名 字 even? 和 0dd? 被 同时 加 入 环境 中 。 更 一 般 地 说 ， 在 块 结构 里 ， 
一 个 局 部 名 字 的 作用 域 ， 应 该 是 相应 Gefine 的 求 值 所 在 的 整个 过 程 体 。 

在 出 现 这 种 情况 时 ， 我 们 的 解释 器 将 能 正确 求 值 对 f 的 调用 ， 但 却 是 由 于 一 种 “非常 偶然 
的 ”原因 : 由 于 内 部 过 程 的 定义 出 现在 前 ， 而 在 所 有 这 些 东 西 都 定义 好 之 前 不 会 对 这 些 过 程 
的 调用 求 值 。 因 此 ， 在 even? 被 执行 时 odd? 已 经 定义 好 了 。 事 实 上 ， 只 要 过 程 里 的 内 部 定 
义 出 现在 体 和 用 于 定义 变量 的 值 表达 式 的 求 值 之 前 ， 而 这 些 值 表 达 式 又 不 实际 使 用 任何 被 定 
义 的 变量 ， 我 们 的 顺序 求 值 机 制 给 出 的 结果 就 与 直接 实现 同时 定义 完全 一 样 。 (作为 不 满足 这 
些 限制 的 一 个 例子 ， 因 此 顺序 定义 将 不 等 价 于 同时 定义 ， 请 参见 练习 4.19。) 一 

不 过 ， 确 实 存在 一 种 处 理 这 些 定义 的 方法 ， 可 以 使 内 部 名 字 的 定义 真正 具有 同样 的 作用 
域 。 为 此 只 需 在 求 值 任 何 值 表达 式 之 前 ， 在 当前 环境 里 建立 起 所 有 的 局 部 变量 。 完 成 这 一 工 
作 的 一 种 方式 时 通过 Lambda 表 达 式 的 语法 变换 。 在 求 值 1ambda 表 达 式 的 体 之 前 ， 首 先 扫 接 
并 且 删 除 掉 这 个 过 程 体 里 的 所 有 内 部 定义 ， 并 用 一 个 1et 创 建 这 些 内 部 定义 的 变量 ， 而 后 通 
过 赋值 设置 它们 的 值 。 举 个 例子 ， 过 程 

(lambda <vars> 


(define u <el>) 
(define v <e2>) 


228 希望 一 个 程序 不 依赖 于 这 种 求 值 机 制 ， 就 是 第 1 章 中 脚注 28 里 提出 “管理 并 非 一 种 责任 ”的 原因 。 强 调 了 中 
部 定义 应 该 出 现在 前 ， 在 这 些 定义 被 求 值 期 间 不 使 用 它们 ，IEEE 的 Scheme 标准 在 关于 求 值 这 种 定义 所 用 的 
机 制 方面 将 选择 权 留 给 了 实现 者 。 在 这 里 选择 某 种 求 值 方式 而 不 是 另 一 种 ， 看 起 来 像 是 一 个 小 问题 ， 只 会 影 
响 到 那些 “形式 不 好 的 ”程序 的 解释。 然而 ， 在 5.5.6 节 我 们 将 会 看 到 ， 转 变 到 内 部 定义 的 同时 作用 域 ， 将 能 
避免 一 些 很 塘 手 的 难题 ， 如 果 不 这 样 ， 这 些 问题 就 会 出 现在 编译 器 的 实现 中 ，。 


<e3>) 


将 被 翻译 为 
(lambda <vars> 
(let ((u ’*unassigned*) 
(v ’*unassigned*)) 
(set! u <e/>) 
(set! v <e2>) 
<e3>) ) 
这 里 的 :unassigned* 是 一 个 特殊 符号 ， 在 查找 一 个 变量 ， 企 图 去 使 用 一 个 尚未 赋值 的 变量 
的 值 时 ， 它 将 导致 发 出 一 个 错误 信号 。 
扫描 出 所 有 内 部 定义 的 另 一 种 策略 在 练习 4.18 中 给 出 。 与 上 面 的 变换 方式 不 同 ， 它 将 强加 
一 种 限制 ， 要 求 被 定义 变量 的 值 能 在 不 用 其 他 变量 的 值 的 情况 下 进行 求 值 ”。 
练习 4.16 ”在 这 一 练习 里 ， 我 们 要 实现 刚刚 介绍 的 解释 内 部 定义 的 方式 。 现 在 假定 求 值 
器 已 经 支持 let (练习 4.0 ) 。 
a) 请 修改 lookup-variable-value (第 4.1.3 节 )， 使 它 在 发 现 的 值 是 符号 *unassigned* 
时 发 出 一 个 出 错 信和 号。 
b) 请 写 出 一 个 过 程 scan-out-defines ， 它 以 一 个 过 程 体 为 参数 ， 返 回 一 个 不 包括 内 
部 定义 的 等 价 表达 式 ， 完 成 上 面 描述 的 变换 。 
c) 请 将 scan-out-defines 安 装 到 解释 器 里 ， 或 者 将 其 安 到 make-procedure 里 , 或 
者 安 到 procedure-body 里 ( 见 4.1.3 节 )。 安 装 在 哪个 位 置 更 好 些 ? 为 什么 ? 
练习 4.17 请 画 出 一 个 图 形 ， 说 明 在 求 值 正文 中 过 程 里 的 表达 式 <e3> 时 有 关 环 境 的 作用 。 
请 构造 出 在 按照 顺序 方式 解释 定义 时 的 情况 ， 以 及 如 果 将 内 部 定义 像 上 面 所 说 的 那样 扫 摘 出 
来 时 的 环境 情况 ， 对 它们 做 一 些 比较 。 为 什么 对 于 变换 之 后 的 程序 多 出 了 一 个 框架 ? 请 解释 
为 什么 环境 结构 的 这 种 差异 不 会 造 出 正确 程序 的 不 同行 为 方式 。 请 设计 一 种 方式 ， 使 解释 器 
能 实现 内 部 定义 的 “同时 性 ”作用 域 规则 ， 而 又 不 需要 构造 额外 的 框架 。 
练习 4.18 ”考虑 下 面 的 另 一 种 扫描 出 定义 的 方式 ， 它 将 正文 里 的 例子 变换 为 : 
{lambda <vars> | 
(let ((u ’*unassigned* ) 
(v **unassigned*) ) 
(let ((a <el>) 
(b <e2>) ) 
(set! u a) 
(set! v b)) 
<e3>)) 
这 里 的 a 和 b 表 示 的 是 新 变量 名 字 ， 它 们 由 解释 器 建立 ， 不 会 出 现在 用 户 程 序 里 。 考 虑 取 日 
3.5.4 节 的 SoLIve 过 程 : 


(define (solve 上 yO dt) 
(define y (integral (delay dy) y0 dt)) 


29 TEBE 的 Scheme 标 准 cue HRA el AV SCL, Sep REE A PR UIA, ， 而 不 是 要 求实 现 去 强制 要 
求 它 。 有 些 Scheme 实现， 包括 MIT 的 Scheme ， 采 用 了 上 面 所 说 的 变换 。 这 样 ， 一 些 并 不 违反 这 一 限制 的 程序 


将 能 够 在 这 种 实现 上 运行 。 


(define dy (stream-map f vy)) 
y) 、 
如 果 采 用 本 练习 所 示 的 扫描 出 内 部 定义 的 方式 ， 这 一 过 程 还 能 工作 吗 ? 如 果 采 用 正文 中 给 
的 扫描 方式 呢 ? 请 给 出 解释 。 
练习 4.19 Ben Bitdiddle, Alyssa P. Hacker 和 Eva Lu Ator 在 关于 下 面 表达 式 的 期 望 求 值 
结果 上 有 争论 : / | 
(let ((a 1)) 
(define (f x) 
(define b (+ a x)) 
(define a 5) 
(+ a bB)) 
(£ 10)) 


Ben 断 言 使 用 aefine 的 顺序 规则 将 能 得 到 结果 ， 那 时 b 被 定义 为 上 L， 而 后 a 定 义 为 ?， 所 以 最 
后 的 结果 是 16。Ajlyssa 反 对 说 ， 相 互 递归 要 求 内 部 过 程 定 义 的 同时 性 作用 域 规则 ， 将 过 程 名 
字 看 做 与 其 他 名 字 不 同 是 不 合理 的 。 因 此 她 为 练习 4.16 提 出 的 机 制 辩护 ， 这 将 导致 在 需要 计 
算 b 值 的 时 候 a 还 没有 赋值 。 按 照 Alyssa 的 观点 ， 这 个 过 程 产生 一 个 错误 。Eva 持 第 三 种 观 氮 ， 
她 说 如 果 a 的 b 的 定义 真正 是 同时 的 ， 那 么 a 的 值 5 应 该 能 用 在 b 的 求 值 中 。 这样 ， 按 照 Eva 的 观 
点 ，a 应 该 是 5 ，b 应 该 是 15 ， 而 最 终结 果 应 该 是 20。 你 支持 哪 种 观点 ? 你 能 设计 出 一 种 实现 
内 部 定义 的 方案 ， 使 之 具有 Eva 所 喜欢 的 行为 吗 ? ” 
练习 4.20 由 于 内 部 定义 表面 上 看 是 顺序 的 ， 实 际 上 却 是 同时 性 的 ， 有 些 人 就 希望 完全 
避免 它们 ， 采 用 另 一 种 特殊 形式 letrec。letrec 看 起 来 像 let ， 因 此 毫 不 奇怪 ， 它 的 变量 
约束 都 是 同时 建立 的 ， 各 个 变量 都 具有 同样 的 作用 域 。 与 上 面 一 样 的 过 程 f 现 在 可 以 写成 没有 
内 部 定义 的 形式 ， 但 却 具有 相同 的 意义 : 
(define (f x) 
(letrec ((even? 
(lambda (n) 
(if (= n 0) 
true 
(odd? (~ n 1))))) 
(odd? 
(lambda (n) 
(if (=n 0) 
false 
(even? (- n 1)))))) 
< 工 体 的 其 余部 分 > ) ) 


letrec 表 达 式 具有 如 下 形式 


(letrec ((<var,><exp\>) »»« (<var,> <expn>)) 
<body>) 


eit let 的 一 种 变形 ， 其 中 的 表达 式 <expi> 为 变量 <vari> 提 供 内 部 值 ， 这 些 表 达 式 的 求 值 是 在 


230 MIT 的 Scheme 实现 支持 Alyssa， 基 于 如 下 基础 : 从 原则 上 说 Eva 是 正确 的 一 一 定义 应 该 认为 是 同时 的 。 都 是 看 
起 来 很 难 有 一 种 一 般 性 的 有 效 机 制 实现 Eva 的 需求 。 既 然 缺 乏 这 样 一 种 机 制 ， 那 么 最 好 就 是 在 遇 到 困难 的 同 
时 定义 时 产生 一 个 错误 (Alyssa 的 观点 ) ， 而 不 是 产生 一 个 不 正确 的 结果 (Ben 所 希望 的 )。 


2 


一 个 包含 了 所 有 letrec 约 束 的 环境 里 完成 的 。 这 样 也 就 允许 了 约束 中 的 递归 ， 例 如 上 面 例子 
里 even? 和 odd? 的 相互 递归 ， 或 者 采用 下 面 方 式 求 10 的 阶乘: 
(letrec ((fact 
(lambda (n) 
(if (= n 1) 
1 
(* n (fact (- n 1))))))) 
(fact 10)) 


a) 请 将 letrec 实 现 为 一 种 派生 表达 式 ， 将 这 种 表达 式 变换 为 如 上 面 正文 中 所 描述 的 ， 或 
者 如 练习 4.18 所 述 的 let 表 达 式 。 也 就 是 说 ， 用 一 个 let 创 建 的 letrec 变 量 ， 而 后 用 set! 给 
它们 赋值 。 

b) Louis Reasoner 对 于 所 有 这 些 有 关内 部 定义 的 大 惊 小 怪 感 到 很 困惑 。 他 看 这 些 问 题 的 方 
式 是 ， 如 果 你 不 喜欢 在 一 个 过 程 里 用 define ， 你 就 可 以 只 用 Let 。 请 画 出 一 个 环境 图 ， 说 明 
在 求 值 表 达 式 (£ 5) 的 过 程 中 ， 求 值 到 <rest of body of f> 时 的 环境 情况 ， 以 此 说 明 为 什么 
Louis 的 推理 是 不 严谨 的 。 这 里 和 的 f 如 本 练习 中 的 定义 。 再 为 同一 个 求 值 画 出 一 个 环境 图 ， 将 ff 
定义 中 的 letrec 换 成 let， 

练习 4.21 非常 有 趣 ，Louis 在 练习 4.20 里 的 直觉 是 正确 的 。 确 实 有 可 能 不 用 Letrec miä 
述 出 递归 过 程 (甚至 也 不 需要 用 define ) ， 虽 然 完 成 此 事 的 方式 远 比 Louls 的 设想 微妙 得 多 。 
下 面 表 达 式 能 通过 应 用 一 个 递归 的 阶乘 过 程 计 算出 10 的 阶乘 ” : 

( (lambda (n) 

( (lambda (fact) 
(fact fact n)) 
(lambda (ft k) 
(if (= k 1) 
1 
(* k (ft ft (- k 1))))))) 


10) 
a) 请 仔细 检查 (通过 求 值 这 个 表达 式 )， 以 确定 这 个 表达 式 确实 能 算出 阶乘 。 设 计 一 个 计 
BSE AAA UIA. 


b) 考虑 下 面 过 程 ， 其 中 包含 相互 递归 的 内 部 定义 : 


(define (f x) 
(define (even? n) 
(if (=n 0) 
true 
(odd? (- n 1)))) 
(define (odd? n) 
(if (=n 0) 
false 
(even? (= n 1)))) 
(even? x)) 


231 这 个 例子 说 明了 一 种 不 用 define 构 造 递归 过 程 的 程序 设计 诡计 。 这 类 诡计 中 最 一 般 的 是 Y 运算 符 ， 可 以 用 它 
给 出 递归 的 一 个 “ 纯 和 演算 ”实现 。( 参 见 Stoy 1977 有 关 lambda 演算 的 细节 ， 以 及 Gabriel 1988 有 关 在 Scheme 
里 Y 运 算 符 的 展示 。) 


请 填充 下面 f 的 定义 中 空缺 的 表达 式 ， 完 成 它 ， 其 中 不 使 用 内 部 定义 也 不 用 letrec. 
(define (f x) 

( (lambda (even? odd?) 
(even? even? odd? x)) 

(lambda (ev? od? n) 
(if (= n 0) true (od? <??> <??> <??>))) 

(lambda (ev? od? n) 
(if (= n 0) false (ev? <??> <??> <?2?>))))) 


4.1.7 将 语法 分 析 与 执行 分 离 


上 面 实现 的 求 值 器 确实 很 简单 ， 但 却 也 非常 低 效 ， 因 为 有 关 表 达 式 的 语法 分 析 与 它们 的 
执行 交织 在 一 起 。 如 果 一 个 程序 要 执行 许多 次 ， 对 于 它 的 语法 分 析 也 就 需要 做 许多 次 。 举 例 
来 说 ， 考 虑 采用 下 面 的 Eactorial 定 义 求 值 (factorial 4): 


(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)} n))}) 
在 每 次 调用 factorial 时 ， 求 值 器 就 需要 确定 它 的 体 是 一 个 i£f 表 达 式 ， 而 后 提取 出 其 中 
的 谓词 。 只 有 到 了 此 时 ， 它 才能 去 求 值 这 个 谓词 并 基于 它 的 值 完 成 分 派 。 每 次 去 求 值 表达 式 
(* (factorial (- n 1)) n), 或 者 子 表达 式 (factorial (- n 1)) 和 (~ n 1) 时 ， 
求 值 器 都 必须 执行 eval 里 的 分 情况 分 析 ， 以 便 确 定 相应 的 表达 式 是 过 程 应 用 ， 而 且 必 须 提取 
出 有 关 的 运算 符 和 运算 对 象 。 这 种 分 析 是 代价 高 昂 的 ， 反 复 执 行 它 们 是 一 种 浪费 。 
我 们 可 以 对 这 个 求 值 器 做 一 些 变换 ， 使 它 的 效率 大 大 提高 ， 采 用 的 方法 就 是 重新 安排 其 
中 的 工作 ， 使 有 关 的 语法 分 析 只 进行 一 次 汪 。 我 们 要 将 以 一 个 表达 式 和 一 个 环境 为 参数 的 
eval 分 割 为 两 个 部 分 。 过 程 analyze 只 取 表 达 式 作为 参数 ， 它 执行 语法 分 析 ， 并 返回 一 个 
新 的 过 程 ， 执 行 过 程 ， 其 中 封装 起 在 分 析 表 达 式 的 过 程 中 已 经 完成 的 工作 。 这 个 执行 过 程 以 
一 个 环境 作为 参数 ， 并 完成 实际 的 求 值 工作 。 这 样 就 会 节省 需要 做 的 工作 ， 因 为 对 一 个 表达 
式 只 需要 调用 一 次 analyze ， 而 执行 过 程 却 可 能 被 调用 许多 次 。 
将 语法 分 析 和 执行 分 开 之 后 ，eval 现 在 就 变 成 了 


(define (eval exp env) 
( (analyze exp) env) ) 


调用 analyze 的 结果 得 到 了 一 个 执行 过 程 ， 而 后 将 它 应 用 于 环境 。 analy2e 过 程 完成 像 
4.1.1 节 里 源 来 eva1 那 样 的 分 情况 分 析 ， 除 了 共 中 的 分 派 过 程 只 执行 分 析 工作 ， 不 进行 完全 的 
求 值 之 外 : 


(define (analyze exp) 
(cond ((self-evaluating? exp) 
(analyze-self-evaluating exp) ) 
( (quoted? exp) (analyze-quoted exp) ) 


22 这 一 技术 是 编译 过 程 中 的 一 个 内 在 组 成 部 分 ， 有 关 编译 的 问题 将 在 第 5 章 讨论 。Jonathan Rees HT MAS T— 
个 类 似 这 里 的 Scheme 编译 器 (Rees and Adams 1982), Marc Feeley (1986) ( 见 Feeley and Lapalme 1987 ) 


在 其 硕士 论文 里 独立 地 发 明了 这 一 技术 。 
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((variable? exp) (analyze-variable exp) ) 
( (assignment? exp) (analyze-assignment exp) ) 
((definition? exp) (analyze-definition exp) ) 
{ (if? exp) (analyze-if exp) ) 
( (lambda? exp) (analyze-lambda exp) ) 
((begin? exp) (analyze~sequence (begin-actions exp))) 
((cond? exp) (analyze (cond->if exp))) 
( (application? exp) (analyze-application exp) ) 
(else 
(error "Unknown expression type -- ANALYZE" exp)))) 


下 面 是 一 个 处 理 自 求 值 表 达 式 的 简单 分 析 过 程 ， 它 返回 一 个 忽略 环境 参数 的 执行 过 程 ， 
直接 返回 相应 的 表达 式 : 


(define (analyze-self-evaluating exp) 
(lambda (env) exp) ) 


对 于 引号 表达 式 ， 我 们 可 以 通过 在 分 析 时 提取 出 被 引 表达 式 ， 而 不 是 在 执行 中 去 做 的 方 
式 ， 使 这 项 工作 只 需要 做 一 次 ， 从 而 提高 一 点 效率 。 
(define (analyze-quoted exp) 


(let ((qval (text-of-quotation exp))) 
(lambda (env) qval))) 


杏 看 变量 的 值 仍然 需要 在 执行 过 程 中 做 ， 因 为 这 个 值 依赖 于 所 用 的 环境 33，。 


(define (analyze-variable exp) 
(lambda (env) (lookup~variable-valiue exp env))) 


analyze-assignment 也 必须 推迟 到 执行 时 才能 去 实际 设置 变量 的 值 ， 因 为 那 时 才 提 
供 了 操作 的 环境 。 然 而 ， 在 分 析 阶 段 已 经 (递归 地 ) 完成 了 对 assignment-value 表 达 式 
的 分 析 ， 这 一 事实 还 是 可 以 大 大 提高 效率 ， 因 为 现在 对 assignment-value 表 达 式 的 分 析 
只 需要 进行 一 次 。 这 种 说 法 对 于 定义 也 是 对 的 。 | : 

(define (analyze-assignment exp) 

(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-value exp)))) 


(lambda (env) 
(set-variable-value! var (vproc env) env) 


‘ok))) 


(define (analyze-definition exp) 
(let ((var (definition-variable exp)) 
(vproc (analyze (definition-value exp)))) 
(lambda (env) 
(define-variable! var (vproc env) env) 
"Ok))) 


对 于 if 表达 式 ， 我 们 在 分 析 过 程 中 提取 并 分 析 其 谓词 、 推 理 和 替代 部 分 。 


(define (analyze-if exp) 
(let ((pproc (analyze (if-predicate exp) )) 





233 然而 ， 变 量 搜索 中 的 很 大 一 部 分 工作 也 可 以 在 语法 分 析 阶段 完成 。 正 如 将 在 5.5.6 节 看 到 的 ， 我 们 可 以 在 环境 
结构 中 确定 能 找到 变量 的 值 的 位 置 ， 这 样 就 免除 了 查找 整个 环境 去 确定 变量 匹配 的 需要 。 
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(cproc (analyze (if-consequent exp) ) ) 
(aproc (analyze (if-alternative exp))))- 
(lambda (env) 
(if (true? (pproc env)) 
(cproc env) 
(aproc env))))) 


分 析 lambda 表 达 式 也 能 得 到 很 大 的 效率 收获 ， 因 为 只 要 分 析 1ambda 体 一 次 ， 即 使 作为 
这 一 lambda 的 求 值 结果 的 过 程 可 能 应 用 许多 次 。 
(define (analyze-lambda exp) 
{let ((vars (lambda-parameters exp)) 


(bproc (analyze-sequence (lambda-body exp)))) 
(lambda (env) (make-procedure vars bproc env)))) 


对 于 表达 式 序列 的 分 析 (如 一 个 begin 或 者 一 个 lambda 表 达 式 的 体 ) 是 更 加 深入 的 “。 
序列 中 的 每 个 表达 式 都 将 被 分 析 ， 产 生出 一 个 执行 过 程 。 这 些 执行 过 程 被 组 合 起 来 形成 一 个 
执行 过 程 ， 该 执行 过 程 以 一 个 环境 为 参数 。 它 以 这 个 环境 作为 参数 ， 上 顺序 地 调用 各 个 独立 的 
执行 过 程 。 

(define (analyze-sequence exps) 

(define (sequentially procl proc2) 
(lambda (env) (procl env) (proc2 env))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
{loop (sequentially first-proc (car Fest-procs)) 
(cdr rest-procs)))) | 
(let ((procs (map analyze exps))) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE")) 
(loop (car procs) (car procs)))) 


为 了 分 析 一 个 过 程 应 用 ， 我 们 就 需要 分 析 其 中 的 运算 符 和 运算 对 象 ， 并 构造 出 一 个 执行 
tH, ， 它 能 调用 运算 符 的 执行 过 程 (获得 实际 需要 应 用 的 哪个 过 程 ) 和 运算 对 象 的 执行 过 程 
(获得 实际 参数 )。 而 后 我 们 将 这 些 送 给 execute-application， 这 一 过 程 与 4.1.1 贡 的 
apply 类 似 。execute-application 与 apply 的 不 同 之 处 ， 在 于 这 里 作为 复合 过 程 的 过 
程 体 已 经 过 分 析 ， 因 此 不 再 需要 做 进一步 的 分 析 了 。 此 时 只 需要 在 扩充 的 环境 里 调用 过 程 体 
的 执行 过 程 。 

(define (analyze-application exp) 

(let ((fproc (analyze (operator exp) ))} 
(aprocs (map analyze (operands exp)))) 
(lambda (env) 
(execute-application (fproc env) 
(map (lambda (aproc) (aproc env) ) 
aprocs))))} 


(define (execute-application proc args) — 
(cond ((primitive-procedure? proc) 


“ 参见 练 区 .23 有 关上 序列 处 理 的 某 些 见解 
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(apply-primitive-procedure proc args) ) 
{(compound-procedure? proc) 
((procedure-body proc) 
(extend-environment (procedure-parameters proc) 
args : 
{procedure-environment proc))))} 


(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 
我 们 的 新 求 值 器 所 使 用 的 数据 结构 、 语 法 过 程 和 运行 支持 过 程 与 4.1.2 布 、4.1.3 布 和 4.1.4 
万 中 的 完全 一 样 。 


练习 4.22 请 扩充 本 节 的 求 值 器 ， 使 之 能 支持 特殊 形式 let (参见 练习 4.0 )。 

练习 4.23 Alyssa P. Hacker 不 能 理解 为 什么 analLyze-Sequence 需 要 如 此 复杂 ， 而 所 有 
其 他 的 分 析 过 程 都 是 4.1.1 节 里 的 对 应 求 值 过 程 (或 者 eval 子 句 ) 的 直接 变换 。 她 所 想象 的 
analyze-sequence 大 致 具 有 下 面 的 样子 : 


(define (analyze-sequence exps) 
(define (execute-sequence procs env) 
(cond ((null? (cdr procs)) ((car procs) env)) 
(else (({car procs) env) . 
(execute-sequence (cdr procs) env)))) 
{let ((procs (map analyze exps))) 
(if (null? procs) 
{error "Empty sequence -- ANALYZE") ) 
(lambda (env) (execute-sequence procs env)))) 


Eva Lu Ator 给 Alyssa 解 释 说 ， 正 文中 给 出 的 版 本 在 分 析 阶 段 完 成 了 序列 求 值 中 更 多 的 工作 。 
Alyssa 的 序列 求 值 过 程 并 没有 去 调用 内 部 建立 的 各 个 求 值 过 程 ， 而 是 循环 地 通过 一 个 过 程 去 调 
用 它们 。 从 效果 看 ， 虽 然 序 列 中 各 个 表达 式 都 经 过 了 分 析 ， 但 整个 序列 本 身 却 没 有 分 析 。 

请 对 这 两 个 analyze-~sequence 版 本 做 一 个 比较 。 例 如 ， 考 虑 一 种 常见 的 情况 (典型 
的 过 程 体 )， 其 中 的 序列 只 有 一 个 表达 式 。 由 Alyssa 的 程序 产生 的 执行 过 程 将 会 做 些 什么 ? 由 
上 面 正文 中 的 程序 产生 的 执行 过 程 又 怎么 样 呢 ? 两 个 版 本 在 一 个 包含 两 个 表达 式 的 序列 上 的 
工作 比较 如 何 ? | 

练习 4.24 ”请 设计 并 完成 一 些 试验 ， 比 较 原 来 的 元 循环 求 值 器 和 本 市 的 这 个 版 本 的 速度 。 
用 你 的 结果 评估 各 种 过 程 在 分 析 阶 段 和 执行 阶段 所 花费 的 时 间 的 比例 。 


4.2 Scheme 的 变形 一 一 情 性 求 值 


有 了 一 个 以 Lisp 程 序 形式 描述 的 求 值 器 ， 我 们 现在 就 可 以 通过 简单 地 修改 这 一 求 值 器 ， 
试验 一 些 语言 设计 的 选择 和 变 人 化。 确实， 发明 新 的 语言 ， 常 常 就 是 先 用 一 种 现 有 的 高 级 程序 
设计 语言 写 出 一 个 媒人 入 了 这 个 新 语言 的 求 值 器 。 举 例 来 说 ， 如 果 我 们 希望 与 Lisp 社 团 的 其 他 
成 员 讨论 对 Lisp 提 出 的 某 些 修改 ， 那 么 就 可 以 提供 一 个 体现 了 这 些 修 改 的 求 值 器 。 接 收 者 可 
以 用 这 个 新 求 值 器 做 一 些 试验 ， 而 后 送 回 一 些 评 论 意见 供 进 一 步 修改 。 高 层次 的 实现 基础 不 
仅 使 我 们 更 容易 测试 求 值 器 ， 排 除 其 中 的 错误 ， 进 一 步 说 ， 这 种 代入 也 使 设计 者 能 从 基础 语 
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构 那 样 。 只 有 到 了 后 来 (如 果 需 要 的 话 ) ， 设 计 者 才 需 要 进一步 去 面 对 在 某 个 低级 语言 或 者 硬 
件 中 做 出 一 个 完整 实现 的 麻烦 事情 。 在 本 节 和 后 面 几 节 里 ， 我 们 将 探究 Scheme 的 几 种 变形 ， 
它们 都 提供 了 明显 的 额外 描述 能 力 。 


4.2.1 正则 序 和 应 用 序 


在 1.1 节 里 开始 讨论 求 值 模型 时 ， 我 们 就 说 Scheme 是 一 个 采用 应 用 序 的 语言 ， 也 就 是 说 ， 
在 过 程 应 用 的 时 候 ， 提 供给 Scheme 过 程 的 所 有 参数 都 需要 完成 求 值 。. 写 此 相反 ， 采 用 正则 
序 的 语言 将 把 对 过 程 参 数 的 求 值 延 后 到 需要 这 些 实际 参数 的 值 的 时 候 。 将 过程 参数 的 求 值 拖 
延 到 最 后 的 可 能 时 刻 (也 就 是 说 ， 直 至 某 些 基本 操作 实际 需要 它们 的 时 肇 ) 也 被 称 为 惰性 求 
值 ”。 考 虑 过 程 : | 

(define (try a b) 

. (if (= a 0) 1 b}) 
对 于 (try 0 (/ 1 0)) 的 求 值 将 在 Scheme 里 产生 一 个 错误 ， 而 对 于 情 性 求 值 就 不 会 出 错 。 
在 那里 对 这 个 表达 式 求 值 将 返回 1 ， 因 为 参数 (/ 1 0) 根本 不 会 被 求 值 。 

下 面 过 程 unless 的 定义 是 另 一 个 利用 情 性 求 值 的 例子 ， 

(define (unless condition usual-value exceptional-value) 

(if condition exceptional-value usual-value) ) 

它 可 以 用 在 下 面 这 样 的 表达 式 里 : 

(unless (= b 0) 

(/ a b) 
(begin (display "exception: returning 0") 
0)) | 

在 采用 应 用 序 的 语言 里 ， 这 样 做 就 不 行 了 ， 因 为 在 unless 被 调用 之 前 ,这 里 的 正常 值 和 并 
常 值 都 会 被 求 值 (请 与 练习 1.6 比 较 一 下 ) 。 情 性 求 值 的 一 个 优点 就 是 使 某 些 过 程 《例如 
unless) 能 够 完成 有 用 的 计算 ， 即 使 对 它们 的 某 些 参数 的 求 值 将 产生 错误 甚至 根本 不 能 终 
iE. | 

如 果 在 某 个 参数 还 没有 完成 求 值 之 前 就 进入 一 个 过 程 的 体 ， 我 们 就 说 这 一 过 程 相 对 于 该 
参数 是 非 严格 的 。 如 果 在 进入 过 程 体 之 前 某 个 参数 已 经 完成 求 值 ， 我 们 就 说 该 过 程 相对 于 这 
个 参数 为 严格 的 27。 在 一 个 纯 的 应 用 序 语 言 里 ， 所 有 的 过 程 相 对 于 每 个 参数 都 是 严格 的 。 而 
在 一 个 纯 的 正则 序 语言 里 ， 所 有 的 复合 过 程 对 每 个 参数 都 是 非 严格 的 ， 而 基本 过 程 可 以 是 严 
格 的 ， 也 可 以 是 非 严 格 的 。 也 存在 一 些 语言 (参见 练习 4.31)， 它 们 允许 程序 员 对 自己 定义 的 





35 抄录 ,“ 抄 取 ， 特 别 是 对 很 大 的 文档 或 者 材料 ， 目 的 就 是 使 用 它 ， 无 论 是 得 到 或 者 没有 得 到 其 拥有 者 的 允许 。 
摘录 : “抄录 ， 有 时 还 包含 着 吸收 处 理 的 理解 之 意 ， ” (这 些 定义 抄录 自 Steele et al. 1983 ， 也 见 Raymond 
' 1993, ) 

”6 术语 “ 情 性 ”和 “正则 序 ” 之 间 的 差异 有 时 会 使 人 感到 有 些 困 于 一 般 说 ,“ 情 性 ” 指 的 是 特定 求 值 器 里 的 
有 关机 制 ， 而 “正则 序 ” 指 的 是 语言 的 语义 ， 与 特定 的 求 值 策略 无 关 。 当然， 这 并 不 是 黑白 分 明 的 划分 ， 两 
种 说 法 也 常常 被 相互 替代 地 使 用 。 

(27 “严格 ”和 “ 非 严 格 ” 的 术语 基本 上 表示 了 与 “应 用 序 ” 和 “正则 序 ” 同样 的 意思 ， 但 是 它们 针对 的 是 个 别 
的 过 程 和 参数 ， 而 不 是 针对 整个 语言 。 在 一 个 有 关 程 序 设计 语言 的 会 议 上 ， 你 可 能 会 听 到 其 人 说 ， “ENF 
语言 Hassle 包含 了 一些 严 格 的 基本 过 程 。 其 他 过 程 以 情 性 求 值 的 方式 处 理 其 参数 。 
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过 程 的 严格 性 做 细节 的 控制 。 

将 过 程 做 成 非 产 格 的 也 可 能 很 有 用 ， 一 个 特别 使 人 印象 深刻 的 例子 就 是 cons (或 者 一 般 
地 说 ， 任 何 数 据 结 构 的 构造 函数 )。 这 样 ， 我 们 就 可 以 在 其 至 还 不 知道 元 素 的 值 的 情况 下 ， 就 
去 完成 一 些 有 用 的 计算 ， 将 元 素 组 合 起 来 形成 数据 结构 ， 并 对 得 到 的 数据 结构 做 各 种 操作 。 
这 确实 非常 有 意义 。 举 例 来 说 ， 这 样 就 可 以 在 不 知道 一 个 表 里 的 元 素 值 的 情况 下 计算 表 的 长 
度 。 我 们 将 在 4.2.3 节 利用 这 一 思想 ， 把 第 3 章 的 流 实现 为 由 非 严 格 的 cons 序 对 构成 的 表 。 


练习 4.25 ”假定 (在 常规 的 应 用 序 的 Scheme 里 ) 定义 了 如 上 所 示 的 0nless ， 而 后 基于 
unless 将 factorial 定 义 为 ; 
(define (factorial n) 
(unless (=n 1) 
(+ n (factorial (- n 1))) 
1)) 
在 企图 计算 (factorial 5) 时 会 出 现 什么 问题 ? 上述 定 义 在 正则 序 语言 里 能 够 工作 
吗 ? | 
练习 4.26 Ben Bitdiddle 和 Alyssa P. Hacker 对 于 在 实现 诸如 unless 一 类 东西 中 惰性 求 值 
的 重要 性 有 不 同意 见 。Ben 指 出 ， 有 可 能 在 应 用 序 语言 里 将 Unless 实现 为 一 个 特殊 形式 。 
Alyssa 则 反对 这 一 说 法 ， 认 为 如 果真 的 那样 做 ，un1less 就 将 只 是 一 种 语法 形式 而 不 是 一 个 过 
程 了 ， 因 而 就 不 能 与 高 阶 过 程 结 合 在 一 起 工作 。 请 为 这 两 种 论述 填充 一 些 细 市 : 证 明 可 以 如 
何 将 unless 实 现 为 一 种 派生 表达 式 (就 像 cond 或 者 let) ; 再 给 出 一 种 情况 作为 实例 ， 说 
明 如 果 unless 可 以 用 作 一 个 过 程 而 不 是 特殊 形式 ， 在 这 一 情况 里 就 可 以 使 用 。 


4.2.2 一 个 采用 情 性 求 值 的 解释 器 


在 这 一 节 里 ， 我 们 将 要 实现 一 种 正则 序 语 言 ， 它 与 Scheme 完全 相同 ， 但 是 其 中 的 复合 过 
程 对 任何 参数 都 是 非 严 格 的 。 基 本 过 程 将 仍然 是 严格 的 。 修 改 4.1.1 节 的 求 值 器 ,使 它 能 按照 
这 种 方式 解释 程序 ， 这 一 工作 并 不 困难 。 需 要 完成 的 所 有 修改 都 围绕 着 过 程 应 用 。 

这 里 的 基本 想法 就 是 ， 在 应 用 一 个 过 程 时 ， 解 释 器 必须 确定 哪些 参数 需要 求 值 PE Wy 
该 延 时 求 值 。 对 于 这 些 延 时 的 参数 都 不 进行 求 值 ， 相 反 ， 这 里 将 它们 变换 为 一 种 称 为 档 
(thunk) 的 对 象 28 。 在 槽 里 必须 包含 着 为 了 产生 这 一 参数 的 值 (在 需要 这 个 值 的 时 候 ) 所 需 
要 的 全 部 信息 ， 就 像 它 已 经 在 应 用 时 求 出 值 一 样 。 为 此 ， 槽 中 就 必须 包括 参数 表达 式 ， 以 及 
这 一 过 程 应 用 的 求 值 所 在 的 那个 环境 。 

对 槽 中 的 表达 式 求 值 的 过 程 称 为 强迫 29。 一 般 而 言 ， 只 有 在 需要 一 个 槽 的 值 时 才 会 去 唱 
迫 它 ， 这 包括 ， 在 将 它 送 给 一 个 基本 过 程 ， 而 基本 过 程 需要 用 这 个 值 时 ， 当 它 是 某 个 条 件 胡 
达 式 的 谓词 的 值 时 ， 当 它 是 某 个 运算 符 的 值 ， 而 现在 需要 将 它 作 为 一 个 过 程 去 应 用 时 。 现 在 
要 处 理 的 一 个 选择 是 采用 或 者 不 采用 记忆 性 的 槽 ， 就 像 前 面 在 3.5.1 节 对 延 时 对 象 所 做 的 那样 。 
有 了 记忆 之 后 ， 一 旦 某 个 槽 第 一 次 被 强迫 ， 它 就 保存 起 计算 出 的 值 。 随 后 的 强迫 只 需要 向 单 


238 术语 槽 是 一 个 非 正式 的 工作 组 在 讨论 Algol 60 中 命名 调用 机 制 的 实现 时 发 明 的 。 他 们 看 到 ， 有 关 表 达 式 的 大 
部 分 分 析 (“思考 ”) 都 能 在 编译 时 完成 ， 这 样 到 运行 时 ， 表 达 式 已 经 被 上 档 了 (Ingerman etal. 1960) 。 
29 这 与 对 于 延 时 对 象 的 force 的 用 法 类 似 ， 第 3 章 引进 了 这 种 对 象 ， 用 于 表示 流 。 我 们 在 这 里 所 做 的 与 在 第 3 音 
所 艇 的 之 间 的 根本 差异 ， 就 在 于 现在 是 要 把 延 时 和 强迫 构筑 到 求 值 器 里 ， 这 将 使 我 们 能 在 整个 语言 里 统一 地 
使 用 这 些 机 制 。 
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地 返回 其 中 保存 的 值 ， 不 必 重复 去 做 计算 。 我 们 将 把 这 个 解释 器 做 出 带 记忆 的 ， 因 为 对 于 大 
部 分 应 用 而 言 ， 这 种 方式 更 加 高 效 。 当 然 ， 这 里 也 存在 着 一 些 很 难处 理 的 问题 20。 


修改 求 值 器 

惰性 求 值 器 与 4.1.1 节 中 的 求 值 器 之 间 的 最 重要 不 同 点 ， 就 在 于 eval 和 apply 里 对 过 程 应 
用 的 处 理 。 

eval 里 的 application? 子 句 现 在 变 成 了 


( (application? exp) 

(apply (actual-value (operator exp) env) 
(operands exp) 
env) ) 


这 几乎 与 4.1.1 节 里 eval 的 application? 子 句 一 模 一样。 不 过 ， 对 于 惰性 求 值 ， 我 们 是 用 
运算 对 象 表达 式 去 调用 app1Ly ， 而 不 是 用 对 它们 求 值 产生 出 的 实际 参数 。 因 为 现在 参数 求 值 
已 经 延 时 进行 了 ， 而 且 构 造 槽 的 时 候 需 要 用 到 环境 ， 因 此 也 必须 传递 它 。 这 里 还 是 要 对 运算 
符 求 值 ， 因 为 apply 需 要 被 实际 应 用 的 那个 过 程 ， 以 便 根据 其 类 型 去 分 派 并 应 用 它 。 

无 论 何 时 ， 只 要 我 们 需要 某 个 表达 式 的 实际 值 RA | 


(define (actual-value exp env) 
(force-it (eval exp env))) | 
而 不 能 只 用 eval ， 这 样 ， 如 果 这 个 表达 式 的 值 是 一 个 槽 ， 它 就 会 被 强迫 求 出 值 来 。 
我 们 新 版 本 的 apply 也 几乎 与 4.1.1 节 里 的 一 样 。 不 同 之 处 在 于 送 给 eval 的 是 未 经 求 值 的 
运算 对 象 表达 式 ， 对 于 基本 过 程 (它们 是 严格 的 )， 我 们 需要 在 应 用 这 些 过 程 之 前 求 值 有 关 的 
参数 ， 对 于 复合 过 程 (它们 非 严格 )， 就 在 应 用 这 些 过 程 时 拖延 对 所 有 参数 的 求 值 。 
(define (apply procedure arguments env) — 7 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure 
procedure 
({list-of-arg-values arguments env))) ; changed 
( (compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
(list-of-delayed-args arguments env) ; changed 
(procedure-environment procedure) ))) 
(else | 
(error 
"Unknown procedure type -- APPLY" procedure) ))) 


处 理 参 数 的 过 程 就 像 4.1.1 节 里 的 list-of-values， 但 List-of-delayed-args 也 延 时 
有 关 的 参数 而 不 是 求 值 它们 ,而且 1list-of-arg-values 用 的 是 actual-value 而 不 是 


240 惰性 求 值 与 记忆 性 的 组 合 有 时 被 称 为 按 需 调 用 的 参数 传递 ,与 按 名 调用 相对 应 ( 按 名 调用 由 Algol 60 引 进 , 
类 似 于 不 带 记忆 的 情 性 求 值 )。 作 为 语言 设计 者 ， 我 们 可 以 构造 自己 的 求 值 融 ， 使 之 带 有 记忆 ， 或 者 不 带 记 
忆 ， 或 者 将 这 一 问题 留 给 程序 员 (练习 4.31 )。 正 如 你 根据 第 3 章 可 以 想到 的 ， 如 果 在 这 里 出 现 赋值 ee 
择 将 会 引出 一 些微 妙 而 且 迷 惑 人 的 问题 (参见 练习 4.27 和 4.29)。 有 一 篇 极 好 的 文章 (Clinger 1982) 兽 试 图 
淤 清 这 里 产生 的 混乱 ， 理 出 其 中 的 头绪 。 
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eval. 


(define (list-of-arg-values exps env) 
(if (no-operands? exps) 
"() 
(cons (actual-value (first-operand exps) env) 
(list-of-arg-values (rest-operands exps) 
env)))) 


(define (list-of-delayed-args exps env) 
(if (no-operands? exps) 
() 
(cons (delay-it (first-operand exps) env) 
(list-of-delayed-args (rest-operands exps) 
env)))) 


求 值 器 里 另 一 个 必须 修改 的 地 方 是 对 if 的 处 理 ， 在 这 里 我 们 必须 用 actual-value 取 代 
eval ， 以 便 在 测试 真 或 者 假 之 前 取得 谓词 表达 式 的 值 : 
(define (eval-if exp env) 
(if (true? (actual-value (if-predicate exp) env) ) 
(eval (if-consequent exp) env) 
(eval (if-alternative exp) env))) 


最 后 ， 我 们 还 必须 修改 driver-loop 过 程 ( 见 4.1.4 节 ) ， 在 其 中 用 actual1-value 人 代替 
eval ， 这 就 使 得 当 延 时 的 值 传播 问 到 读 入 一 求 值 一 打印 循环 时 ,在 打印 之 前 将 强迫 对 它们 求 
值 。 我 们 还 修改 了 提示 符 ， 以 表明 这 是 一 个 惰性 求 值 器 : 


{define input-prompt ";;; L-Eval input:") 
{define output-prompt ";;; L-Eval value:") 


{define (driver-loop) 
(prompt-for-input input-prompt) 
(let (({input (read))) 
{let ((output 
(actual-value input the-global-environment) ) ) 

(announce-output output-prompt ) 
(user-print output) ) ) 

(driver-loop) ) 


做 完了 这 些 修 改 之 后 ， 就 可 以 启动 这 个 求 值 器 并 测试 它 了 。 对 4.2.1 节 里 讨论 的 tzY 表 达 
式 的 成 功 求 值 表明 这 个 解释 器 确实 是 在 做 惰性 求 值 : 


(define the-global-environment (setup-environment) ) 
(driver-loop) 


s.. L-Eval input: 
{define (try a bD) 

(if (= a 0) 1 B)) 
ese L-Eval value: 
ok 


3:3; L-Eval input: 
(try 0 (/ 1 0)) 
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se: L-Eval value: 
1 


MURT 
我 们 必须 设法 对 这 个 求 值 器 做 一 些 安 排 ， 使 它 能 在 将 过 程 应 用 于 参数 时 创建 有 关 的 槽 ， 
并 能 在 以 后 强迫 这 些 槽 的 求 值 。 一 个 槽 必须 包装 起 一 个 表达 式 和 一 个 环境 ， 以 便 在 后 来 可 以 
生成 相应 的 实际 参数 。 在 强迫 一 个 槽 求 值 时 ， 只 需 简 单 从 槽 中 提取 出 表达 式 和 环境 ， 并 在 此 
环境 里 对 表达 式 求 值 。 这 里 也 应 该 用 actual~value 而 不 是 eval， 如 果 表 达 式 的 值 本 身 仍 
然 是 一 个 槽 ， 那 么 就 还 需要 强迫 它 ， 并 这 样 继续 下 去 ， 直 到 得 到 某 个 不 是 槽 的 东西 为 止 : 
(define (force-it obj) 
(if (thunk? obj) 
(actual-value (thunk-exp obj) (thunk-env obj) ) 
obj)) 
包装 起 一 个 表达 式 和 一 个 环境 的 最 简单 方式 是 做 出 一 个 表 ， 其 中 包含 着 这 个 表达 式 和 对 
应 的 环境 。 这 样 ， 我 们 可 以 用 如 下 方式 创建 槽 : 


(define (delay-it exp env) 
(list ‘thunk exp env) ) 


(define (thunk? obj) 
{tagged-list? obj ‘thunk)) 


(define (thunk-exp thunk) (cadr thunk)) 


(define (thunk-env thunk) (caddr thunk) ) 


实际 上 ， 我 们 希望 自己 的 解释 器 做 的 还 不 仅 是 这 些 ， 还 需要 槽 能 够 记忆 。 当 一 个 档 锌 强 
迫 求 值 时 ， 我 们 就 将 它 转变 为 一 个 已 求 值 的 梢 ， 将 其 中 的 表达 式 用 相应 的 值 取 代 ， 并 改变 其 
thunk 标 志 ， 以 便 能 识别 出 它 是 已 经 求 过 值 的 ” : 


(define (evaluated-thunk? obj) 
(tagged-list? obj ’evaluated-thunk) ) 


(define (thunk-value evaluated-thunk) (cadr evaluated-thunk) ) 


(define (force-it obj) 
(cond ({(thunk? obj) 
(let ((result (actual-value 
(thunk-exp obj) 
(thunk-env obj)))) 
(set-car! obj ‘evaluated-thunk) 


(set-car! (cdr obj) result) ; replace exp with its value 
(set-cdr! (cdr obj) °()) ; forget unneeded env 
result) ) 


((evaluated-thunk? obj) 


U ee, —HE—-P REM RIARER HMA, ik ERARA pH env, AHE MF Ss BR 
有 任何 影响 ， 只 是 有 助 于 节约 空间 ， 因 为 从 槽 中 删除 对 env 的 引用 ， 一 且 这 一 对 象 不 再 需要 ， 有 关 的 结构 就 
可 以 被 废料 收集 ， 其 空间 就 能 回收 ， 如 我 们 区 .3 节 将 要 讨论 的 。 

与 此 类 似 ， 在 3.5.1 节 里 ， 也 可 以 对 记忆 了 的 延 时 对 象 中 不 再 需要 用 的 环境 做 废料 收集 ， 方 法 就 是 让 
memo-proc 在 保存 了 自己 的 值 之 后 ， 做 某 种 像 (set! proc '0) 一 类 的 事情 ， 抛 弃 其 中 的 过 程 Proc (E 
包含 了 一 个 环境 ， 以 便 delay 在 那里 求 值 )。 
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(thunk-value obj)) 
(else obj))) 


请 注意 ， 同 一 个 delay-it 过程 对 于 有 记忆 或 者 没有 记忆 的 情况 都 能 工作 。 
练习 4.27 ”假定 我 们 将 下 面 定 义 送 给 惰性 求 值 器 : 

(define count 0) 

(define (id x) 


(set! count (+ count 1)) 
x) 


请 给 出 下 面 交 互 序列 中 空缺 的 值 ， 并 解释 你 的 回答 “。 
(define w (id (id 10))) 


se: L=-Eval input: 
count 
s.» L-Eval value: 


<response> 


s.» LeEval input: 
W 

s>. L-Eval value: 
<response> 

es: LeEval input: 
count 

e+: L-Eval value: 


<response> 
练习 4.28 eval 在 把 运算 符 送 给 apPPlY 之 前 ， 是 采用 actual-value 而 不 是 eval 去 求 
值 它 ， 以 便 强迫 得 到 运算 符 的 值 。 请 给 出 一 个 例子 ， 说 明 在 这 里 必须 这 样 强 迫 求 值 。 


练习 4.29 ”请 展示 一 个 程序 ， 按 照 你 的 预期 ， 如 果 没 有 记忆 功能 ， 它 的 运行 会 比 有 记忆 功 
能 时 慢 得 多 。 此 外 ， 请 考虑 下 面 的 交互 ， 其 中 的 id 过 程 在 练习 4.27 里 定义 ， count 从 0 开始 : 


{define (square xXx) 
(* x X)) 

ee: L-Eval input: 

(square (id 10)) 

ess; L-Eval value: 

<response> 

ee: L-Eval input: 

count 

e... L-Eval value: 


<response> 
请 给 出 在 有 或 者 没有 记忆 功能 时 求 值 器 的 反应 。 

练习 4.30 Cy D. Fect 以 前 是 个 C 程 序 员 ， 他 担心 程序 的 某 些 副 作用 根本 就 不 能 实现 ， 因 
为 惰性 求 值 器 并 不 强迫 一 个 序列 里 的 某 些 表达 式 求 值 。 这 是 因为 在 一 个 序列 旦 ， PR T Sehi 


m ;x 个 练习 说 明 ， 在 惰性 求 值 和 副作用 之 间 的 相互 作用 是 非常 迷惑 人 的 。 这 也 应 该 是 你 根据 第 3 章 的 讨论 可 以 
想到 的 情况 。 
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个 表达 式 之 外 ， 其 他 表达 式 的 值 都 没有 用 到 (这 些 表 达 式 仅仅 提供 自己 的 效果 ， 例 如 给 某 个 
变量 赋值 或 者 打印 输出 ) ， 随 后 也 完全 可 能 因为 不 会 用 到 这 些 值 ( 例 如 ， 将 它们 用 作 某 个 基本 
过 程 的 参数 ) 而 不 会 强迫 对 它们 求 值 。 因 此 Cy 就 想 ， 在 求 值 一 个 序列 时 ， 我 们 必须 强迫 序列 
中 除了 最 后 表达 式 之 外 的 所 有 表达 式 求 值 。 他 为 此 提议 修改 取 自 4.1.1 市 的 eval-sequence， 
其 中 采用 actualL-valLue 而 不 是 eval : 
(define (eval-sequencé exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env)) 
(else (actual-value (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 
a) Ben Bitdiddle 认 为 Cy 的 看 法 不 对 。 他 给 Cy 演 示 了 2.23 节 中 描述 的 for-~each 过 程 ， 这 
是 一 个 重要 的 带 有 副作用 的 序列 的 例子 : 
(define (for-each proc items) 
(if (null? items) 
"done 
(begin (proc (car items) ) 
(for-each proc (cdr items))))) 


他 断言 说 ， 本 节 正 文中 的 求 值 六 (采用 原来 的 eval-sequence ) 能 够 正 确 处 理 : 


ees; L-Eval input: 

(for-each (lambda (x) (newline) (display x)) 
(list 57 321 88)) 

57 

321 

88 

see L-Eval value: 

done 


请 解释 为 什么 Ben 关 于 for-each 行 为 的 说 法 是 正确 的 。 

b) Cy 同意 Ben 关 于 for-each 实 例 的 看 法 ， 但 是 他 说 ， 这 并 不 是 他 在 提议 修改 eval- 
sequence 时 所 考虑 的 那 一 类 程序 。 他 在 情 性 求 值 器 里 定义 了 下 面 两 个 过 程 : 

(define (pl x) 


(set! x (cons x °(2))) 
x) 


{define (p2 x) 
(define (p e) 
e 
x) 
(p (set! x (cons x (2))))) 


对 于 原来 的 eval-sequence, (pl 1) 和 (p2 1) 的 值 将 会 是 什么 ? 对 于 按照 Cy 的 建议 修 
改 后 的 eval-sequence ， 这 两 个 表达 式 的 值 又 会 是 什么 ? 

c) Cy 还 指出 ， 在 像 他 建议 的 那样 修改 了 eval-sequence 之 后 ， 对 于 a 中 那 种 实例 的 行 
为 不 会 有 影响 。 请 解释 为 什么 这 一 说 法 是 正确 的 。 

d) 你 认为 在 惰性 求 值 器 里 应 该 如 何 处 理 序 列 的 问题 ? 你 喜欢 Cy 的 方法 ， 还 是 喜欢 正文 中 


的 方法 ， 或 者 其 他 什么 方法 ? | 
练习 4.31 “本 节 所 采取 的 途径 有 些 令 人 不 快 ， 因 为 它 对 Scheme 做 了 一 种 不 兼容 的 修改 。 
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将 情 性 求 值 实现 为 一 种 向 上 兼容 的 扩充 可 能 更 好 一 些 ， 也 就 是 说 ， 使 常规 的 Scheme 还 能 像 原 
来 一 样 工作 。 我 们 可 以 通过 扩充 过 程 定 义 的 语法 的 方式 达到 这 种 目的 ， 使 用 户 可 以 控制 是 个 
让 参数 延 时 。 在 考虑 这 种 做 法 时 ， 我 们 还 可 以 进一步 允许 用 户 在 延 时 参数 古 否 记忆 方面 做 出 
选择 。 举 例 来 说 ， 定 义 : | 


(define (f a (b lazy) c (d lazy-memo) ) 
os) 


将 f 定 义 为 一 个 包含 4 个 参数 的 过 程 ， 其 中 的 第 一 个 和 第 三 个 参数 在 过 程 调 用 时 求 值 ， 第 二 个 
参数 延 时 求 值 ， 第 四 个 参数 延 时 并 记忆 。 这 样 ， 常 规 的 过 程 定义 将 产生 与 常规 3cheme 完 全 一 
样 的 行为 ， 而 如 果 给 每 个 复合 过 程 的 各 个 参数 都 加 上 1lazy-memo 声明， 就 能 产生 出 与 本 市 定 
义 的 情 性 求 值 器 一 样 的 行为 。 请 设计 并 实现 上 述 修 改 ， 做 出 一 个 这 样 的 Scheme 扩 充 。 你 将 需 
要 去 实现 新 的 语法 过 程 ， 以 处 理 define 的 新 语法 形式 。 你 还 必须 重新 安排 eval 或 者 apPlYy， 
以 确定 什么 时 候 参 数 是 被 延 时 的 ， 并 根据 情况 强迫 或 者 延 时 有 关 的 参数 。 你 也 必须 对 记忆 与 
否 做 出 适当 的 安排 。 


4.2.3 将 流 作为 情 性 的 表 


在 3.5.1 节 里 ， 我 们 说 明了 如 何 将 流 实 现 为 一 种 延 时 的 表 。 当 时 引进 了 特殊 形式 aelay 和 
cons-stream， 它们 能 用 于 构造 出 一 个 能 用 于 计算 流 的 cdr 的 “允诺 ”， 在 实际 需要 之 前 不 
必 去 落实 这 种 允诺。 如 果 我 们 需要 对 求 值 过 程 的 更 多 控制 ， 那 么 就 可 以 利用 这 种 引进 特殊 形 
式 的 一 般 性 技术 ,但 这 种 做 法 并 不 令 人 满意 。 从 一 个 方面 看 ， 特 殊 形式 并 不 像 过 程 ， 它 们 不 
是 一 阶 的 对 象 ， 因 此 我 们 无 法 将 它们 与 高 阶 过 程 一 起 使 用 :43 。 此 外 ， 我 们 还 不 得 不 把 流 创 建 
为 一 类 新 的 对 象 ， 与 表 类 似 但 又 不 一 样 ， 这 也 就 要 求 我 们 去 重新 实现 许多 常规 的 表 操作 (如 
map、append 等 等 )， 以 便 能 将 它们 用 于 流 。 

有 了 情 性 求 值 之 后 ， 洗 和 表 就 完全 一 样 了 ， 所 以 也 就 不 再 需要 任何 特殊 形式 ， 也 不 再 需 
要 区 分 表 操 作 和 流 操 作 。 我 们 需要 做 的 全 部 事情 就 是 做 好 一 些 安排 ， 设 法 使 cons 成 为 非 严 格 
的 ， 完 成 这 件 事 的 一 种 方式 是 扩充 惰性 求 值 器 ， 人 允许 非 严格 的 基本 过 程 ， 将 cons 实现 为 它们 
由 的 一 个 。 另 一 更 简单 的 方式 是 回忆 前 面 讨论 过 的 一 个 事实 ( 见 2.1.3 节 )， 完 全 可 以 不 把 
cons 实现 为 基本 过 程 。 换 种 方式 ， 我 们 可 以 把 序 对 表示 为 过 程 ?4%， | 

(define (cons x y) 

{lambda (m) (m x y))) 

(define (car zZ) 


(z (lambda (p q) P))) 


(define (cdr 2) 
(z (lambda (p q) q))) 


利用 这 些 基本 操作 ， 各 种 表 操 作 的 标准 定义 也 将 同样 适用 于 无 穷 的 表 (W), ， 就 像 它们 可 
以 用 于 有 穷 的 表 一 样 。 流 操作 也 都 可 以 实现 为 表 操 作 。 下 面 是 一 些 例子 : 


23 这 也 就 是 练习 4.26 里 unless 过 程 的 问题 。 

m 注 正 是 练习 2.4 中 所 描述 的 过 程 性 表示 。 从 本 质 上 说 ， 任 何 过 程 性 表示 都 可 以 用 (例如 ， 消 息 传递 实现 ) 。 请 
注意 ， 我 们 可 以 简单 地 把 这 些 定义 放 进 驱动 循环 里 ， 以 此 将 它们 安装 到 惰性 求 值 器 里 。 如 果 原来 已 将 cons、 
car 和 cdzr 作 为 全 局 环境 里 的 基本 过 程 ， 这 样 就 重新 定义 了 它们 ( 另 见 练习 4.33 和 练习 4.34)。 
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(define (list-ref items n) 
(if (=n 0) 
{car items) 
{list-ref (cdr items) (- n 1)))) 


(define (map proc items) 
(if (null? items) 
() | 
(cons (proc (car items)) 
(map proc (cdr items))))) 
(define (scale~list items factor) 


(map (lambda (x) (* x factor)) 
items ) ) 


(define (add-lists listl list2) 
(cond ((null? listl) list2) 
((null? list2) listi) 
(else (cons (+ {car listl) (car list2)) 
(add-lists (cdr listl) (cdr iist2)))))) 


(define ones (cons 1 ones)) 
(define integers (cons 1 (add-lists ones integers) )) 


777 L-Eval input: 
(list-ref integers 17) 
ese L-Eval value: 
18 | 
请 注意 ， 这 种 情 性 的 表 甚至 比 第 3 章 里 的 流 更 加 情 性 ， 这 种 表 里 的 car 也 是 延 时 的 ， 与 其 
cdr 一 样 *。 事 实 上 ， 其 至 在 访问 一 个 惰性 序 对 的 car 或 者 car 时， 也 不 会 去 强迫 得 出 表 元 素 
的 值 。 只 有 在 真正 需要 的 时 候 才 会 强迫 得 到 它们 -一 也 融 是 讽 ， 在 被 用 作 基 本 过 程 的 参数 ， 
或 者 需要 作为 结果 打印 时 。 
惰性 序 对 对 于 3.5.4 节 中 由 于 流 而 引起 的 问题 也 很 有 帮助 ， 在 那里 我 们 看 到 ， 当 需要 用 一 
个 循环 做 出 系统 的 流 模型 时 ， 除 了 使 用 由 cons-stream 提 供 的 delay 操 作 外， 我 们 还 不 得 
不 在 程序 中 某 些 地 方 点 缀 一 些 显 式 的 delay 操 作 。 有 了 情 性 求 值 之 后 ， 所 有 的 过 程 参 数 就 无 
一 例外 都 是 延 时 的 了 。 举 例 说 ， 我 们 现在 可 以 按 3.5.4 节 原来 所 希望 的 方式 去 做 表 的 积分 ， 去 
求解 微分 方程 : 
(define (integral integrand initial-value dt) 
{define int 
(cons initial-value 
(add-lists (scale-list integrand dt) 
int))) 
int) 
(define (solve f y0 dt) 
(define y (integral dy y0 dt)) 
| (define dy (map 上 + y)) 
y) 


mS 这 将 使 我 们 能 够 创建 更 具 一 般 性 的 表 结构 的 延 时 版 本 ， 而 不 仅仅 是 序列 。Hughes 1990 中 讨论 了 “ 情 性 树 
的 某 些 应 用 。 
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733 L-Eval input: 

(list-ref (solve (lambda (x) x) 1 0.001) 1000) 
‘s23 L-Eval value: 

2.716924 


练习 4.32 ”请 给 出 一 些 例子 ， 显 示 在 第 3 章 的 流 与 本 节 描 述 的 “更 惰性 ”的 惰性 表 之 间 的 
不 同 。 你 可 能 怎样 利用 这 种 多 出 来 的 惰性 ? 
练习 4.33 Ben Bitdiddle 用 下 面 的 表达 式 测 试 了 上 面 给 出 的 情 性 表 实 现 


(car (ab c)) 


令 他 了 吃惊 的 是 ， 这 却 产 生出 一 个 错误 。 经 过 一 些 思考 之 后 ， 他 认识 到 ， 由 读 和 人 一 个 引 志 
表达 式 而 得 到 的 “ 表 ” 与 cons 、car 和 cdr 的 新 定义 操作 的 那 种 表 是 不 同 的 。 请 修改 求 值 器 
里 对 引号 表达 式 的 处 理 ， 使 得 驱动 循环 读 入 的 加 引号 的 表 能 够 产生 出 情 性 表 。 

练习 4.34 ”请 修改 求 值 器 的 驱动 循环 ， 使 得 惰性 序 对 和 表 能 以 某 种 合理 的 形式 打印 出 来 。 
(你 将 如 何 对 付 无 穷 表 ? ) 你 可 能 还 需要 修改 惰性 序 对 的 表示 ， GEOR A SAE BABI EAN, 以 便 
完成 打印 工作 。 


4.3 Scheme 的 变形 一 一 非 确 定性 计算 


在 这 一 节 里 ， 我 们 将 扩展 Scheme 求 值 器 ， 以 便 支 持 另 一 种 称 为 非 确定 性 计算 的 程序 设计 
范 型 。 这 里 采用 的 方式 是 将 一 种 支持 自动 搜索 的 功能 做 进 求 值 强 里 。 4.2 布 引进 情 性 求 值 相 
Lk, SBS AKA AM EMR 

非 确 定性 计算 与 流 处 理 类 似 ， 对 于 “生成 和 检测 式 - 的 应 用 特别 有 价值 。 作为 开始 ,， 现 
在 考虑 下 面 工 作 ， 有 一 对 正 整数 的 表 ， 我 们 要 从 中 造 出 一 对 整数 一 一 其 中 一 个 取 目 第 一 个 表 ， 
另 一 个 取 自 第 二 个 表 一 一 它们 之 和 是 素数 。 在 2.2.3 节 里 我 们 已 经 看 过 如 何 通过 有 限 序 列 操作 
的 方式 解决 这 一 问题 ， 在 3.5.3 节 看 过 如 何 用 无 穷 流 。 所 采用 的 方式 都 是 生成 所 有 可 能 的 数 对 ， 
而 后 过 滤 出 那些 和 为 素数 的 数 对 。 无 论 我 们 是 像 在 第 2 章 里 那样 首先 实际 生成 出 数 对 的 序列 ， 
还 是 像 第 3 章 那 样 换 一 种 方式 ， 交 错 式 地 生成 和 过 滤 ， 对 于 如 何 组 织 这 一 计算 过 程 的 基本 图 最 
都 没有 产生 任何 影 啊 。 

非 确 定性 的 方式 则 Bh BA FAR. 简单 设想 我 们 需要 (按照 某 种 方式 ) 从 第 一 个 表 
中 取 一 个 数 ， 并 (采用 同样 方式 ) 从 第 二 个 表 里 取 一 个 数 ， 使 它们 之 和 是 素数 。 这 件 事 可 以 
采用 下 面 过 程 的 述 : 

(define (prime-sum-pair listli list2) 

(let ((a (an-element-of listl)) 
(b (an-element-of list2))) 
(require (prime? (+ a B))) 
(list a b))) 


看 起 来 这 个 过 程 就 像 是 问题 的 另 一 个 重新 陈述 ， 而 没有 描述 出 一 种 解决 它 的 方法 。 但 无 论 如 
何 ， 这 就 是 一 个 合法 的 非 确定 性 程序 “。 : 


46 我们 假定 已 定义 了 过 程 Prime? ， 它 能 检测 一 个 数 是 否 为 素数 MAT prime? Me x, prime-sum- 
pair 过 程 看 起 来 也 非常 可 疑 ， 就 像 是 用 毫 无 帮助 的 “ 伪 Lisp” 企 图 去 定义 平方 根 过 程 ， 如 我 们 在 1.1 7 A 
始 时 所 说 的 那样 。 事 实 上 ， 求 平方 根 的 过 程 也 可 以 按照 这 条 路 线 ， 实 际 描述 为 一 个 非 确定 性 的 程序 。 通 过 将 
其 种 搜索 机 制 结合 进 求 值 器 里 ， 我 们 将 逐步 侵蚀 位 于 纯 的 说 明 性 描述 ， 和 有 关 计 算 机 将 如 何 给 出 回答 的 过 程 
性 描述 之 间 的 清晰 界限 。 在 4.4 节 里 ， 我 们 将 在 这 个 方向 上 深入 讨论 。 
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这 里 的 关键 想法 是 ， 在 一 个 非 确定 性 语言 里 ， 表 达 式 可 以 有 多 于 一 个 可 能 的 值 。 例 如 ， 
an-element-of 可 能 返回 一 个 给 定 表 里 的 任何 一 个 元 素 。 我 们 的 非 确定 性 程序 求 值 A ut 
行 有 关 的 工作 ， 从 中 自动 选 出 一 个 可 能 的 值 ， 并 维持 有 关 选 择 的 轨迹 。 如 果 随 后 的 要 求 无 法 
满足 ， 求 值 器 就 会 尝试 另 一 种 不 同 的 选择 ， 而 且 它 会 不 断 地 做 出 新 的 选择 ， 直 至 求 值 成 功 ， 
或 者 已 经 用 光 了 所 有 的 选择 。 正 如 情 性 求 值 器 可 以 使 程序 员 摆 脱 有 关 值 如 何 延 时 或 者 强迫 的 
细节 一 样 ， 非 确定 性 的 求 值 器 将 使 程序 员 摆 脱 如 何 做 出 这 些 选 择 的 细节 。 

有 一 件 很 有 教 益 的 事情 ， 那 就 是 将 非 确定 性 求 值 和 流 处 理 中 引起 的 不 同时 间 图 景 做 一 个 
比较 。 流 处 理 中 利用 了 情 性 求 值 ， 设 法 去 松 驰 装 配 出 可 能 回答 的 流 的 时 间 与 实际 的 流 元 素 产 
生出 来 的 时 间 之 间 的 关系 。 这 种 求 值 器 支持 这 样 一 种 错觉 ， 好 像 所 有 可 能 的 结果 都 以 一 种 无 
了 时间 顺序 的 方式 摆 在 我 们 面前 。 对 于 非 确定 性 的 求 值 ， 一 个 表达 式 表 示 的 是 对 于 一 集 可 能 世 
界 的 探索 ， 其 中 的 每 一 个 都 由 一 集 选择 所 确定 。 某 些 可 能 世界 将 走 人 死胡同， 而 另 一 些 里 则 
保存 着 有 用 的 值 。 非 确定 性 程序 求 值 器 支持 另 一 种 假 相 : 时 间 是 有 分 支 的 ， 而 我 们 的 程序 里 
保存 着 所 有 可 能 的 不 同 执行 历史 。 在 遇 到 一 个 死胡同 时 ， 我们 总 可 以 回 到 以 前 的 某 个 选择 点 ， 
并 党 着 另 一 个 分 支 继续 下 E. 

下 面 将 要 实现 的 非 确定 性 程序 求 值 器 称 为 amb 求 值 器 ， 因 为 它 基 于 一 个 称 为 amb 的 新 特殊 
形式 。 我 们 可 以 将 上 面 那样 的 prime-sum-paiz 定 义 送 给 这 一 求 值 器 的 驱动 循环 (还 需要 送 
上 prime?、an-element-of 和 和 require 的 定义 ) ， 并 得 到 下 面 这 样 的 过 程 运行 : 

;;; Amb-Eval input: 

(prime-sum-pair *(1 3 5 8) (20 35 110)) 

;; Starting a new problem 

*:* Amb-Eval value: 

(3 20) 

能 够 得 到 这 里 的 返回 值 ， 是 由 于 求 值 器 将 会 反复 地 从 两 个 表 里 选 出 一 对 一 对 元 素 ， 直 至 做 出 
了 一 次 成 功 的 选择 。 

4.3.1 节 将 介绍 amb ， 并 解释 它 如 何 通过 求 值 器 的 自动 搜索 机 制 支持 非 确定 性 。4.3.2 节 给 

出 了 一 个 非 确定 性 程序 的 例子 ，4.3.3 节 给 出 了 如 何 通 过 修改 常规 的 Scheme 求 值 名 ， 实 现 amb 


求 值 器 的 细节 。 
4.3.1 amb 和 搜索 
为 了 扩充 Scheme 以 支持 非 确定 性 ， 我 们 要 引进 一 种 称 为 amb 的 新 特殊 形式 ?”。 表 达 式 
(amb <e> <e> … <en>)“ 有 歧义 性 地 ”返回 h 个 表达 式 <e 户 之 一 的 值 。 举 例 说 ， 表 达 式 
(list (amb 1 2 3) (amb ’a ‘b)) 
可 以 有 如 下 六 个 可 能 的 值 : 
(la) (lb) (2a) (2b) (3a) (3Db) 


只 有 一 个 选择 的 amb 将 产生 常规 的 〈 一 个 ) 值 。 
没有 选择 的 amb 一 一 表达 式 (amb) 一 一 是 一 个 没有 可 接受 值 的 表达 式 。 按 照 操 作 的 观 后 ， 


247 实现 非 确 定性 程序 设计 的 amb 思想 是 John McCarthy 在 1961 年 第 一 次 提出 和 的 ( 见 McCarthy 1967), 
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我 们 可 以 认为 (amb) 就 是 这 样 的 一 个 表达 式 ， 对 它 的 求 值 将 导致 计算 “失败 "， 这 一 计算 将 
会 流产 ， 而 且 不 会 产生 任何 值 。 利 用 这 一 思想 ， 我 们 可 以 将 某 个 特定 谓词 必须 为 真 的 要 求 表 
述 为 下 面 的 定义 : 
(define (require p) 
(if (not p) (amb) )) 
有 了 amb 和 require， 我 们 就 可 以 实现 上 面 的 an-element-of 过 程 了 : 


(define (an-element-of items) 
(require (not (null? items) )) 
(amb (car items) (an-element-of (cdr items) ))}) 


“4# AZ htan-element-of kk, 否则 它 就 会 (具有 歧义 性 地 ) 或 者 返回 表 里 的 第 一 个 元 
素 ， 或 者 返回 选 自 表 中 其 余部 分 的 某 个 元 素 。 

我 们 还 可 以 表述 无 穷 的 选择 。 下 面 过 程 可 能 返回 任何 一 个 大 于 或 者 等 于 某 个 给 定 的 ? 值 的 
He HK 


(define (an-integer-~starting-from n) 
(amb n (an-integer-starting-from (+ n 1)))) 


这 就 像 是 在 3.5.2 节 里 描述 的 流 过 程 ijntegers-starting-from， 但 这 里 有 一 点 重要 不 
同 : 流 过 程 返 回 的 是 一 个 对 象 ， 它 表示 的 是 从 n 开 始 的 所 有 整数 的 序列 ， 而 amb 过 程 返 回 的 就 
是 一 个 整数 ”。 

抽象 地 看 ， 我 们 可 以 认为 ， 求 值 一 个 amb 表 达 式 将 导致 时 间 分 裂 为 不 同 的 分 支 ， 而 计算 
将 在 每 一 个 分 支 (其 中 取 定 了 该 表达 式 的 一 个 值 ) 里 进行 。 我 们 说 一 个 amb 表 示 了 一 个 非 确 
定性 的 选择 点 。 如 果 有 一 台 机 器 ， 它 有 足够 多 的 可 以 动态 分 配 的 处 理 器 ， 我 们 吏 能 以 一 种 直 
截 了 当 的 方式 实现 这 种 搜索 。 这 里 的 执行 就 像 在 一 台 硕 序 机 器 上 那样 进行 ， 直 至 遇 到 了 一 个 
amb 表 达 式 。 在 这 个 点 上 ， 需 要 分 配 并 初始 化 更 多 的 处 理 器 ， 并 继续 进行 这 一 选择 所 强 含 的 
所 有 并 行 执行 。 每 个 处 理 器 又 将 顺序 地 进行 下 去 ， 就 像 它 只 有 一 种 选择 那样 ， 直 至 或 者 因为 
遇 到 失败 而 结束 ， 或 者 需要 进一步 分 支 ， 或 者 成 功 结束 ”。 

在 另 一 方面 ， 如 果 我 们 有 一 台 机 器 ， 它 只 能 执行 一 个 进程 (或 者 若干 个 并 发 的 进程 )， 
我 们 就 必须 换 一 种 实现 顺序 性 的 方式 。 我 们 可 以 设想 去 修改 求 值 器 ， 使 之 在 遇 到 一 个 选择 
点 时 随机 地 选取 一 个 分 支 走 下 去 。 当 然 ， 随 机 选取 很 可 能 导向 失败 的 值 。 这 样 就 需要 一 次 
次 重新 运行 求 值 器 ， 再 做 随机 选择 ， 以 期 找到 一 个 不 失败 的 值 。 一 种 更 好 的 方式 是 系统 化 
地 搜索 所 有 可 能 的 执行 路 径 。 我 们 将 要 开发 的 ， 并 在 本 节 中 使 用 的 amb 求 值 耕 实现 了 如 下 
的 一 种 系统 化 搜索 方式 ， 当 这 个 求 值 器 遇 到 一 个 amb 应 用 时 ， 它 一 开始 总 是 选择 第 一 个 可 
能 性 。 这 一 选择 又 可 能 导致 随后 的 选择 。 在 每 个 选择 点 ， 这 一 求 值 器 在 开始 时 总 是 选择 第 


24 实际 上， 在 非 确 定性 地 返回 一 个 选择 与 返回 所 有 选择 之 间 的 差异 ， 在 某 种 意义 上 看 ， 依 赖 于 我 们 的 看 法 。 从 
使 用 有 关 值 的 代码 的 角度 看 ， 非 确定 性 选择 返回 的 是 一 个 值 。 从 设计 代码 的 程序 员 的 角度 看 ， 非 确定 性 选择 
是 潜在 地 返回 了 所 有 可 能 的 值 ， 而 计算 是 分 支 的 ， 所 以 各 个 值 将 被 分 别 探查 。 

249 有 人 可 能 反对 这 种 极端 无 效 的 机 制 ， 它 可 能 需要 数 以 百 万 计 的 处 理 器 去 求解 某 个 以 这 种 方式 可 以 简单 陈述 的 
问题 ， 而 且 在 其 中 大 部 分 的 时 间 里 ， 大 部 分 处 理 器 都 在 亲 置 着 。 对 于 这 种 反对 意见 ， 我 们 应 该 在 历史 的 环境 
中 去 分 析 。 过 去 ， 存 储 器 曾 被 认为 是 一 种 及 其 吊 贵 的 设备 。 在 1964 年 ， 一 兆 容 量 的 RAM 贵 到 400 000 美 元 。 
而 现在 每 台 个 人 计算 机 都 有 许多 兆 的 RAM ， 而 其 中 的 大 部 分 RAM 都 没有 使 用 。 我 们 决 不 应 该 低估 电子 学 的 
大 规模 生产 的 价值 。 


一 个 可 能 性 。 如 何 选择 的 结果 导致 失败 ， 那 么 这 个 求 值 器 就 自动 魔法 般 地 ” 回 湖 到 最 近 的 
选择 把 ， 并 去 试验 下 一 个 可 能 性 。 如 果 它 在 任何 选择 点 用 完了 所 有 的 可 能 性 ， 该 求 值 器 就 
将 退回 到 前 一 选择 点 ， 并 从 那里 继续 下 去 。 这 个 过 程 产生 的 是 一 种 称 为 深度 优先 的 搜索 策 
略 ， 或 称 为 按照 历史 回溯 5!。 

驱动 循环 | 

amb 求 值 絮 的 驱动 循环 有 一 些 很 不 寻常 的 性 质 。 它 读 入 一 个 表达 式 ， 并 且 打 印 出 第 一 个 
不 失败 的 执行 得 到 的 值 ， 就 像 在 上 面 的 Prime-sum-pair 例 子 里 所 示 的 那样 。 如 果 我 们 希望 
看 到 下 一 个 成 功 执行 的 值 ， 那 就 可 以 要 求解 释 器 回 滴 ， 让 它 试 着 去 产生 第 二 个 没有 失败 的 运 
行 。 我 们 可 以 通过 键入 符号 try~again 的 方式 发 出 这 一 信和 号。 如果 给 的 是 际 了 try-again 
之 外 的 任何 表达 式 ， 解释 器 都 会 开始 一 个 新 问题， 丢掉 前 面 问题 中 尚未 探索 的 那些 可 能 性 。 
下 面 是 一 个 交互 执行 示例 : 

ss: Amb-Eval input: 

(prime-sum-pair ‘(1 3 5 8) (20 35 110)) 

2:33 Starting a new problem 


s... Amb-Eval value: 
{3 20) 


22; Amb-Eval input: 
try-again 

33 Amb-Eval value: 
(3 110) 


es: Amb-Eval input: 
try-again 

73; Amb-Eval value: 
(8 35) 


s.. Amb-Eval input: 
try-again 
es: There are no more values of 


0 自动 魔法 般 地 :“ 自 动 地 ， 但 是 以 一 种 由 于 菜 些 原 因 (上 典型 的 情况 是 它 太 复 杂 ， 或 者 太 和 丑陋 ， 或 者 甚至 太 简 
单 )， 而 使 说 话 者 并 不 喜欢 去 解释 的 方式 .” (Steele 1983, Raymond 1993) 

25) 将 自动 搜索 策略 结合 到 程序 设计 语言 的 历史 曲折 而 复杂 。Robert Floyd (1967) 第 一 次 提出 可 能 通过 搜索 和 
自动 回溯， 把 非 确 定性 算法 很 优雅 地 做 进程 序 设 计 语 言 里 。Carl Hewitt (1969) 发 明了 称 为 Planner 的 程序 
设计 语言 ， 它 显 式 地 支持 自动 按 历史 回 湖 ， 提 供 了 内 部 的 深度 优先 搜索 策略 Sussman, Winograd 和 
Charniak (1971) 实现 了 这 一 语言 的 一 个 子 集 ， 称 为 MicroPlanner ， 用 于 支持 问题 求解 和 机 器 人 规划 工作 。 
类 似 的 想法 也 出 现在 逻辑 和 定理 证 明 的 领域 里 ， 导 致 优美 的 Prolog 语 言 在 爱丁堡 和 马赛 诞生 (我 们 将 在 4.4 
节 讨 论 它 )。 在 自动 搜索 遇 到 极 大 的 挫折 之 后 ，McDermott and Sussman (1972) 开发 出 一 种 名 为 Conniver 
的 语言 ， 它 包含 了 程序 员 的 控制 下 搜索 策略 的 安排 机 制 。 然 而 这 种 方式 被 证 明 是 非常 难 使 用 的 。 后 来 ， 
Sussman 和 Stallman (1975) 在 研究 电子 线路 的 符号 分 析 的 过 程 中 创建 了 一 种 更 容易 控制 的 方法 ， 他 们 开发 
出 一 种 基于 相互 关联 的 事实 之 间 的 依赖 关系 的 非 历史 的 回溯 模式 ， 这 种 技术 现在 已 经 被 称 为 依赖 导向 的 国 
湖 。 虽 然 他 们 的 方法 比较 复杂 ， 但 却 能 产生 出 具有 合理 效率 的 程序 ， 因 为 工作 中 很 少 做 多余 的 搜索 。Doyle 
(1979) 和 McAllester (1978, 1980) 推广 并 进一步 浴 清 了 Stallman 和 Sussman 的 方法 ， 开 发 了 一 种 新 的 构造 
搜索 的 形式 ， 现 在 被 称 为 真 值 保 持 。 新 型 问题 求解 系统 都 用 了 某 种 形式 的 真 值 保持 ， 作 为 其 中 的 一 种 基本 
技术 。 参 看 Forbus 和 deKleer 1993 关 于 构造 真 值 保持 系统 方法 的 讨论 。 Zabih McAllester 和 Chapman 1987 
描述 了 Scheme 的 一 种 基于 amb 的 非 确 定性 扩充 ， 与 本 节 所 描述 的 解释 器 很 类 似 ， 但 是 更 复杂 一 些 ， 因 为 其 
Het AMER MSE, MAE A. Winston 1992 介 绍 了 这 两 种 回 斋 。 


290 : PAS LES tb R 


(prime-sum-pair (quote {1 3 5 8)) (quote (20 35 110))) 


;}; Amb-Eval input: | 
(prime-sum-pair '(19 27 30) °’(11 36 58)) 
es: Starting a new problem 
::; Amb-Eval value: 
(30 11) 
练习 4.35 ”请 写 出 一 个 过 程 an~integer-~between， 它 返回 两 个 限界 之 间 的 一 个 整数 。 
它 可 以 用 于 实现 一 种 寻找 毕 达 哥 拉 斯 三 元 组 的 过 程 ， 也 就 是 说 ， 找 出 在 给 定 界限 内 (例如) 
的 整数 三 元 组 (i, j,k), WERSJE +P =k, 4T: z 
(define (a-pythagorean-triple-between low high) 
(let ({i (an-integer-between low high))) 
(let ((j (an-integer-between i high))) 
(let ((k (an-integer-between j high) )) 
(require (= (+ (* i i) (* j J)) (* k K))) 
(list i j k))))) 
练习 4.36 ”练习 3.69 讨 论 了 如 何 产 生出 所 有 毕 达 哥 拉 斯 三 元 组 的 流 ， 对 于 搜索 的 整数 大 小 
没有 上 界 。 请 解释 为 什么 简单 地 用 an-integer-starting-from 人 代替 练习 4.35 中 的 过 程 
an-integer-between， 并 不 是 生成 任意 毕 达 哥 拉 斯 三 元 组 的 合适 办 法 。 请 写 出 一 个 确实 
能 完成 这 一 工作 的 过 程 。( 也 就 是 说 ， 写 出 一 个 过 程 ， 对 它 反 复 键 入 try-again ,原则 上 ， 
将 能 最 终生 成 出 所 有 的 毕 达 哥 拉 斯 三 元 组 。) | 
练习 4.37 Ben Bitdiddle 断 言 下面 生 成 毕 达 哥 拉 斯 三 元 组 的 方法 比 练习 4.35 中 的 方法 效率 
更 高 。 他 说 得 对 吗 ? (提示 ， 请 考虑 几 个 必须 研究 的 可 能 性 。) 
(define (a-pythagorean-triple-between low high) 
{let ((i (an-integer-between low high) ) 
(hsq (* high high))) 
(let ((j (an-integer-between i high))) 
(let ((ksq (+ (* i i) (* j J)))) 
(require (>= hsq ksq)) 
(let ((k (sqrt ksq))) 
(require (integer? k)) 
(list i j k)))))) 


43.2 非 确定 性 程序 的 实例 


4.3.3 节 里 将 要 描述 amb 求 值 器 的 实现 ， 我们 在 这 里 先 给 出 几 个 可 能 怎样 使 用 它 的 例子 。 
非 确 定性 程序 设计 的 优点 ， 就 在 于 使 我 们 可 以 忽略 有 关 搜 索 将 如 何 进行 的 细节 ， 因 此 就 可 以 
在 更 高 的 层次 上 表述 所 需要 的 程序 。 

jp ait Bi 

下 面 的 谜 题 ( 取 自 Dinesman 1968) 是 一 大 类 简单 逻辑 谜 题 的 典型 代表 : 

贝克 、 库 伯 、 弗 莱 舍 、 米 勒 和 斯 麦 尔 住 在 一 个 五 层 公 帘 楼 的 不 间 层 ， 贝 殉 不 住 

在 顶层 ， 库 伯 不 住 在 底层 ， 弗 莱 舍 不 住 在 顶层 也 不 住 在 底层 。 米 勒 住 的 比 库 伯 高 一 

E, WERTER ZAHER, A TEE AHERE. A eE EE 

哪 后 。 
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RATAR Re e A REE, HOER CARR, REIL A 
居住 的 楼 层 一 : 


(define (multiple-dwelling) 
(let ((baker (amb 1 2 3 4 5)) 
(cooper (amb 1 2 3 4 5)) 
(fletcher (amb 1 2 3 4 5)) 
(miller (amb 1 2 3 4 5)) 
(smith (amb 1 2 3 4 5))) 
(require 
(distinct? {list baker cooper fletcher miller smith) )) 
(require (not (= baker 5))) 
(require (not (= cooper 1))) 
(require (not (= fletcher 5))) 
(require (not (= fletcher 1))) 
(require (> miller cooper) ) 
(require (not (= (abs (- smith fletcher)) 1))) 
(require (not (= (abs (- fletcher cooper)) 1))) 
(list (list ‘baker baker) 
(list ‘cooper cooper) 
(list “fletcher fletcher) 
(list ‘miller miller) 
(list ’smith smith)))) 


求 值 表达 式 (multiple-dwelling) 将 产生 下 面 结 术 : 


( (baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) 


虽然 这 个 简单 过 程 能 工作 ， 但 它 却 非常 慢 。 练 习 4.39 和 4.40 讨 论 了 一 些 改进 。 

练习 4.38 ”请 修改 上 述 多 层 住宅 过 程 ， 增 加 斯 麦 尔 和 弗 菜 舍 不 住 相 邻 层 的 要 求 。 这 个 新 
PEA 多少 个 解 ? 

练习 4.39 “在 上 述 多 层 住 宅 过 程 中 ， 约 束 条 件 的 顺序 会 影响 答案 吗 ? 它 会 影响 找到 答案 
的 时 间 吗 ? 如 果 你 认为 会 ， 那 么 请 通过 重新 排列 上 面 定 义 中 约束 条 件 的 顺序 ， 展 示 出 你 得 到 
的 更 快 的 程序 。 如 果 你 认为 没关系 ， 请 论证 你 的 观点 。 

练习 4.40 ” 在 上 述 多 层 住宅 问题 里 ,在 各 种 需求 和 楼 层 指 派 必 须 完成 的 不 同 检查 之 前 和 
之 后 ， 存 在 着 多 少 给 人 指定 楼 层 的 指派 集合 ?首先 生成 出 所 有 的 人 到 楼 层 的 指派 ， 而 后 通过 
回溯 删除 它们 是 很 低 效 的 方法 。 举 例 来 说 ， 大 部 分 约束 条 件 都 只 依赖 于 一 个 或 者 两 个 个 人 -楼 
层 变量 ， 因 此 可 以 在 为 所 有 人 选择 楼 层 之 前 安排 好 。 请 为 解决 这 一 问题 写 出 一 个 更 加 高 效 得 
多 的 非 确 定性 过 程 ， 其 中 只 产生 出 通过 限制 排除 了 不 可 能 情况 之 后 的 那些 可 能 性 ， 并 请 用 试 
验证 明 你 的 方案 有 效 。( 提 示 : 这 将 需要 写 出 嵌 套 的 let 表达 式 。) 


?2 我 们 的 程序 用 下 面 过 程 确定 一 个 表 里 的 各 个 元 素 是 否 互 不 相同 ， 


(define (distinct? items) 
(cond ((null? items) true) 
((null? (cdr items)) true) 
( (member (car items) (cdr items)) false) 
(else (distinct? (cdr items))))) 


member Smemq 类 似 ， 只 是 用 equal? 做 相等 判断 ， 而 不 是 用 eq? . 


TR 


练习 4.41 请 写 出 一 个 常规 的 Scheme 程序 ， 解 决 这 一 多 楼 层 问 题 。 

练习 4.42 ”请 解决 下 面 的 “说 谎 者 ” 谜 题 (fx A Phillips 1234 ) ， 五 个 女生 参加 一 个 考试 ， 
她 们 的 家 长 对 考试 结果 过 分 关注 。 为 此 她 们 约定 ， 在 给 家 里 写 信 谈 到 考试 时 ， 每 个 姑娘 都 要 
写 一 句 真 话 和 一 名 假 话 。 下 面 是 从 她 们 的 信和 里 摘出 的 句子 : 

UE: “MESS, RAB TBS.” 

MPR: “CMO RRS TR, BN.” 

琼 :“ 我 考 第 三 ， 可 怜 的 艾 赛 尔 考 得 最 差 。 

凯 蒂 :“ 我 第 二 ， 玛 丽 只 考 了 第 四 。” 

玛丽 :“ 我 是 第 四 ， 贝 蒂 的 成 绩 最 高 。” 

这 五 个 姑娘 实际 的 排名 是 什么 ? 

练习 4.43 ”请 用 求 值 器 解决 下 面 迹 题 ”: 

Mary Ann Moore 的 父亲 有 一 条 游艇 ， 他 的 四 个 朋友 Colonel Downing, Mr. Hall, Sir 
Barnacle Hood 和 Dr Parker 也 各 有 一 条 。 这 五 个 人 各 有 一 个 女儿 ， 每 个 人 都 用 另 一 个 人 的 女儿 
的 名 字 为 自己 的 游艇 命名 。Sir Barnacle 的 游艇 叫 Gabrielle ，Mr. Moore 拥 有 Lorna Mr. Hall} 
是 Rosalind ，Melissa 属 于 Colonel Downing ( 取 自 Sir Barnacle 的 女儿 的 名 字 ), Gabrielle 的 父亲 
的 游艇 取 的 是 Dr. Parker 的 女儿 的 名 字 。 请 问 谁 是 Lorna 的 父亲 。 | 

请 设法 写 出 一 个 能 高 效 运 行 的 程序 (参见 练习 4.40 ) 。 另 请 设法 确定 ， 如 果 设 有 告诉 我 们 
Mary Ann 姓 Moore ， 那 么 将 会 有 多 少 个 解 。 

练习 4.44 ”练习 2.42 描 述 了 “ 八 皇 后 谜 题 "”， 将 八 个 皇后 安放 到 国际 象棋 盘 上 使 她 们 相互 
都 不 攻击 。 请 写 出 一 个 非 确定 性 的 程序 求解 这 一 谜 题 。 


自然 语言 的 语法 分 析 

接受 自然 语言 作为 输入 的 程序 ， 通常 都 以 对 输入 的 语法 分 析 开 始 ， 也 就 是 说 ， 设 法 将 输 
入 与 一 些 语法 结构 匹配。 举例 说 ,我们 可 能 试图 去 识别 由 一 个 冠 词 ， 后 跟 一 个 名 词 和 一 个 动 
词 的 简单 句子 ， 比 如 说 “The cat eats”。 为 了 完成 这 种 分 析 ， 我 们 必须 能 状 明 各 个 单词 的 词类 ， 
这 可 以 从 下 面 这 种 对 各 种 单词 的 分 类 表 开 始 ”: E 

(define nouns ’(noun student professor cat class)) 


(define verbs *(verb studies lectures eats sleeps) ) 

(define articles ‘(article the a)) 
我 们 还 需要 一 个 语法 ， 即 一 组 描述 如 何 从 更 简单 的 元 素 组 合 产生 语法 元 素 的 规则 。 一 个 非常 
简单 的 语法 ， 可 能 就 是 规定 每 个 句子 都 由 两 个 部 分 组 成 一 一 一 个 名 词 短 语 后 面 跟着 一 个 动词 ， 
而 名 字 短 语 是 由 一 个 冠 词 后 跟 一 个 名 词组 成 。 根 据 这 个 语法 ， 句 子 “The cat eats ”就 可 以 分 
析 为 : 

(sentence (noun-phrase (article the) (noun cat) ) 

{verb eats) ) 


我 们 可 以 用 一 个 简单 的 程序 生成 这 样 的 分 析 ， 其 中 对 应 于 每 条 语法 规则 有 一 个 独立 的 过 


253 这 个 亦 题 取 自 一 本 名 为 《Problematical Recreations) (问题 娱乐 ) 的 小 册子 ，1960 年 代 由 Litton Industries 出 版 ， 
上 面 标明 作者 为 Kansas State Engineer ( 肯 萨 斯 州 工 程 师 协会 ) 。 
254 这 里 我 们 采用 了 一 个 约定 ， 用 每 个 表 的 第 一 个 元 素 指 明了 表 中 其 他 单词 的 词类 。 
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程 。 为 了 分 析 一 个 句子 ,我们 需要 辩 明 它 的 两 个 组 成 部 分 ， 并 返回 一 个 两 元 素 的 表 ， 用 符号 
sentence 作 为 标记 : 


(define (parse-sentence) 
(list ’sentence 
(parse-noun-phrase) 
(parse-word verbs) ) ) 


SiGe SEK, PEND Be BRAK PH lial FA ia : 
(define (parse-noun-phrase) 
(list ‘noun-phrase 
(parse-word articles) 
(parse-word nouns) )) 


在 最 下 面 一 层 ， 分 析 过 程 被 归结 到 反复 检查 下 一 个 尚未 分 析 的 单词 ， 看 它 是 不 是 某 个 对 
应 于 所 需 词 类 的 单词 表 的 成 员 。 为 了 实现 这 一 工作 ， 我 们 要 维护 一 个 全 局 变量 *unparsed* ， 
其 中 包含 着 尚未 分 析 的 输入 。 每 当 程 序 去 检查 一 个 单词 时 ， 我 们 都 要 求 *unparsed* 必须 不 
” 空 ， 而 且 它 应 该 以 指定 的 表 里 的 单词 开始 。 如 果真 是 这 样 ， 我们 就 从 *unparsed* 里 删 际 这 
第 一 个 单词 ， 并 返回 这 个 单词 和 它 的 词类 (这 可 以 从 该 表 的 头 部 找 出 ) ”: 
{define (parse-word word-list) 
(require (not (null? *unparsed*))) 
(require (memq {car *unparsed*) (cdr word-1list))) 
(let ((found-word (car *unparsed*))) 


(set! *unparsed* (cdr *unparsed*) ) 
(list (car word-list) found-word) ) ) 


为 了 能 开始 做 语法 分 析 ， 我 们 需要 的 就 是 将 *unparsed* 设 置 为 整个 输入 ， 试 着 去 分 析 
出 一 个 句子 来 ， 最 后 还 要 检查 没有 剩 下 任何 东西 : 


(define *unparsed* ()) 
(define (parse input) 
(set! *unparsed* input) 
{let ((sent (parse-sentence) ) ) 
(require (null? *unparsed*)) 
sent) ) 


现在 我 们 可 以 试验 这 个 分 析 器 ， 检 查 它 是 否 能 处 理 简 单 的 测试 句子 : 

ee: Amb-Eval input: 

(parse ‘(the cat eats) ) 

2:3; Starting a new problem 

:»? Amb-Eval value: 

(sentence (noun-phrase (article the) (noun cat) ) (verb eats) ) 

amb 求 值 器 在 这 里 很 有 用 ， 因 为 它 使 我 们 可 以 通过 require 的 帮助 ， 很 方便 地 描述 分 析 
中 的 种 种 约束 和 条件。 当然 ， 如 果 进 一 步 考 虑 更 复杂 的 语法 ， 其 中 存在 有 关 某 些 单元 如 何 分 解 
的 选择 时 ， 自 动 搜 索 和 回 湖 也 将 发 挥 重 要 作用 。 

现在 让 我 们 在 语法 中 增加 一 个 介词 表 : 


255 请 注意 ，parse-word 用 set 1! 修改 了 未 分 析 的 输入 表 。 为 使 这 种 做 法 能 够 工作 ， 我 们 的 am? 求 中 BLS AR 
在 回 沛 时 撤销 set! 的 作用 。 
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(define prepositions (prep for to in by with?) 


并 将 介词 短语 (例如 ，“for the cat”) 定义 为 “个 介词 后 跟 一 个 名 词 短语 : 


(define (parse-prepositional-phrase) 
(list ‘prep-phrase 
(parse-word prepositions) 
{parse-noun-phrase) ) ) 


现在 我 们 可 以 将 句子 定义 为 一 个 名 词 短 语 后 跟 一 个 动词 短语 ， 其 中 的 动词 短语 可 以 是 一 个 动 
词 ， 也 可 以 是 一 个 动词 短语 加 上 一 个 介词 短语 “: 
(define (parse-sentence) 
(list ’sentence 


(parse-noun-~-phrase) 
(parse-verb~-phrase) ) ) 


(define (parse-verb-phrase) 
(define (maybe-extend verb-phrase) 
(amb verb-phrase 
(maybe-extend (list ‘verb-phrase 
verb-phrase 
(parse-prepositional-phrase))))) 


(maybe-extend (parse-word verbs) )) 


有 了 这 些 之 后 ,我们 还 可 以 细 化 名 词 短语 的 定义 ， 人 允许 诸如 “a cat in the class” ZRF 
形式 。 前 面 称 为 名 词 短语 的 片段 ， 现 在 将 被 称 为 简单 名 词 短语 ， 而 现在 的 名 词 短 语 则 或 者 十 
一 个 简单 名 词 短语 ， 或 者 是 一 个 名 词 短 语 后 跟 一 个 介词 短语 : 

(define {parse-simple-noun-phrase) 

(list ’simple-noun-phrase 
(parse-word articles) 


(parse-word nouns) )) 


(define (parse-noun-phrase) 
(define (maybe-extend noun-phrase) 
(amb noun-phrase 
(maybe-extend (list ’noun-phrase 
noun-phrase 


(parse-prepositional-phrase})))) 


(maybe-extend (parse-simple-noun-phrase) )) 


现在 的 新 语法 使 得 程序 可 以 分 析 更 复杂 的 句子 了 。 例 如 : 


(parse ’{the student with the cat sleeps in the class) ) 


将 产生 出 : 


(sentence 
(noun-phrase 
(simple-noun-phrase (article the) (noun student) ) 
(prep~phrase (prep with) 
{simple-noun-phrase 
(article the) (noun cat)))) 





25% 应 该 看 到 这 一 定义 是 递归 的 ， 动 词 之 后 可 以 有 任意 多 个 介词 短语 。 
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{verb-pHrase 

(verb sleeps) 

(prep-phrase (prep in) 
(Simple-noun-phrase 


{article the) (noun class))}))) 


请 注意 ， 一 个 给 定 输入 可 能 存在 多 于 一 种 合法 的 分 析 结 果 。 对 于 句子 “The professor 
lectures to the student with the cat”"， 可 以 理解 为 教授 带 着 猫 去 上 课 ， 也 可 以 理解 为 该 学 生 有 那 
只 猫 。 我 们 的 非 确定 性 程序 将 能 找 出 这 两 种 可 能 性 : 


(parse ’(the professor lectures to the student with the cat)) 


将 产生 出 : 


(sentence 
(simple-noun-phrase (article the) (noun professor) ) 
{verb-phrase 
(verb-phrase 
(verb lectures) 
{prep-phrase (prep to) 
(simple-noun-phrase 
(article the) (noun student)))) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))) 


让 求 值 器 再 次 尝试 ， 将 会 产生 出 : 
(sentence 
(simple-noun-phrase (article the) (noun professor) } 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(noun-phrase 
(simple-noun-phrase 
(article the) (noun student)) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))))) 


练习 4.45 “采用 上 面 给 出 的 语法 ， 下 面 的 句子 可 以 有 5 种 不 同 的 分 析 方式 ， The professor 
lectures to the student in the class with the cat”。 请 给 出 这 5 种 分 析 ， 并 解释 这 些 分 析 之 间 的 微 
WEH. | 

练习 4.46 ”4.1 节 和 4.2 节 的 求 值 器 并 没有 明确 规定 运算 对 象 的 求 值 顺序 。 我 们 将 看 到 am 
求 值 器 从 去 到 右 进 行 求 值 。 请 解释 ， 如 果 运 算 对 象 采用 其 他 求 值 顺序 ， 为 什 么 我 们 的 分 析 程 
序 就 没有 办 法 工作 了 。 

练习 4.47 Louis Reasoner 建 议 说 ， 由 于 动词 短语 或 者 是 一 个 动词 ， 或 者 是 一 个 动 癌 短语 
后 跟 一 个 介词 短语 ， 直 接 用 下 面 方式 定义 一 个 parse-verb-phrase 过 程 将 更 加 方便 (对 于 
名 词 短 语 也 同样 可 以 这 样 做 ): | 

(define (parse-verb-phrase) 


(amb (parse-word verbs) 
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{list ’verb-phrase 
(parse-verb-phrase)} 


(parse-prepositional-phrase)))) 


这 样 做 能 行 吗 ? 如 果 改 变 了 amb 求 值 器 里 表达 式 的 顺序 ， 程 序 的 行为 也 会 改变 吗 ? 

练习 4.48 《请 扩充 上 面 给 出 的 语法 ， 以 处 理 更 加 复杂 的 句子 。 例 如 ， 你 可 以 扩充 名 词 短 
语 和 动词 短语 ， 加 进 形容 词 和 副词 ， 或 者 可 以 设法 处 理 复合 名 。 

练习 4.49 Alyssa P. Hacker 更 感 兴趣 的 是 生成 有 趣 的 句子 而 不 是 分 析 它 们 。 她 疯 ， 简 单 修 
改过 程 parse-word， 使 它 忽略 “ 输 入 的 句子 ”并 总 是 成 功 产生 出 适当 的 单词 ， 就 可 以 为 语 
法 分 析 程 序 去 做 句子 生成 。 请 实现 Alyssa 的 想法 ， 并 给 出 这 个 程序 所 产生 的 前 十 来 个 句子 ”。 


4.3.3 ”实现 amb 求 值 器 


对 于 常规 Scheme 表 达 式 的 求 值 可 能 返回 一 个 值 ， 也 可 能 永远 不 终止 或 者 发 出 一 个 错误 
信号 。 对 于 非 确定 性 的 Scheme ， 表 达 式 的 求 值 还 可 能 遇 到 死胡同 ， 在 这 种 情况 下 求 值 必 须 回 
溯 到 前 面 的 选择 点 。 由 于 多 出 这 一 种 情况 ， 非 确定 性 Scheme 的 解释 将 变 得 更 复杂 。 

我 们 为 非 确定 性 的 Scheme 构造 amb 求 值 器 的 方法 ， 是 修改 4.1.7 节 的 分 析 式 求 值 器 ”。 就 
像 在 那个 分 析 求 值 器 里 一 样 ， 完 成 对 这 里 的 表达 式 求 值 ， 也 是 通过 调用 对 于 该 表达 式 的 分 析 
所 产生 出 的 执行 过 程 。 对 于 常规 Scheme 的 解释 和 对 非 确定 性 Scieme 的 解释 之 间 的 差异 完全 在 
于 有 关 的 执行 过 程 。 

执行 过 程 和 继续 

读者 应 记得 ， 在 常规 求 值 器 的 执行 过 程 里 有 一 个 参数 : 执行 环境 。 与 此 不 同 ，amb 求 值 
器 的 执行 过 程 将 取 三 个 参数 : 执行 环境 ， 和 两 个 称 为 继续 过 程 的 过 程 。 对 于 一 个 表达 去 的 求 
值 ， 结 束 时 就 会 调用 这 两 个 继续 过 程 之 一 : 如 果 该 求 值得 到 了 一 个 结果 ， 那 么 就 用 这 个 值 去 
调用 那个 成 功 继续 ， 如 果 结 果 是 遇 到 了 一 个 死胡同 ， 那 么 就 调用 那个 失败 继续 。 构 造 和 调用 
适当 的 继续 ， 就 是 这 个 非 确定 性 求 值 器 里 实现 回 诸 的 机 人 制 。 

成 功 继续 过 程 的 工作 是 接受 一 个 值 并 将 计算 进行 下 去 。 与 这 个 值 一 起 ， 成 功 继续 过 程 还 
将 得 到 了 另 一 个 失败 继续 过 程 ， 如 果 在 使 用 这 个 值 时 过 到 了 死 胡 辣 ， 就 会 去 调用 它 。 

失败 继续 过 程 的 工作 是 试探 非 确定 性 过 程 中 的 另 一 分 支 。 非 确定 性 语言 的 最 关键 特征 ， 
就 在 于 表达 式 可 以 表示 在 不 同 可 能 性 之 间 的 选择 。 对 于 这 样 一 个 表达 式 的 求 值 CARA 
的 可 能 选择 进行 下 去 ， 即 使 谁 也 不 知道 哪 一 个 选择 会 导向 可 以 接受 的 结果 。 为 了 处 理 好 这 件 
事 ， 求 值 器 取出 一 个 可 能 性 ， 并 将 其 值 送 给 成 功 继续 过 程 。 与 这 个 值 一 起 ， 求 值 器 还 构造 并 
送 去 一 个 失败 继续 过 程 ， 以 便 在 后 来 需要 另 一 不 同 选择 时 能 去 调用 它 。 


257 这 种 语法 可 以 变 得 任意 的 复杂 ， 但 如 果 考 虑 真实 的 语言 理解 问题 ， 这 些 仍 然 只 是 一 种 玩具 。 要 用 计算 机 去 理 
解 真 实 世 界 中 的 自然 语言 ， 将 需要 语法 分 析 和 意义 解释 之 间 细致 的 混合 作用 。 从 另 一 角度 看 ， 即 使 是 玩具 取 
的 语法 分 析 ， 对 于 支持 某 些 需要 比较 灵活 的 查询 语言 的 程序 也 非常 有 用 ， 例 如 那些 信息 检索 系统。 Winston 
1992 讨 论 了 真实 语言 理解 的 计算 途径 ， 也 讨论 了 简单 语法 在 命令 语言 方面 的 应 用 。 

258 虽然 Alyssa 的 想法 完全 可 行 (而 且 极其 简单 )， 但 它 产生 出 的 句子 则 非常 无 聊 一 一 根本 不 能 以 某 种 很 有 价值 的 
方 起 说 明 这 一 语言 中 的 句子 的 范例 。 事 实 上， 由 于 语法 在 许多 地 方 都 是 高 度 递 归 的 ，Alyssa 的 技术 将 会 落 人 
这 种 递归 并 陷 在 那里 。 参 看 练习 4.50 有 关 解 决 这 个 问题 的 一 种 方法 。 

259 我 们 的 选择 是 通过 修改 4.1.1 节 的 元 循环 求 值 器 的 方式 实现 4.2 节 的 情 性 求 值 器 ， 这 次 却 要 基于 4.1.7 节 的 分 析 
KAS 实现 amb 求 值 器 。 这 是 因为 该 求 值 器 的 执行 过 程 为 实现 回溯 提供 了 一 种 方便 框架。 
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在 求 值 过 程 中 ， 当 一 个 用 户 程序 明确 拒绝 了 当前 进攻 的 目标 (例如 ， 一 个 require 调 用 
里 最 终 可 能 执行 到 (amb ) ， 这 是 一 个 永远 失败 的 表达 式 一 一 见 4.3.1 节 ) ， 就 将 触发 一 次 失败 
(也 就 是 说 ， 调 用 一 个 失败 继续 过 程 ) 。 在 这 一 点 ， 手 头 上 的 失败 继续 过 程 将 导致 在 最 近 的 选 
择 点 上 做 另 一 种 选择 。 如 果 在 被 考虑 的 选择 点 上 已 经 没有 更 多 的 选择 了 ， 那 么 就 会 触发 在 前 
一 选择 点 的 失败 ， 并 如 此 继续 下 去 。 驱 动 循环 也 可 能 直接 调用 失败 继续 过 程 ， 以 响应 一 个 
try-again 请 求 ， 去 找 出 表达 式 的 男 一 个 值 。 z 

此 外 ， 如 果 在 由 一 个 选择 导致 的 分 支 处 理 中 出 现 了 具有 副作用 的 操作 (例如 做 了 给 某 个 
变量 的 赋值 ) ， 在 这 种 情况 下 ， 当 处 理 过 程 遇 到 死胡同 时 ， 可 能 就 需要 在 做 出 新 选择 之 前 撤销 
这 一 副作用 。 完 成 这 一 工作 的 方式 ， 就 是 让 产生 副作用 的 操作 生成 一 个 能 够 撤销 其 副作用 并 
传播 这 一 失败 的 失败 继续 过 程 。 

总 结 一 下 ， 失 败 继续 过 程 的 构造 来 自 : 

. amb 表 达 式 一 一 提供 一 种 机 制 ， 以 便 在 amb 表 达 式 做 出 的 当前 选择 遇 到 了 死胡同 时 ， 能 

够 做 另 一 种 选择 ， 

。 最 高 层 驱动 循环 一 一 提供 一 种 机 制 ， 在 选择 耗 尽 时 报告 失败 ， 

。 赋值 一 一 拦截 失败 并 在 回溯 之 前 撤销 赋值 的 效果 。 

失败 的 初始 原因 就 是 遇 到 了 死胡同 ， 这 种 情况 出 现在 : 

。 用 户 程 序 执行 (amb) ff, 

。 用 户 键入 try-again 给 最 高 层 驱 动 程序 时 。 

失败 继续 过 程 会 在 处 理 失 败 的 过 程 中 被 调用 : 

。 当 由 一 个 赋值 构造 出 的 失败 继续 过 程 完成 了 撤销 自己 副作用 的 工作 之 后 ， 它 将 调用 所 拦 

截 的 失败 继续 过 程 ， 以 便 将 这 一 失败 传播 到 导致 这 次 赋值 的 选择 点 ， 或 者 传 到 最 高 层 。 

。 当 某 个 amb 的 失败 继续 过 程 用 完了 所 有 选择 时 ， 它 将 调用 原来 给 这 个 amb 的 失败 继续 过 

程 ， 以 便 将 这 一 失败 传播 到 前 一 个 选择 点 ， 或 者 传播 到 最 高 层 。 

求 值 器 的 结构 

amb 求 值 器 的 语法 和 数据 表示 过 程 ， 以 及 基本 的 analyze 过 程 ， 都 与 4.1.7 节 的 求 值 器 里 
的 这 些 过 程 完 全 一 样 ， 当 然 ， 我 们 还 需要 增加 几 个 语法 过 程 MER iamb ERE RO., 


(define (amb? exp) (tagged-list? exp amb) ) 





(define (amb-choices exp) (cdr exp) |) 
我 们 必须 在 analyze 里 增加 一 个 分 派 子 句 ， 识 别 这 一 特殊 形式 并 生成 一 个 适当 的 执行 过 程 : 


( (amb? exp) (analyze-amb exp)) 


最 高 层 过 程 ambeval (与 在 4.1.7 节 里 给 出 的 eval 版 本 类 似 ) 分 析 给 定 的 表达 式 ， 并 将 
得 到 的 执行 过 程 应 用 到 给 定 的 环境 和 两 个 给 定 的 继续 过 程 上 : 


(define (ambeval exp env succeed fail) 


( (analyze exp) env succeed fail)) 


成 功 继续 是 一 个 带 有 两 个 参数 的 过 程 ， 刚 刚 得 到 的 值 以 及 另 一 个 失败 过 程 ， 如 果 这 个 值 
随后 导致 失败 的 话 ， 它 就 去 调用 该 失败 继续 过 程 。 失 败 继续 是 一 个 无 参 过 程 。 因 此 ， 执 行 过 


0 我 们 假定 求 值 器 支持 Let ( 见 练习 4.22) ， 因 为 在 非 确定 性 程序 里 需要 用 E 


程 的 一 般 形式 是 : 
(lambda (env succeed fail) 
-; succeed is (lambda (value fail) ...) 
:-; fail is (lambda {) ...} 
..) 


举例 说 PUTT 
(ambeval <exp> 
the-~global-environment 


(lambda (value fail) value) 
(lambda () ’failed)) 


将 企图 去 求 值 给 定 的 表达 式 ， 最 后 或 者 是 返回 表达 式 的 值 (如 果 这 一 求 值 成 功 ) ， 或 者 返回 符 
号 failed (如 果 求 值 失 败 )。 在 下 面 所 示 的 驱动 循环 中 ， 对 于 ambeval 的 调用 里 使 用 了 更 复 
杂 的 继续 过 程 ， 它 们 继续 进行 循环 以 支持 try-again 请 求 。 

amb 求 值 器 中 最 复杂 的 问题 ， 也 就 是 那些 将 继续 过 程 在 相互 调用 的 执行 过 程 之 间 传 来 传 
去 的 机 制 。 在 阅读 下 面 给 出 的 代码 时 ， 你 应 该 将 每 一 个 执行 过 程 与 4.1.7 市 里 常规 求 值 右 中 相 
应 的 执行 过 程 比较 一 下 。 


简单 表达 式 

简单 表达 式 的 执行 过 程 与 常规 求 值 器 中 的 相应 过 程 基 本 一 样 ， 只 是 它们 还 需要 管理 继续 
过 程 。 这 些 执行 过 程 以 有 关 表达 式 的 值 直 接 成 功 返 回 ， 同 时 传递 送 给 它们 的 失败 继续 过 程 : 

(define (analyze-selt-:valuating exp) 


(lambda (env succeed fail) 
(succeed exp fail))) 


{define (analyze-quoted exp) 
(let ((qval (text-of-quotation exp) ) | 
(lambda (env succeed fail) 


(succeed qval fail)))) 


(define (analyze-variable exp) 
(lambda (env succeed fail) 
(succeed (lookup-variable-value exp env) 
fail))) 


(define (analyze-lambda exp) 
{let ((vars (lambda-parameters exp) lj 
(bproc (analyze-sequence (lambda-body exp)))) 
(lambda {env succeed fail) 
(succeed (make-procedure vars bproc env) 
fail)))) 


注意 ， 查 找 变 量 值 总 是 “成 功 。 如 果 l1ookup-variable-value 无 法 找到 这 个 变量 ， 
它 像 平常 一 样 发 出 错误 信号 ， 这 种 “失败 ”表明 了 一 个 程序 错误 一 一 引用 了 无 约束 的 变量 ， 
而 并 不 表示 我 们 应 该 在 当前 所 试 的 选择 之 外 再 去 试探 另 一 个 非 确定 性 的 选择 。 


条 件 和 序列 
条 件 表 达 式 的 处 理 方式 也 与 常规 求 值 器 中 类 似 。 由 analyze-if 生 成 的 执行 过 程 去 调用 
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谓词 执行 过 程 PpBroc ， 过 程 pPzroc 的 成 功 继续 过 程 检查 谓词 的 值 是 否 为 真 ， 并 根据 情况 去 执 


行 条 件 表达 式 的 推论 部 分 或 者 赫 代 部 分 。 如 果 pproc 的 执行 失败 ， 那 么 就 调用 这 个 1f 表达 式 
原来 的 失败 继续 过 程 : 


{define (analyze-if exp) 

(let ((pproc (analyze (if-predicate exp))) 
(cproc (analyze (if-consequent exp) )) 
(aproc (analyze (if-alternative exp)))) 

(lambda (env succeed fail) 
(pproc env 

+: success continuation for evaluating the predicate 

7: to obtain pred-value 

(lambda (pred-value fail2) 

(if (true? pred-value) 

(cproc env succeed faild2) 
(aproc env succeed fail2))) 

;; failure continuation for evaluating the predicate 

fail)))) 


序列 也 按照 与 前 面 求 值 器 间 样 的 方式 处 理 ， 除 {于 过 4 程 sequentially 里 的 那些 机 制 外 。 


在 那里 需要 传递 继续 过 程 。 如 果 要 疾 序 地 先 执行 a 而 后 执行 bp ， 我 们 就 用 一 个 成 功 继续 过 程 调 
用 a ， 而 这 个 成 功 继续 过 程 将 调用 b 。 


(define (analyze-sequence exps) 
(define (sequentially a b) 
(lambda (env succeed fail) 
(a env 
s: success continuation for calling a 
(lambda (a-value fail2) 
(b env succeed fail2)) 
» failure continuation for calling a 
fail))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs)) 
{cdr rest-procs)))) 
(let ((procs (map analyze exps))) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE")) 


(loop (car procs) (cdr procs)))) 
定义 和 赋值 
在 对 定义 的 处 理 中 ， 继 续 过 程 的 管理 问题 比较 麻烦 ， 因 为 这 里 必须 在 实际 定义 新 变量 之 
前 对 定义 值 的 表达 式 求 值 。 为 了 完成 这 一 工作 ， 在 这 里 需要 用 当时 的 环境 ， 一 个 成 功 继续 和 
_ 个 失败 继续 过 程 作为 参数 ， 去 调用 定义 值 的 执行 过 程 vVPrec 。 如 果 vproc 的 执行 成 功 ， 屠 
么 就 得 到 了 定义 变量 所 需 的 值 val ， 这 时 就 定义 有 关 的 变量 并 传播 这 一 成 功 : 
(define (analyze-definition exp) 


(let ((var (definition-variable exp) |) 


(vproc (analyze (definition-value exp)})) 
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(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) 
(define-variable! var val env) 
(succeed ’ok fail2)) 
fail))))} 


RUE 的 情况 更 加 有 趣 。 这 是 我 们 实际 使 用 继续 过 程 的 第 一 个 地 方 ， 而 不 仅仅 是 将 它们 传 
来 传 去 。 针 对 赋值 的 执行 过 程 的 开始 部 分 与 定义 类 似 ， 首 先 企图 求 得 需要 赋 给 变量 的 新 值 。 
如 果 对 vproc 的 求 值 失 败 ， 这 个 赋值 也 就 失败 了 。 

如 果 vpzoc 成 功 ， 当 然 就 要 去 做 实际 的 赋值 。 但 在 这 时 必须 考虑 计算 的 这 一 分 支 以 后 出 
现 失 败 的 可 能 性 ， 而 到 那 时 就 需要 对 这 个 赋值 做 回调 了。 如 果 要 完成 回调 ， 我 们 就 必须 把 撤 
销 这 个 赋值 的 工作 作为 回 渊 过 程 的 一 部 分 ”。 

完成 这 一 工作 的 方式 是 给 出 一 个 成 功 继续 过 程 ( 下面 标 有 注释 “*1* 的 部 分 ) ， 它 在 给 
这 个 变量 赋 新 值 之 前 保存 变量 原来 的 值 ， 而 后 才 实 际 做 峰值。 与 这 一 赋值 的 值 一 起 传递 的 失 
败 继续 过 程 (下 面 标 有 注释 “*2*” 的 部 分 ) 将 在 继续 传播 有 关 的 失败 之 前 恢复 变量 的 原 值 。 
这 样 ， 一 个 成 功 的 赋值 就 提供 了 一 个 失败 继续 过 程 ， 这 一 过 程 将 拦截 随后 的 失败 ， 无 论 出 现 
什么 失败 ， 只 要 其 原本 需要 调用 fai12 ， 现 在 都 会 转 来 调用 这 个 过 程 ， 在 实际 调用 fai12 之 
前 撤销 所 做 的 赋值 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-vaiue exp)))) 
(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) ; 太太 
(let ((old-value 
(lookup-variable-value var env)})}) 
{set-variable-value! var val env) 
(succeed ‘ok 
(lambda () ; *2* 
(set-variable-value! var 
old-value 
env) 
(fail2))))) 
fail)))) 


过 程 应 用 

针对 应 用 的 执行 过 程 里 并 不 包含 什么 新 思想 ， 只 有 一 些 为 了 管理 各 种 继续 过 程 而 带 来 的 
复杂 情况 。 这 里 的 复杂 性 出 自 analyze-application， 这 是 由 于 在 对 运算 对 象 的 求 值 过 程 
中 ， 需 要 维护 成 功 和 失败 继续 过 程 的 轨迹 。 我 们 用 一 个 过 程 get -args 去 求 值 运算 对 象 的 表 ， 
而 不 是 像 常规 求 值 器 中 那样 直接 使 用 nap: 


(define (analyze-application exp) 
(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp)))) 


xl 我 们 无 需 为 撤销 定义 费心 ， 因 为 可 以 假定 内 部 的 定义 都 已 经 扫描 出 来 了 〈 见 4.1.6 节 )。 
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30] 
(lambda (env succeed fail) 
(fproc env 
(lambda (proc fail2) 
(get-args aprocs 
env 
(lambda (args fail3) 
(execute-application 
proc args succeed fail3)) 
fail2)} | 
fail)))) 


请 注意 在 get-args 里 ， 我 们 怎样 通过 car 军 过 aproc 执 行 过 程 的 表 ， 并 用 cons 构造 起 
args 的 结果 家， 其 中 用 一 个 成 功 继续 过 程 作为 参数 去 调用 表 里 的 各 个 aproc ， 这 种 调用 里 中 
又 递归 地 调用 了 get-args。 这 里 对 于 get-args 的 每 个 递归 调用 都 有 一 个 成 功 继 续 ， 其 值 
是 将 新 得 到 的 实际 参数 cons 到 已 经 积案 起 来 的 实际 参数 表 上 : 
(define (get-args aprocs env succeed fail) 
(if (null? aprocs) 
(succeed  () fail) 


((car aprocs) env 


;; success continuation for this aproc 
(lambda (arg fail2) 

(get-args (cdr aprocs) 
env 


;; success continuation for recursive 

; calltoget-args 

(lambda (args fail3) 
(succeed (cons arg args) 

fail3)) 


fail2)) 
fail))) 


实际 过 程 应 用 由 execute-application 执 行 ， 它 完成 工作 的 方式 与 常规 求 值 器 一 样 ， 
除了 其 中 需要 管理 一 些 继续 过 程 之 外 : | 
(define (execute-application proc args succeed fail) 
(cond ({((primitive-procedure? proc) 


(succeed (apply-primitive-procedure proc args) 
fail)) 

((compound-procedure? proc) 
({procedure-body proc) 


{extend-environment (procedure-parameters proc) 
args 


succeed 
fail) ) 


(procedure-environment proc) ) 
(else 


(error 


"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 


amb 表达 式 的 求 值 


特殊 形式 amb 是 这 一 非 确定 性 语言 中 的 核心 元 素 。 我 们 可 以 从 这 里 看 到 解释 过 程 的 基本 
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情况 ， 以 及 维护 继续 过 程 轨迹 的 原因 。amb 的 执行 过 程 定义 了 一 个 循环 Ery-next ， 它 周 而 
复 始 地 去 做 针对 表达 式 中 所 有 可 能 值 的 执行 过 程 。 对 于 每 个 执行 过 程 的 调用 都 负 有 一 个 失败 
继续 ， 这 一 失败 过 程 将 导致 我 们 去 试探 下 一 个 可 能 性 。 当 不 再 存在 更 多 可 试探 的 可 能 性 时 ， 
整个 amb 表 达 式 失败 。 
(define (analyze-amb exp) 
(let ((cprocs (map analyze (amb-choices exp)))) 
(lambda (env succeed fail) 
(define (try-next choices) 
(if (null? choices) 
(fail) 
( (car choices) env 
succeed 
(lambda () 
(try-next (cdr choices)))))) 


{try-next cprocs)))) 
f 


驱动 循环 

由 于 需要 有 人 允许 用 户 重 试 表达 式 求 值 (try-again) 的 机 制 ， 这 就 使 amb 求 值 器 的 驱动 
循环 变 得 非常 复杂 。 这 一 驱动 程序 里 用 了 一 个 称 为 jnternal-~1loop 的 过 程 ， 该 过 程 以 过 程 
czry-again 作 为 参数 ， 这 里 的 意图 就 是 ， 调 用 Ery-again 将 导致 在 非 确定 性 求 值 中 走 进 下 
一 个 未 经 试探 的 分 支 。 这 个 ijnternal-loop 或 者 是 调用 try-again， 以 响应 用 户 在 驱动 循 
环 中 输入 的 try-again 请 求 ， 或 者 是 调用 ambeval 去 开始 一 次 新 的 求 值 。 

对 于 ambeval 调 用 的 失败 继续 过 程 将 通知 用 户 ， 现 在 已 经 没有 更 多 的 值 了 。 而 后 它 会 重 
新 调用 驱动 循环 。 

对 于 ambeval 调 用 的 成 功 继续 过 程 则 更 加 精细 而 微妙 。 它 将 打印 出 当时 得 到 的 值 ， 并 用 
一 个 try-agaiDn 过 程 去 再 次 调用 内 部 循环 ， 以 便 去 试探 下 一 可 能 性 。 这 里 的 mext- 
alternative 过 程 被 作为 第 二 个 参数 传递 给 相应 的 成 功 继续 过 程 。 按 照常 规 ， 我 们 应 该 认 
为 这 第 二 个 参数 是 一 个 失败 继续 过 程 ， 是 在 当前 的 求 值 分 支 在 后 面 失败 时 被 调用 的 。 而 在 目 
前 的 这 种 情况 里 ， 我 们 刚刚 完成 了 一 次 成 功 求 值 ， 所 以 应 该 调用 这 个 “失败 ”可 能 性 的 分 文 ， 


以 便 去 搜索 出 其 他 更 多 的 成 功 求 值 。 
{define input-prompt ";;; Amb-Eval input:") 
(define output-prompt ";;; Amb-Eval value:") 


(define (driver-lioop) 
(define (internal-loop try-again) 
(orompt-for-input input-prompt) 
(let ((input (read) )) 
(if (eq? input ‘try-again) 
(try-again) 
(begin 
(newline) 
(display ";3;; Starting a new problem ") 
(ambeval input 
the-global-environment 


z ambeval success 
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(lambda (val next-alternative) 
(announce-output output-prompt) 
(user-print val) 
(internal-loop next-alternative) ) 
© ambeval failure 
(lambda ({) 
(announce-output 
-:: There are no more values of") 
(user-print input) 
(driver-loop))})}))) 
(internal-loop 
(lambda () 
(newline) 
(display ";;; There is no current problem") 
(driver-loop)))) 


对 internal-1loop 的 初始 调用 里 用 了 一 个 try-again 过 程 ， 它 将 抱怨 说 没有 当前 的 问题 ， 
并 重新 开始 驱动 循环 。 当 用 户 在 尚未 求 值 的 情况 下 输入 try-again 了 时， 就 会 出 现 这 种 情况 。 

练习 4.50 “请 实现 一 种 新 的 特殊 形式 ramb， 它 应 该 与 amb 类 似 ， 但 是 以 一 种 随机 的 方式 
搜索 名 种 可 能 性 ， 而 不 是 严格 地 从 左 到 右 。 请 说 明 这 一 机 制 可 能 怎样 对 练习 4.49 中 Alyssa 遇 到 
的 问题 有 所 帮助 。 | 

练习 4.51 请 实现 一 种 新 的 赋值 permanent-set!, 在 遇 到 失败 时 ， 这 种 赋值 并 不 撤销 。 
举例 来 说 ， 我 们 可 能 需要 从 一 个 表 里 选 出 两 个 不 同 元 素 ， 并 统计 在 完成 一 个 成 功 选择 的 过 程 
中 做 这 种 试验 的 次 数 ， 这 可 以 写成 : A 


(define count 0) 


(let ((x (an-element-of ‘(a b c))) 
(y (an-element-of ‘(a bc)))) 

(permanent-set! count (+ count i)) 
(require (not (eq? x y))) 
(list x y count)) 

-y; Starting a new problem 

-;; Amb-Eval value: 

(a b 2) 


--; Amb-Eval input: 
try-again 

>: Amb-Eval value: 
(a c 3) 


如 果 在 这 里 用 的 是 set ! 而 不 是 permanent-set!， 那 么 这 时 会 显示 出 什么 ? 

练习 4.52 ”请 实现 一 种 新 的 称 为 ifE-fail 的 结构 ， 它 允许 用 户 去 捕 提 一 个 表达 式 里 的 失 
网 。if-Efail 有 两 个 参数 。 它 像 平 常 一 样 求 值 第 一 个 表达 式 ， 如 果 求 值 成 功 就 像 平 币 一 样 返 
回 。 然 而 如 果 这 一 求 值 失败 ， 那 么 它 就 返回 第 二 个 表达 式 的 值 。 看 下 面 的 例 村 : 


;1 Amb-Eval input: 
(if-fail (let ((x (an-element-of ‘(1 3 5)))) 
{require (even? xX)) 
x) 
"all-odd) 
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“7; Starting a new problem 

-;; Amb-Eval value: 

all-odd 

-;; Amb-Eval input: 

(if-fail (let ((x (an-element-of (13 5 8)))) 
(require (even? x})} 
Xx) 

"all-odd) 

-;; Starting a new problem 

>;; Amb-Eval value: 

8 


练习 4.53 ”如果 采用 了 练习 4.51 的 permanent-set! 和 练习 4.52 的 1f-fail，, 下 面 求 值 
”的 结果 是 什么 ? 
(let ((pairs ’(})) 
(if-fail (let ((p (prime-sum-pair ’(1 3 5 8) (20 35 110)))) 
| (permanent-set! pairs (cons p pairs) ) 
(amb)? ) 
pairs) ) 
634.54 ”如 果 我 们 原来 没有 认识 到 require 可 以 用 amb 实 现 为 一 个 常规 过 程 ， 可 以 由 
用 户 作为 非 确 定性 程序 的 一 部 分 来 定义 ， 那 么 ， 我 们 可 能 就 不 得 不 将 它 实 现 为 一 个 特殊 形式 .。 
这 可 能 需要 下 面 的 语法 过 程 : 
(define efiauire? exp) (tagged-list? exp ’require)) 


(define (require-predicate exp) (cadr exp) ) 


以 及 analyze 里 完成 分 派 的 一 个 新 子 句 : 


((require? exp) (analyze-require exp) ) 


还 要 用 过 程 analyze-require 去 处 理 表 达 式 require。 请 完成 下 面 的 定义 analyze- 
require: 
(define (analyze-require exp) 
(let ((pproc (analyze (require-predicate exp)))) 
{lambda (env succeed fail) 
(pproc env 
(lambda (pred-value fail2) 
(if <??> 
<??> 
(succeed ’ok fail2))) 
fail)))) 


44 ”逻辑 程序 设计 


在 第 1 章 里 我 们 强调 说 ， 计 算 机 科学 处 理 的 是 命令 式 (怎样 做 ) 的 知识 ， 而 数学 处 理 的 在 
说 明 式 (是 什么 ) 的 知识 。 确 实 是 这 样 ， 程 序 设计 语言 要 求 程序 员 以 一 种 形式 去 表述 有 关 的 
知识 ， 其 中 需要 指明 一 种 为 解决 某 一 特定 问题 的 一 步 一 步 的 方法 。 但 在 另 一 方面 ， 作 为 语言 
实现 的 一 部 分 ， 高 级 语言 也 提供 了 很 大 量 的 方法 论 知 识 ， 使 用 户 可 以 不 必 关 心 具 体 计 算 如 何 
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进行 的 许多 细节 。 

大 部 分 程序 设计 语言 ， 包 括 Lisp ， 都 是 围绕 着 数学 函数 值 的 计算 组 织 起 来 的 。 面 向 表达 
式 的 语言 (例如 Lisp 、Fortran 和 Algol) 利用 了 表达 式 的 “一 语 双 关 ”: 一 个 描述 了 某 个 国 数值 
的 表达 式 也 可 以 解释 为 一 种 计算 该 值 的 方法 。 正 由 于 此 ， 大 部 分 程序 设计 语言 都 强 列 地 倾 回 
于 单一 方 回 的 计算 《计算 中 有 着 定义 清晰 的 输入 和 输出 )。 然 而 kee ESA A 
本 性 不 同 的 程序 设计 语言 ， 其 中 减轻 了 这 种 倾向 性 。 在 3.3.5 刷 里 我 们 已 经 看 到 过 一 个 这 方面 
的 例子 ， 那 里 的 计算 对 象 是 一 些 算术 约束 条 件 。 在 一 个 约束 系统 里 ， 计 算 的 方 和 同和 顺序 都 设 
有 明确 定义 ， 在 执行 这 种 计算 的 过 程 中 ， 系 统 必 须 为 “怎样 做 ”提供 许多 细 方 ， 比 常规 的 算 
术 计算 更 多 一 些 。 当 然 ， 这 并 不 意味 着 用 户 可 以 完全 摆脱 提供 命令 式 知识 的 贡 任 。 人 存在 着 诈 
多 能 够 实现 同一 集约 束 关 系 的 约束 网 络 ， 用 户 必 须 从 这 些 数学 上 等 价 的 网 络 中 ， 选 出 一 个 通 
合 于 某 一 特定 计算 的 网 络 。 

4.3 节 展示 的 非 确 定性 程序 求 值 器 也 偏离 了 背 规 的 观点 ， 即 那 种 认为 程序 设计 就 是 关于 如 
何 构造 出 计算 单 向 函数 的 算法 的 观点 。 在 一 个 非 确定 性 的 语言 里 ， 表 达 式 可 以 有 多 个 值 ， 而 
作为 这 种 性 质 的 结果 ， 计 算 中 需要 处 理 的 就 是 关系 ， 而 不 是 单一 值 的 函数 。 逻 辑 程 序 设计 扩 
展 了 这 一 思想 ， 提 出 了 一 种 程序 设计 的 关系 模型 ， 其 中 加 入 了 一 类 功能 强大 的 称 为 合 一 的 付 
号 模式 匹配 全。 

在 这 一 方法 可 以 用 的 那些 地 方 ， 它 能 成 为 一 种 威力 强大 的 写 程序 方式 。 这 种 威力 部 分 来 
自 于 下 面 的 事实 : 一 个 有 关 “ 是 什么 ”的 事实 可 能 被 用 于 解决 多 个 不 同 的 问题 ， 其 中 可 能 包 
含 着 不 同 的 “怎样 做 ”部 分 。 作 为 一 个 例子 ,下面 考 虚 简 单 的 append 操 作 ， 它 以 两 个 表 作为 
参数 ， 组 合 起 它们 的 元 素 ， 形 成 一 个 作为 结果 的 表 。 在 一 种 过 程 性 语言 里 ， 如 Lisp ， 我 们 可 
以 基于 基本 的 表 构 造 函 数 cons 定义 出 append， 正 如 前 面 2.2.1 市 所 做 的 那样 : 

{define (append x y) 

(if (null? x) 
Y 
(cons (car x) (append (cdr x) y)))) 
这 个 过 程 可 以 看 作 是 把 下 面 的 两 条 规则 翻译 到 Lisp 语 言 里 ， 其 中 的 第 一 条 规则 涵盖 了 所 有 第 
- -个 表 为 空 的 情况 ， 而 第 二 条 处 理 非 空 表 的 情况 ， 这 种 表 是 两 个 部 分 的 cons , 
* 对 于 任何 一 个 表 y， 对 空 表 与 y 进 行 append 形 成 的 就 是 y。 


262 泌 辑 程序 设计 是 从 有 关 自动 定理 证 明 的 长 期 研究 中 产生 出 来 的 。 早 期 有 关 定 理 证 明 程 序 约 建树 很 少 ， 因 为 它 
们 都 是 在 穷尽 地 搜索 可 能 证 明 的 空间 。 使 这 种 搜索 成 为 可 能 的 最 重要 突破 是 在 20 世纪 60 年 代 前 期 被 发 现 的 合 
一 算法 和 归结 原理 (Robinson 1965 )。 举 例 来 说 ， 归 结 被 Green 和 Raphael (1968) { 另 见 Green 1969) 用 作 
他 们 的 演绎 式 问题 回答 系统 的 基础 。 在 此 期 间 ， 研 究 者 们 主要 关注 的 是 保证 能 找到 证 明 (如 果 存 在 的 话 ) 的 
算法 。 控 制 这 种 算法 ， 使 之 导向 一 个 证 明 是 很 困难 的 。Hewitt (1969) 认识 到 ， 我 们 有 可 能 将 程序 设计 语言 
的 控制 结构 和 完成 逻辑 操作 的 系统 中 的 运算 结合 起 来 ， 由 此 导致 了 4.3.1 节 提 到 的 自动 搜索 方面 的 工作 (多 肚 
注 251 )。 在 这 同一 时 期 ，Colmerauer 在 马赛 为 处 理 自然 语言 而 开发 了 一 些 基于 规则 的 系统 ( 见 Colmerauer et 
al. 1973)。 为 了 表示 这 些 规则 ,他 发 明了 一 种 称 为 Prolog 的 语言 。 在 爱丁堡 的 KowalsKi (1973; 1979) 认识 到 ， 
Prolog 程序 的 执行 过 程 可 以 解释 为 是 在 证 明定 理 (采用 的 是 一 种 称 为 线性 Horn 子 句 的 证 明 技 术 )。 后 面 这 次 
股 力量 的 融合 最 后 产生 出 逻辑 程序 设计 运动 。 正 因为 这 样 ， 在 分 配 逻 辑 程序 设计 开发 的 荣誉 时 ， 法 国人 可 以 
指出 Prolog 在 马赛 大 学 的 诞生 ， 而 英国 人 则 TRAST BASH LE. WRBMITAL MSR, 2A EF 
设计 的 开发 ， 不 过 是 这 些 研 究 组 在 试图 弄 清 楚 Hewitt 在 其 才华横溢 而 又 深 不 可 测 的 博士 论文 中 到 底 说 了 些 什 
么 的 过 程 中 搞 出 来 的 。 有 关 逻 辑 程序 设计 的 历史 可 参见 Robinson 1983, 
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* 对 于 任何 的 、vV、y 和 z, 将 (cons u v) 与 y 做 apPenda 将 形成 (cons u z), 条 件 

fev 5y WMappend#mz™®, 

利用 这 一 append 过 程 ， 我 们 可 以 回答 诸如 下 面 这 一 类 的 问题 : 

Rk (a b) 和 (c d) append, 

但 是 ， 同 样 的 两 条 规则 也 足以 回答 下 面 这 类 问题 ， 耐 上述 过 程 却 无 法 回答 : 

找 出 一 个 表 Y， 使 它 与 (a b) 的 append 产 生出 (a b cd), 

找 出 所 有 的 X 和 y， 它 们 的 append 形 成 (a b cd), 

在 逻辑 式 程序 设计 语言 里 ， 程 序 员 写 append “过 程 ” 的 方式 也 就 是 陈述 出 上 面 给 出 的 有 
关 append 的 两 条 规则 。 相 应 的 “怎样 做 ”的 知识 由 解释 器 自动 提供 ， 这 将 使 这 一 对 规则 能 够 
回答 上 面 的 三 类 有 关 append 的 问题 **。 

当代 的 逻辑 程序 设计 语言 (包括 我 们 在 这 里 将 要 实现 的 这 个 ) 都 有 一 些 实质 性 的 缺陷 ， 
它们 里 面 有 关 “ 怎 样 做 ”的 通用 方法 ， 有 可 能 使 它们 陷入 廖 误 性 的 无 穷 循 环 或 者 其 他 并 非 我 
们 期 望 的 行为 之 中 。 逻 辑 程 序 设 计 是 计算 机 科学 研究 的 一 个 活跃 领域。 

在 本 章 的 前 面部 分 里 ， 我 们 探索 了 一 些 实现 解释 器 的 技术 ， 也 描述 了 针对 类 Lisp 语 言 世 
解释 器 的 基本 元 素 (实际 上 ， 也 就 是 针对 任何 常规 语言 的 解释 絮 )。 现 在 我 们 将 要 应 用 这 些 思 
想 ， 讨 论 一 个 逻辑 程序 设计 语言 的 解释 器 。 我 们 称 这 种 语言 为 查询 语言 ， 因 为 在 朱 述 提取 绍 
据 库 信息 的 查询 或 称 提问 时 ， 这 种 语言 非常 有 用 。 虽 然 这 种 查询 语言 与 Lisp 差 异 巨大 ， 但 我 
们 会 发 现 ， 基 于 前 面 一 直 在 使 用 的 一 般 性 框架 描述 这 个 语言 也 是 很 方便 的 : 一 组 基本 元 素 ， 
加 上 一 些 组 合 手 段 ， 使 我 们 能 将 简单 元 素 组 合 起 来 构造 更 复杂 的 元 素 ， 还 有 抽象 的 手段 ， 使 
我 们 能 将 复杂 的 元 素 看 作 单 个 的 概念 单元 。 逻 辑 程 序 设计 的 解释 器 比 像 Lisp 那 类 语言 的 解释 
器 复杂 许多 ， 然 而 ， 正 如 我 们 将 要 看 到 的 ， 这 个 查询 语言 解释 器 里 也 包含 了 许多 可 以 在 4.1.1 
节 的 解释 器 里 找到 的 同样 元 素 。 特 别 是 这 里 也 存在 着 一 个 “ 求 值 ”部 分 ， 它 基于 表达 式 类 型 
做 分 类 ， 还 有 一 个 “应 用 ”部 分 ， 实 现 语言 里 的 抽象 机 制 (在 Lisp 里 是 过 程 ， 在 逻辑 程序 设 
计 中 是 规则 )。 还 有 ， 在 这 一 实现 中 扮演 着 核心 角色 的 是 一 种 框架 数据 结构 ， 它 确定 了 符号 己 
它们 的 关联 值 之 间 的 对 应 。 这 一 查询 语言 中 另 一 个 有 趣 的 地 方 是 我 们 实质 性 地 使 用 了 流 ， 那 


是 在 第 3 章 里 介绍 的 。 
44.1 演绎 信息 检索 
逻辑 程序 设计 特别 适合 为 数据 库 提 供 界 面 ， 用 于 完成 各 种 信息 检索 。 我 们 在 本 章 将 要 实 


203 为 了 看 到 在 这 些 规则 与 过 程 之 间 的 对 应 ， 令 过 程 中 的 x (这 里 的 x 非 空 ) 对 应 于 规则 里 的 (cons u v), 这 
样 z 就 对 应 于 (cadar x) 和 y 的 append 。 

264 这 当然 还 不 可 能 使 用 户 摆脱 有 关 如 何 计算 出 答案 的 所 有 问题 。 存 在 许多 数学 上 等 价 的 描述 append 关 系 有 的 不 
同 规则 集合 ， 其 中 只 有 一 些 可 以 转化 为 能 在 任意 方向 上 有 效 地 计算 的 设施 。 此 外 ， 有 时 “是 什么 ”的 信息 对 
于 并 没有 给 出 有 关 “怎样 做 ”的 任何 线索 。 例 如 ， 请 考虑 下 面 问题 ， 计 算出 y 使 得 y =x., 

265 对 逻辑 程序 设计 的 兴趣 在 20 世 纪 80 年 代 前 期 达到 高 潮 ， 其 时 日 本 政府 开始 了 一 个 野心 勃勃 的 计划 ， 目 标 是 构 
造 出 一 种 能 够 优化 运行 逻辑 式 程序 设计 语言 的 超 高 速 计 算 机 。 这 种 计算 机 的 速度 采用 LEEs (每 秒 完成 逻辑 扒 
理 次 数 ，Logical Inferences Per Second) 来 衡量 ， 而 不 是 用 通常 的 FLOPS (每 秒 浮 点 运算 次 数 ， FLoating- 
point Operations Per Second) 。 虽 然 这 一 项 目 中 成 功 地 开发 出 了 开始 计划 的 有 关 硬 件 和 软件 ， 但 国际 计算 机 
工业 却 走向 了 不 同 的 方向 。 参 见 Feigenbaum and Shrobe 1993 有 关 日 本 项 目的 综合 评价 。 逻 辑 程 序 设计 社团 也 
转向 考 虚 那 些 不 是 基于 简单 模式 匹配 技术 的 关系 式 程序 设计 ， 例 如 处 理 数 值 约束 的 能 力 ， 类 似 于 我 们 在 3.3.2 
节 展 示 的 约束 传播 系统 。 
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现 的 查询 语言 就 古 为 了 这 种 使 用 方式 而 设计 的 。 
nena 我 们 要 在 这 里 展示 一 下 如 何 将 它 用 于 管理 


Microshaft 公 司 的 人 事 记 录 数 据 库 ， 这 是 一 个 位 于 波士顿 地 区 的 成 功 的 高 科技 公司 。 我 们 的 话 
言 提供 了 模式 导向 的 人 事 信息 访问 ， AE 利用 一 般 性 规则 去 做 逻辑 推理 。 
一 个 实例 数据 库 


Microshaft 的 人 事 数 据 库 里 包含 了 一 些 有 关公 司 人 事 的 断言 ， 这 里 是 有 关 Ben Bitdiddle 的 
aE, ， 他 是 本 公司 里 的 计算 机 大 师 : 
(address (Bitdiddle Ben) (Slumerville (Ridge Road) 10)) 


(job (Bitdiddle Ben) (computer wizard) ) 
(salary (Bitdiddle Ben) 60000) 


每 个 断言 是 一 个 表 (这 里 是 个 三 元 组 )， 其 元 素 本 身 也 可 以 是 表 。 
作为 这 里 的 大 师 ，Ben 管 理 着 公司 的 计算 机 分 部 ， 他 的 属 下 有 两 个 程序 员 和 一 个 技师 。 下 
面 古 有 关 他 们 有 的 信息 : 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) /8)) 
(job (Hacker Alyssa P) (computer programmer) ) 

(salary (Hacker Alyssa P) 40000) 

(Supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 


(address (Fect Cy D) (Cambridge (Ames Street) 3)) 
(job (Fect Cy D) {computer programmer) ) 

(salary (Fect Cy D) 35000) 

(supervisor (Fect Cy D) (Bitdiddle Ben) ) 


(address (Tweakit Lem E) (Boston (Bay State Road) 22} )} 
(job (Tweakit Lem E) (computer technician) ) 

(salary (Tweakit Lem E) 25000) 

(supervisor (Tweakit Lem E) (Bitdiddle Ben) |) 


在 这 里 还 有 一 个 实习 程序 员 ， 由 Alyssa 指 寻 : 
(address (Reasoner Louis) (Slumerville (Pine Tree Road) 80)} 
(job (Reasoner Louis) (computer programmer trainee) ) 
(Salary (Reasoner Louis) 30000) 


(Supervisor (Reasoner Louis) (Hacker Alyssa P))} 


所 有 这 些 人 都 属于 计算 机 分 部 ， 这 由 他 们 的 工作 描述 中 的 第 一 个 词 computer 表 明 。 
Ben 是 公司 的 高 级 雇员 ， 他 的 上 司 就 是 公司 的 大 老板 本 人 : 
(supervisor (Bitdiddle Ben) (Warbucks Oliver)) 
(address (Warbucks Oliver) (Swellesley (Top Heap Road))) 


(job (Warbucks Oliver) (administration big wheel) } 


(salary (Warbucks Oliver) 150000) 


除了 计算 机 分 部 外 ， 这 个 公司 里 还 有 一 个 会 计 分 部 ， 由 一 位 主管 会 计 和 他 的 助手 组 成 : 


(address (Scrooge Eben) (Weston (Shady Lane) 10)) 
(job (Scrooge Eben) (accounting chief accountant) ) 
(salary (Scrooge Eben) 75000) | 
(supervisor (Scrooge Eben) (Warbucks Oliver)} 


(address (Cratchet Robert) (Allston (N Harvard Street) 16)) 
(job (Cratchet Robert) (accounting scrivener) ) 

(Salary (Cratchet Robert) 18000) 

(Supervisor (Cratchet Robert) (Scrooge Eben)) © 


大 老板 还 有 一 个 秘书 : 

(address (Aull DeWitt) (Slumerville (Onion Square) 5)) 

(job (Aull DeWitt) (administration secretary) ) 

(Salary (Aull DeWitt) 25000) 

(supervisor (Aull DeWitt) (Warbucks Oliver) ) 

ia ee ER Pb ET BS. Sea SA SE ET OPER Ax ILA Sh Ze RP RY 
工作 。 比 如 说 ， 计 算 机 大 师 还 可 以 做 计算 机 程序 员 和 计算 机 技师 : 


= 


(can-do-job (computer wizard) (computer programmer) ) 


(can-do-job (computer wizard) (computer technician) } 


计算 机 程序 员 还 可 以 做 实习 程序 员 的 工作 ， 


{can-do-job (computer programmer) 


{computer programmer trainee) ) 


还 有 ， 就 像 我 们 都 知道 的 : 
(can-do-job (administration secretary) 


(administration big wheel)) 


简单 查询 
这 一 查询 语言 允许 用 户 从 数据 库 里 检索 信息 ， 采 用 的 方式 就 是 在 响应 系统 的 提示 时 提出 
有 关 查 询 。 举 例 来 说 ， 为 了 找 出 所 有 的 计算 机 程序 员 ， 我 们 可 以 说 : 


-;; Query input: 
(job ?x (computer programmer} ) 


系统 的 响应 将 会 是 下 面 几 项 : 
.;; Query results: 
(job (Hacker Alyssa P) (computer programmer) ) 


(job (Fect Cy D) (computer programmer) ) 


所 输入 的 查询 应 该 描述 出 我 们 需要 在 数据 库 里 查找 的 ， 能 与 一 个 特定 模式 匹配 的 那些 条 
目 。 在 这 个 例子 里 ， 描 述 条 目的 模式 由 三 个 项 组 成 ， 其 中 的 第 一 项 是 文字 符号 job ， 第 二 个 
项 可 以 是 任何 东西 ， 而 第 三 项 是 文字 的 表 (computer programmer )。 在 描述 匹配 的 表 里 ， 
作为 第 二 项 的 “任何 东西 ”用 一 个 模式 变量 ?X 描 述 。 模 式 变量 的 一 般 形 式 是 一 个 符号 ， 作 为 
变量 的 名 字 ， 在 它 的 最 前 面 字符 是 一 个 问号 。 下 面 我 们 将 看 到 ， 为 模式 变量 取 名 字 是 有 用 的 ， 
因此 这 里 没有 采用 在 模式 中 放 一 个 ? ， 用 于 表示 “任何 东西 ”的 形式 。 系 统 对 简单 查询 的 啊 应 
就 是 显示 出 数据 库 里 所 有 的 能 与 给 定 模 式 匹 配 的 条 目 。 

模式 里 可 以 有 不 止 一 个 变量 。 例 如 碍 询 : 

(address ?x ?y) 

将 列 出 所 有 雇员 的 地 址 。 | 

模式 里 也 可 以 没有 变量 。 此 时 这 一 查询 就 只 是 去 确认 该 模式 是 否 就 是 数据 库 里 的 一 个 条 

目 。 如 果 是 的 话 ， 那 么 就 存在 一 个 匹配 ， 否 则 就 没有 匹配 。 
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同一 模式 变量 也 可 以 在 一 个 查询 里 出 现 多 次 ， et Allie 了 同一 个 “任何 东西 ”必须 出 现 
的 各 个 不 同位 置 。 这 也 是 为 什么 变量 需要 有 名字 的 原因 。 举 例 说 ， 
(supervisor ?x ?x) 
将 找 出 所 有 的 人 ， 他 们 的 上 司 就 是 他 们 自己 (虽然 在 我 们 的 示例 数据 库 里 没有 这 种 断言 )。 
查询 : 
(job ?x (computer ?type)) 
与 所 有 这 样 的 工作 条 目 匹 配 : 其 第 三 项 是 一 个 两 元 素 的 表 ， 其 中 的 第 一 项 是 computer… : 


(job (Bitdiddle Ben) {computer wizard) ) 

(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 

(job (Tweakit Lem E) (computer technician) ) 


这 个 模式 不 会 与 下 面条 目 匹 配 : 

(job (Reasoner Lowis) (computer programmer trainee) ) 
因为 这 一 条 目 里 的 第 三 项 是 一 个 包含 三 个 元 素 的 表 ， 而 模式 里 的 第 三 项 清 清 楚楚 地 说 明 它 要 
求 只 有 两 个 元 素 。 如 果 我 们 希望 修改 上 面 模式 ， 使 被 匹配 的 条 目的 第 三 项 可 以 古 任 何 一 个 由 
computer 开 头 的 表 ， 那 么 就 可 以 采用 下 面 的 搞 述 : | 


(job ?x (computer . ?type)) 


例如 , 


(computer . ?type) 

将 能 够 匹配 数据 
(computer programmer trainee) 

其 中 的 ?type 与 表 (programmer trainee) 匹配 。 这 个 模式 也 能 匹配 数据 
{computer programmer) 


其 中 的 ?type 匹 配 表 (programmer), WHE Mt 
(computer) 
其 中 的 ?type 匹 配 空 表 ()。 
我 们 可 以 把 对 于 这 一 查询 语言 中 简单 查询 的 处 理 折 述 如 下 : | 
。 系 统 将 找 出 使 得 查询 模式 中 变量 满足 这 一 模式 的 所 有 赋值 ， 也 就 是 说 ， 为 这 些 变量 找 出 
所 有 的 值 集合 ， 使 得 如 果 将 这 些 模式 变量 用 这 样 的 一 组 值 实例 化 〈 取 代 ) ， 得 到 的 结 朱 
就 在 这 个 数据 库 里 。 
。 系统 对 查询 的 响应 方式 ， 就 是 列 出 查询 模式 的 所 有 满足 要 求 的 实例 ， 这 些 实例 可 以 通过 
将 模式 中 的 变量 赋 为 满足 它 的 值 而 得 到 。 
请 注意 ， 如 果 模 式 中 没有 变量 ， 这 个 查询 就 简化 为 一 个 有 关 此 模式 是 否 出 现在 数据 库 里 
的 确认 了 。 如 果 确 实 如 此 ， 空 赋值 (不 为 任何 变量 赋值 ) 将 在 数据 库 里 满足 这 一 模式 .。 
练习 4.55 请 给 出 在 上 述 数 据 库 里 检索 下 面 信 息 的 简单 查 铭 : 
a) 所 有 被 Ben Bitdiddle 管 理 的 人 ， 
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b 会 计 部 所 有 人 的 名 字 和 工作 ， 

c) 在 Siumerville 居 住 的 所 有 人 的 名 字 和 住址 。 

复合 查询 

简单 查询 形成 了 这 一 查询 语言 的 基本 操作 。 为 了 和 构 井 复 合 操作 ， 查 询 语言 提供 了 一 些 组 
合 手段 。 使 查询 语言 成 为 逻辑 程序 设计 语言 的 一 个 原因 是 ， 在 这 里 所 用 的 组 合 手段 模仿 了 构 
造 逻 辑 表 达 式 的 组 合 手段 and、or 和 not。( 这 里 所 说 的 and、or 和 not 并 不 是 Lisp 基 本 过 
程 ， 而 是 用 于 查询 语言 的 几 个 内 部 操作 ,。) 

我 们 可 以 利用 and ， 几 下 面 查询 找 出 所 有 计算 机 程序 员 的 住址 : 


(and (job ?person (computer programmer) ) 


(address ?person ?where) |) 


HAJARE: 
(and (job (Hacker Alyssa P) (computer programmer) ) 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)” 


(and (job (Fect Cy D) (computer programmer) ) 
(address (Fect Cy D) (Cambridge (Ames Street) 3))) 


一 般 说 ， 

(and <guery\> <query;> ... <query,>) 
由 对 模式 变量 的 所 有 同时 满足 <query:> ... <gqueryx> 的 值 集 合 满 足 。 

就 像 简单 查询 一 样 ， 系 统 处 理 复 合 查询 的 方式 ， 也 是 找 出 对 模式 变量 的 所 有 满足 查询 的 
赋值 ， 而 后 显示 出 查询 对 于 这 些 值 的 实例 化 结果 。 

构成 复合 查询 的 另 一 个 手段 是 通过 or 。 例 如 : 


(or {supervisor ?x (Bitdiddle Ben)) 


(Supervisor ?x (Hacker Alyssa P))) 


将 会 找 出 所 有 被 Ben Bitdiddle 或 者 Alyssa P. Hacker 管 理 的 人 员 : 


(or (supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 
(supervisor (Hacker Alyssa P) (Hacker Alyssa P))) 


(or (supervisor (Fect Cy D) (Bitdiddle Ben)) 
(supervisor (Fect Cy D) (Hacker Alyssa P))) 


(or (supervisor (Tweakit Lem E) (Bitdiddle Ben)) 
(supervisor (Tweakit Lem E) (Hacker Alyssa P))) 


(or (supervisor (Reasoner Louis) (Bitdiddle Ben) ) 
{supervisor (Reasoner Louis) (Hacker Alyssa P)))} 


一 般 说 ， 
(Or <query,> <query> ... <query,>) . 

由 对 模式 变量 的 所 有 满足 <qgueryi> ... <guem> 中 至 少 一 个 查询 的 那些 值 集 合 满足 。 
复合 查询 还 可 以 用 net 构造。 例如， 


(and (supervisor ?x (Bitdiddle Ben) ) 


(not (job ?x (computer programmer} ))) 


将 找 出 所 有 由 Ben Bitdiddle 领 导 的 不 是 计算 机 程序 员 的 人 。 一 般 而 言 ， 


44 ZBERRA 311 


(not <gqgueryi>) 


BEAT AT HTE E pE query > AIRE WES 

最 后 一 种 组 合 形式 称 为 lisp-value 。 当 LIsP-Vvalue 被 用 作 某 个 模式 的 第 一 个 元 素 时 , 
就 说 明了 下 一 个 元 素 是 一 个 Lisp 的 谓词 ， 应 该 将 它 应 用 于 作为 其 参数 的 其 余 《〈 实 例 化 的 ) 元 
素 。 一 般 说 ， 

(lisp-value <predicate> <arg> ... <arg,>) 
将 被 那样 一 些 对 模式 变量 的 赋值 满足 ， 这 些 赋值 使 得 将 <predicate> 应 用 于 实例 化 后 的 <arg1> … 
<argn> 得 到 真 。 举 个 例子 ， 为 找 出 所 有 工资 高 于 30 000 美 元 的 人 ， 我 们 可 以 写 ”: 


(and (salary ?person ?amount) 


(lisp-value > ?amount 30000) ) 


练习 4.56 inate Tae oA ia : 

a) Ben Bitdiddle 的 所 有 下 属 的 名 字 ， 以 及 他 们 的 住址 ， 

b) 所 有 工资 少 于 Ben Bitdiddle 的 人 ， 以 及 他 们 的 工资 和 Ben Bitdiddle 的 工资 ， 
c) 所 有 不 是 由 计算 机 分 部 的 人 管理 的 人 ， 以 及 他 们 的 上 司 和 工作 。 


规则 
除了 基本 查询 和 复合 查询 之 外 ， 这 一 查询 语言 还 为 查询 的 抽象 提供 了 方法 。 这 通过 规则 
的 方式 给 出 。 规则 : 
(rule (lives-near ?person-l ?person-2) 
(and (address ?person-1 (?town . ?Prest-1)) 
(address ?person-2 (?town . ?rest-2)) 


(not (same ?person-1 ?person-2)}))) 


描述 的 是 如 果 两 个 人 住 在 同一 个 城镇 ， 就 认为 他 们 住 得 很 近 。 最 后 的 not 子 名 防止 这 一 规则 
说 所 有 的 人 自己 和 自己 住 得 近 。 这 一 关系 可 以 定义 为 一 条 极 简单 的 规则 ”: 


(rule (same ?x ?x)) 
下 面 规则 描述 了 某 人 是 一 个 组 织 里 的 “大 人 物 ”， 条 件 是 他 管理 的 某 些 人 还 管理 其 他 人 : 


(rule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager) ) ) 


规则 的 一 般 形式 是 : 


(rule <conclusion> <body>) 


67 实际 上 ， 有 关 not MUHA FORAY ANB SAY, NOt MISE RTA A HE, RT ES 4 244 
察 not 的 特殊 性 质 。 | 

8 1isp-valuemMizR AFA AWS BAAR RTE. 。 特 别 是 ， 不 应 该 用 它 去 做 相等 检查 (因为 这 实际 
上 就 是 查询 语言 中 的 匹配 所 要 做 的 事情 ) 或 者 不 等 检查 (因为 这 可 以 按 下 面 方式 用 同一 规则 完成 )。 

w 请 注意 ， 为 弄 清 两 个 东西 一 样 并 不 需要 same ， 只 需要 为 它们 使 用 同样 的 模式 变量 一 -从 效果 看 ， 这 就 是 说 有 
的 是 一 个 东西 而 不 是 两 个 。 例如 1ives-near 规 则 里 的 ?town 和 下 面 wheel 规 则 里 的 ?middle-manager , 
当 我 们 希望 强迫 要 求 两 个 东西 不 同时 same 才 有 用 ， 如 在 1ives-near 规 则 星 的 ?Person-1 和 ?PerSsonr-2< 。 
虽然 在 一 个 查询 里 的 两 个 部 分 使 用 同一 模式 变量 将 强迫 同样 的 值 出 现在 这 两 处 ， 采用 不 同 模式 BAN HER 
迫 它们 出 现 不 同 的 值 ( 赋 给 不 同 模式 变量 的 值 可 以 相同 也 可 以 不 同 ) 。 
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其 中 的 <conclusion> 是 一 个 模式 ，<body> 可 以 是 任何 查询 ”。 我 们 可 以 认为 ， 一 个 规则 就 
像 是 表示 了 很 大 的 〈 甚 至 是 无 穷 的 ) 一 组 断言 ， 也 就 是 相应 规则 的 结论 的 所 有 实例 ， 其 变量 
赋值 满足 规则 的 体 。 前 面 说 过 ， 在 描述 一 个 简单 查询 (模式 ) 时 ， 如 果 对 模式 中 的 变量 做 了 
一 个 赋值 ， 这 样 实例 化 后 的 模式 出 现在 数据 库 里 ， 我 们 就 说 该 赋值 满足 这 个 模式 。 其 实 模 式 
并 不 必 显 式 地 作为 断言 出 现在 数据 库 里 ， 它 也 可 以 是 由 某 条 规则 所 缠 含 的 隐 式 断言 。 例 如 ， 
宜 询 

(lives-near ?x (Bitdiddle Ben) ) 
结果 得 到 


(lives-near (Reasoner Louis) (Bitdiddle Ben) ) 
(lives-near {Aull DeWitt) (Bitdiddle Ben) ) 


要 找 出 所 有 住 在 Ben Bitdiddle 附 近 的 计算 机 程序 员 ， 我 们 可 以 问 
(ind (job ?x (computer programmer)) - 


(lives-near ?x (Bitdiddle Ben))}) 


就 像 复合 过 程 的 情况 一 样 ， 规 则 也 可 以 作为 其 他 规则 里 的 一 部 分 (就 像 我 们 在 上 面 11Ves- 
near 规 则 中 已 经 看 到 的 那样 ) ， 或 者 甚至 可 以 递归 地 定义 。 举 个 例子 ， 规 则 


(rule (outranked-by ?staff-person ?boss) 
(or (supervisor ?staff-person ?boss) 
(and (supervisor ?staff-person ?middle-manager)} 


(outranked-by ?middle-manager ?boss)))) 

说 一 个 职员 是 一 个 老板 的 下 级 ， 条 件 是 如 果 这 个 老板 就 是 他 的 主管 ， 或 者 〈 递 归 的 ) 这 个 人 
的 主管 是 这 个 老板 的 下 级 。 

练习 4.57 ”请 定义 一 条 规则 ， 说 某 甲 可 以 代替 某 乙 ， 如 果 甲 所 做 工作 与 亿 相 同 ， 或 者 任 
何 能 做 甲 的 工作 的 人 都 能 做 乙 的 工作 ， 而 且 甲 与 乙 不 是 同一 个 人 。 使 用 你 的 规则 ， 给 出 找 出 
下 面 结果 的 查询 : 

a) 所 有 能 代替 Cy D. Fect 的 人 ， 

b) 所 有 能 代替 某 个 工资 比 自己 高 的 人 的 人 ， 以 及 这 两 个 人 的 工资 。 

练习 4.58 ”请 定义 一 条 规则 说 ， 一 个 人 是 某 部 门 里 的 “大 腕 ”， 如 果 这 人 工作 在 该 部 1]， 
但 在 这 一 部 门 里 没有 他 有 的 上 司 。 

练习 4.59 Ben Bitdiddle 经 常 开会 迟到 。 他 害怕 这 种 习惯 会 影响 他 的 职位 ， 因 此 决定 做 所 
有 关 的 事情 。 他 在 Microshaft 的 数据 库 里 增加 了 所 有 每 周 例会 的 信息 ， 写 成 如 下 断言 : 


(meeting accounting (Monday 9am) ) 
(meeting administration (Monday 10am) ) 
(meeting computer (Wednesday 3pm) ) 
(meeting administration (Friday lipm)) 


这 里 的 每 个 断言 对 应 于 整个 分 部 的 一 次 会 议 。Ben 还 为 全 公司 会 议 〈 包 括 各 个 分 部 ) 加 入 了 一 
个 条 目 。 公 司 的 所 有 雇员 应 该 出 席 这 个 会 议 。 
(meeting whole-company (Wednesday 4pm) ) 


a) 在 星期 五 上 午 ，Ben 希 望 查询 数据 库 ， 确 定 今天 的 所 有 会 议 。 他 应 该 使 用 什么 样 的 奉 


270 我 们 允许 没 有 体 的 规则 ， 例 如 same 。 而 且 把 这 种 规则 解释 为 ， 规 则 的 结论 被 变量 的 任何 值 满足 。 
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询 ? 

b) Alyssa P. Hacker 对 此 并 不 满意 ， 她 认为 ， 如 果 能 通过 自己 的 名 字 询 问 有 关 会 议 ， 这 种 
功能 才 更 有 用 处 。 因 此 她 设计 了 一 条 规则 ， 说 一 个 人 的 会 议 应 包括 所 有 whole-company 会 
议 ， 再 加 上 这 个 人 所 在 部 门 的 所 有 会 议 。: 请 给 下 面 规则 填充 体 部 分 。 


(rule (meeting-time ?person ?day-and-time) 


<rule-body>) 


c) Alyssa 星 期 三 上 午 回 来 上 班 , 希望 知道 她 当日 必须 参加 哪些 会 议 。 现 在 已 经 有 了 上 面 
规则 ， 她 应 该 写 什 么 样 的 查询 将 这 些 会 议 查 出 来 呢 ? 
练习 4.60 ”给 出 了 查询 


(lives-near ?person (Hacker Alyssa P)) 


Alyssa P. Hacker 就 能 查 出 谁 住 在 自己 附近 ， 这 样 她 就 可 以 搭 同事 的 便 车 上 班 了 。 而 男 一 方面 ， 
当 她 试 着 用 下 面 查询 去 找 出 所 有 一 对 对 的 大 住 较 近 的 人 时 

(lives-near ?person-1 ?person-2) 
却 注 意 到 每 对 这 样 的 人 都 列 出 了 两 次 。 例 如 : 


{(lives-near (Hacker Alyssa P) {Fect Cy D)) 
{lives-near (Fect Cy D) (Hacker Alyssa P)) 


为 什么 会 出 现 这 种 情况 ? 是 否 能 查找 居住 接近 的 人 ， 用 每 对 人 只 列 出 一 次 ? 请 解释 答案 。 

将 逻辑 看 做 程序 

我 们 可 以 认为 ， 一 条 规则 就 是 一 个 逻辑 组 含 ， 如 果 对 所 有 模式 变量 的 一 个 峰值 满足 规则 
的 体 ， 那 么 它 就 满足 其 结论 。 因 此 ， 我 们 可 以 认为 查询 语言 有 着 一 种 基于 有 关 规 则 ， 执 行 远 
辑 推理 的 能 力 。 作 为 一 个 示例 ， 现 在 考虑 在 4.4 节 开始 时 提 到 的 append 操 作 。 正 如 那 时 讲 过 
的 ，append 可 以 用 下 面 的 两 条 规则 刻画 : 

*。 对 于 任何 表 y ， 将 空 表 与 y 的 append 形 成 的 是 y。 

。 对 于 任何 u、v、Yy 和 z, 将 (cons u v) 与 y append 形 成 (cons u z), RIEV 

与 yY 的 append 形成 z。 

为 了 用 上 面 的 查询 语言 描述 这 两 条 规则 ， 我 们 要 为 下 面 的 关系 定义 两 条 规则 : 


(append-to-form x y zZ) 


它 的 意思 可 以 解释 为 “x 和 y 的 append 形 成 了 z : 
(rule (append-to-form () Py ?y)) 
(rule (append-to-form (?u . ?v) Py (?u . ?2)) 


(append-to-form ?v ?y ?z)) 

这 里 的 第 一 条 规则 没有 体 ， 这 意味 着 结论 对 ?y 的 任何 值 都 成 立 。 请 注意 ， 在 第 二 条 规则 中 ， 
在 为 一 个 表 的 car 和 cdqr 命名 时 ， 采 用 了 圆 点 尾部 的 记 法 形 却 。 

给 出 这 两 条 规则 之 后 ， 我 们 就 可 以 写 出 查询 ， 去 计算 两 个 表 的 apPenQd y, 

Query input: 

(append-to-form {a b) (c da) ?2) 

.;; Query results: 

(append-to-form (a b) (c d} {a b c d)) 
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更 令 人 震惊 的 是 ， 我 们 还 能 利用 这 同样 的 两 条 规则 提出 这 样 的 问题 
(a b) 的 后 面 能 产生 出 (a b c d) ”。 这 一 查询 可 以 按 如 下 方式 写 : 


s>; Query input: 


{append-to-form (a b) ?y (a b c d)) 


7377 Query results: 
{append-to-form (a b) (c d) {a b c d)) 


我 们 还 可 以 询问 所 有 append 起 来 能 形成 (a b c d) 的 表 的 序 对 : 


:Query input: 


(append-to-form ?x ?y (a b c d)) 


2: Query results: 

(append-to-form () (a bc d) (a b c d)) 
(append-to-form (a) (b c d) (a b c d)) 
(append-to-form (a b) (c d) (a b c d)) 
(append-to-form (a b c) (d) (a b c d)) 
(append-to-form (a b c d) () (a b c d)) 


从 表面 看 ， 这 样 的 查询 系统 在 使 用 规则 推导 出 上 述 查询 的 回答 时 ， 好 像 显 示 出 不 少 的 智 
能 。 实 际 上 ， 正 如 我 们 将 在 下 一 节 里 看 到 的 ， 这 样 系统 不 过 是 按照 一 种 精确 定义 的 算法 去 拆 
解 这 些 规则 罢了 。 遗 憾 的 是 ， 虽 然 这 个 系统 对 于 append 示 例 的 工作 情况 令 人 印象 深刻 ， 对 于 
更 复杂 的 情况 ， 这 种 一 般 性 的 方法 却 可 能 失败 ， 正 如 我 们 将 在 4.4.3 市 中 看 到 的 那样 。 


练习 4.61 


(rule (?x next-to ?y in (?x ?y 。 ?u))) 


{rule (?x next-to ?y in (?v . ?2)) 


(?x next-to ?y in ?2)) 


下 面 查询 将 会 得 到 什么 回应 ? 


(2x next-to ?y in (1 (2 3) 4)) 


(?x next-to 1 in (2 1 3 1)) 


练习 4.62 


FAS LBs HR 


:“ 了 哪个 表 被 append 到 . 


下 面 规则 实现 了 next-to 关 系 ， 它 找 出 一 个 表 里 的 相 邻 元 素 : 


请 定义 规则 实现 练习 2.17 里 的 last-pair 操 作 ， 该 操作 返回 一 个 表 ， 其 中 包 


念 着 一 个 非 空 表 里 的 最 后 一 个 元 素 。 通 过 一 些 查 询 检 查 你 的 规则 ,例如 (last-pair 
(3) ?x)、(last-pair (1 2 3) ?x) 和 (last-pair (2 ?x)(3))。 你 的 规则 对 
(last-pair ?x (3)) 也 能 正确 工作 吗 ? | 

练习 4.63 ”下 面 数据 库 ( 见 《 创 世纪 4》) 追踪 一 个 血缘 关系 表 ， 从 Ada 的 后 这 一 直上 毅 至 
Adam, ， 通 过 Caln : 


{son 
(son 
(son 
(son 
(son 
(son 


Adam Cain) 

Cain Enoch) 

Enoch Irad) 

Irad Mehujael ) 
Mehujael Methushael) 
Methushael Lamech) 


(wife Lamech Ada) 


(son 
(son 


Ada Jabal) 
Ada Jubal) 


请 构造 出 一 些 规则 ， 如 “如 果 S 是 F 的 儿子 ， 而 且 F 是 G 的 儿子 ， 那 么 S 就 是 G 的 孙子 ”",“ 如 果 W 
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是 M 的 妻子 , 而 且 S 是 W 的 儿子 , 那么 S 也 是 M 的 儿子 ”( 这 些 在 圣经 时 代 可 能 比 在 今天 更 正确 )， 
ea Lamech 的 儿子 ，Methushael 的 孙子 。( 参 见 练习 4.62 有 
能 推导 出 一 些 更 复杂 关系 的 规则 。) 


4.4.2 查询 系统 如 何 工作 


在 4.4.4 节 里 ， 我 们 将 给 出 一 个 查询 解释 器 的 实现 ， 它 由 一 组 过 程 组 成 。 本 市 要 给 出 一 个 
概述 ， 解 释 这 一 系统 中 与 底层 实现 细节 无 关 的 一 般 性 结构 。 在 描述 了 这 一 解释 右 的 实现 情 沈 
之 后 ， 我 们 就 能 达到 一 个 位 置 ， 在 那里 我 们 已 经 可 以 理解 这 种 解释 器 的 局 限 性 ， 以 及 查询 语 
言 的 逻辑 运算 与 数理 逻辑 中 的 运算 之 间 的 一 些微 妙 老 异 。 

事情 很 明显 ， 查 询 求 值 器 必须 执行 某 种 搜索 ， 以 便 将 有 关 的 查询 与 数据 库 里 的 事实 和 规 
则 做 匹配 。 完 成 此 事 的 -- 种 方式 是 采用 4.3 节 的 amb 求 值 器 ， 将 查询 系统 实现 为 一 个 非 确定 性 
的 程序 ( 见 练习 4.78 )。 另 一 可 能 性 是 借助 于 流 ， 去 设法 控制 搜索 。 这 里 将 要 考虑 有 的 实现 来 用 

这 一 查询 系统 的 组 织 结构 围绕 着 两 个 核心 操作 ， 它 们 分 别称 为 模式 匹配 和 合 一 。 我 们 到 
先 描述 模式 匹配 ， 并 给 出 有 关 解 释 , 说 明 怎 样 让 这 一 操作 与 基于 框架 的 流 组 织 起 的 信息 一 起 
工作 ， 使 我 们 能 实现 简单 查询 和 复合 查询 。 而 后 我 们 再 解释 合 一 操作 ， 它 是 模式 匹配 的 推广 ， 
是 实现 规则 所 需要 的 东西 。 最 后 还 要 说 明 如 何 通过 一 个 对 表达 式 进行 分 类 的 过 程 ， 将 整个 查 
询 解 释 器 组 合 起 来 ， 类 似 于 4.1 节 里 描述 的 解释 器 中 eval 对 表达 式 分 类 所 采用 的 方式 。 


模式 匹配 

- -个 模式 匹配 器 是 一 个 程序 ， 它 检查 数据 项 是 否 符合 一 个 给 定 的 模式 。 举 例 来 说 ， 数 据 
# ((a b)c (a b)) 与 模式 (?x c ?x) 匹配 ， 其 中 的 模式 变量 ?x 约束 于 (a b)。 同 一 
个 数据 表 也 与 模式 匹配 (?x ?y 22), 其 中 ?x 和 ?z 都 约束 到 (a b)，?y 约 束 到 c。 这 一 数 
据 也 与 模式 ((?x ?y) c (?x ?y)) 匹配 ， 其 中 的 ?x 约束 到 a 而 ?7 约束 到 b。 然 而， 这 一 数 
据 却 不 与 模式 (?x a ?y) 匹配 ， 因 为 这 个 模式 描述 的 表 中 的 第 二 个 元 素 必须 十 和 从 -5a。 

这 个 查询 系统 所 用 的 模式 匹配 器 以 一 个 模式 、 一 个 数据 和 一 个 框架 作为 输入 ， 该 框架 描 
术 了 一 些 模式 变量 的 约束 。 匹 配器 检查 该 数据 是 否 以 某 种 方式 与 模式 匹配 ， 而 这 种 方式 义 契 
与 框架 里 已 有 的 约束 相 容 的 。 如 果 确 实 如 此 ， 匹 配器 就 返回 原来 框架 的 一 个 扩充 ， 基 中 加 入 
了 由 当前 匹配 确定 的 所 有 新 约束 。 如 果 不 能 匹配 ， 它 就 指出 该 匹配 失败 。 | 

举例 说 ， 如 果 给 了 一 个 空 框 架 ， 要 求 用 模式 (2x Py ?x) 去 匹配 (a b a), 匹配 副将 
ix [el] 一 个 框架 ， 其 中 描述 的 是 ?x 被 约束 到 a 而 ?y 约 束 到 bp， 如 果 用 同一 模式 、 同 一 数据 和 一 个 
包 念 将 ?y 约 束 到 的 a 框架 试验 这 一 匹配 ， 那 么 匹配 就 会 失败 。 试 验 同一 个 匹配 ， 用 同一 模式 、 
同一 数据 和 一 个 包含 将 ?y 约 束 到 的 b 框 架 ， 返 回 的 是 给 定 框架 扩充 了 ?x 到 a 的 约束 。 

这 个 模式 匹配 器 提供 了 处 理 不 涉及 规则 的 简单 查询 所 需 的 所 有 机 制 - 例如 ， 在 处 理 下 面 
的 查询 时 

(job ?x (computer programmer) ) 
我 们 需要 对 于 一 个 空 初始 框架 ， 扫 描 上 面 数 据 库 里 的 所 有 断言 ， 选 出 其 中 与 模式 相 匹配 的 断 
言 。 对 于 每 一 个 匹配 ， 都 要 用 这 个 匹配 所 返回 的 框架 里 给 ?x 的 值 去 实例 化 这 个 模式 。 
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框架 的 流 

用 模式 去 检查 框架 的 工作 被 组 织 为 一 种 对 流 的 使 用 。 给 定 了 一 个 框架 ， 匹 配 过 程 将 一 个 
个 地 扫描 数据 库 里 的 条 目 。 对 于 每 个 数据 库 条 目 ， 匹配 器 或 者 产生 出 一 个 指明 匹配 失败 的 特 
吻 符 号 ,， 或 者 给 出 相应 框架 的 一 个 扩充 。 对 所 有 数据 库 条 目的 匹配 结果 被 收集 到 一 起 ， 形 成 
一 个 流 ， 这 个 流 被 送 入 一 个 过 滤器 ， 删 除 其 中 所 有 的 失败 信息 。 这 样 做 的 结果 就 得 到 了 另 一 
个 流 ， 其 中 包含 着 所 有 满足 条 件 的 框架 ， 它 们 都 是 基于 原来 的 框架 ， 由 于 与 数据 库 里 某 些 断 
言 相 匹配 而 扩充 后 得 到 的 ”1!。 

在 我 们 的 系统 里 ， 一 个 查询 以 一 个 框架 流 作 为 输入 。 它 将 针对 这 一 流 中 的 每 个 框架 执行 
ER 匹配 操作 ， 如 图 4-4 所 示 。 也 就 是 说 ， 对 于 输入 流 中 的 每 一 个 框架 ， 这 一 查询 都 会 产生 出 
一 个 新 的 流 ， 其 中 包含 了 给 定 框架 的 所 有 通过 与 数据 库 里 断言 的 匹配 而 形成 的 扩充 。 所 有 这 
些 流 被 组 合 为 一 个 规模 很 大 的 流 ， 其 中 包含 了 输入 流 中 每 个 框架 的 所 有 可 能 扩充 。 这 个 流 就 
是 给 定 查 询 的 输出 。 


框架 的 输出 流 
输入 的 框 染 流 带 有 可 能 的 扩充 








查询 
(job ?x ?y) 






来 自 数据 库 的 断言 流 
图 4-4 一 个 查询 处 理 一 个 框架 的 流 


为 了 回答 一 个 简单 查询 ， 我 们 用 的 是 输入 流 里 只 包含 一 个 空 框架 的 查询 。 这 样 得 到 的 输 
出 流 里 包含 着 这 一 空 框架 的 所 有 扩充 (也 就 是 说 ， 对 查询 的 所 有 回答 )。 这 个 输出 流 又 被 用 于 
生成 另 一 个 流 ， 在 这 个 流 里 出 现 的 都 是 初始 查询 模式 的 副本 ， 其 中 的 变量 用 框架 流 里 各 个 框 
架 做 了 实例 化 。 这 就 是 最 后 需要 打印 的 结 末 的 流 。 

复合 查询 

在 这 一 框架 流 实 现 中 ， 真 正 优 美的 地 方 在 于 其 中 对 复合 查询 的 处 理 方 式 。 在 对 于 复合 碍 
询 的 处 理 中 ， 我 们 利用 了 这 一 匹配 器 带 着 一 个 特定 框架 去 探查 匹配 的 能 力 。 举 例 来 说 ， 为 了 
处 理 两 个 查询 的 and， 例 如 


(and (can-do-job ?x (computer programmer trainee) ) 


(job ?person ?x)) 
( 非 形式 地 说 ， 就 是 “ 找 出 所 有 的 人 ， 他 们 都 能 做 计算 机 实习 程序 员 的 工作 )， 我 们 首先 找到 
所 有 与 下 面 模式 相 匹 配 的 条 目 : 


m 一 般 而 言 ， 匹 配 是 一 种 代价 高 昂 的 工作 ， 因 此 我 们 希望 避免 将 完整 的 匹配 器 应 用 于 数据 库 里 的 每 一 个 元 素 ， 
通常 可 以 通过 将 这 个 过 程 分 解 为 快速 的 粗略 匹配 和 最 终 匹 配 而 达到 加 速 的 目的 。 其 中 的 粗略 匹配 过 滤 数 据 库 ， 
为 最 终 匹 配 产 生出 很 小 的 一 组 侠 选 。 我 们 也 可 以 仔细 安排 这 个 数据 库 ， 使 得 粗略 匹配 的 工作 能 够 在 数据 库 构 
造 的 过 程 中 完成 ， 而 不 是 等 到 需要 找 出 候选 的 时 候 再 做 。 这 称 为 数据 库 的 索引 。 人 们 为 创建 数据 库 索引 模式 
提出 了 大 量 的 技术 。 在 4.4.4 节 描述 的 实现 中 包含 了 支持 这 类 优化 的 一 些 简单 的 东西 。 
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(can-do-job ?x (computer programmer trainee) ) 
这 就 产生 出 一 个 框架 流 ， 其 中 的 每 个 框架 里 都 包含 了 一 个 对 ?x 的 约束 。 随 后 ， 我 们 要 对 这 个 
流 里 的 每 个 框架 ， 以 某 种 方式 去 找 与 下 面 模式 相 匹 配 的 所 有 条 目 : 

(job ?person ?x) 
这 些 条 目 都 需要 与 已 经 给 定 的 ?x 的 约束 相 容 。 每 个 这 种 匹配 将 产生 出 一 个 框架 ， 其 中 包含 了 
对 ?Xx 和 ?person 的 约束 。 两 个 查询 的 and 可 以 看 作 是 两 个 成 分 查询 的 一 个 序列 组 合 ， 如 图 4-5 
所 示 。 送 给 第 一 个 查询 过 滤器 的 所 有 框架 经 过 过 滤 后 ， 再 进一步 被 第 二 个 查询 扩充 。 


输入 的 框架 流 输出 的 框架 流 





数据 库 
图 4-5 两 个 查询 的 and 组 合 由 对 序列 中 框架 六 的 操作 生成 


图 4-6 显 示 的 是 采用 类 似 方式 计算 两 个 查询 的 oz 的 情况 ， 可 以 将 这 看 作 是 两 个 成 分 查询 的 
并 行 组 合 。 两 个 结果 流 被 归并 到 一 起 ， 产 生出 最 后 的 输出 流 。 





输出 的 框架 流 





输入 的 框架 流 


数据 库 


图 4-6 两 个 查询 的 or 组 合 ， 产 生 方 式 是 并 行 地 在 两 个 流 上 操作 ， 然 后 归并 结案 流 


即使 是 从 这 种 高 层 描 述 里 ， 我 们 也 可 以 明显 看 出 ， 对 复合 操作 的 处 理 将 会 很 慢 。 举 例 说 ， 
因为 在 查询 中 对 每 一 个 框架 都 可 能 产生 出 多 个 框架 ， 而 在 and 里 的 每 个 查询 都 需要 从 六 面 在 
询 得 到 自己 的 输入 框架 流 ， 因 此 ， 在 最 坏 情 况 下 ， 一 个 and 查 询 工作 中 必须 执行 的 匹配 次 数 ， 
就 是 其 中 的 查询 个 数 的 指数 函数 ( 见 练习 4.76) ”?。 虽 然 只 处 理 简 单 查询 的 系统 相当 实用 ， 处 
理 复杂 查询 还 是 非常 困难 的 ”。 


m 但 是 这 种 指数 爆炸 在 and 查询 中 并 不 常见 ， 因 为 一 般 来 说 ， 条 件 的 增加 趋向 于 前 减 框架 的 数量 ， 而 不 是 扩张 


所 产生 的 框架 数量 。 | 
m 存在 着 大 量 关于 数据 库 管理 系统 的 文献 ， 讨 论 如 何 有 效 地 处 理 复杂 查询 。 
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(not (job ?x (computer programmer) ) ) 
对 输入 流 里 的 每 个 框架 ， 我 们 要 试 着 去 产生 出 所 有 不 满足 (job ?x (computer 
programmer )) 的 扩充 框架 。 为 此 ， 就 需要 从 输入 流 里 删除 所 有 存在 着 这 种 扩充 的 框 染 。 这 
样 就 得 到 了 一 -个 流 ， 它 里 面 只 包含 了 那些 对 ?x 的 约束 不 能 满足 (Job ?x (computer 
programmer )) 的 框架 。 例 如 ， 在 处 理 下 面 查 询 时 : 


(and (Supervisor ?x ?y) 
(not (job ?x (computer programmer) ))) 


第 一 个 子 句 将 产生 出 一 批 带 有 ?x 和 ?y 的 约束 的 框架 ， 而 后 not 子 句 将 过 滤 它 们 ， 删 除 其 中 所 
有 对 于 ?x 的 约束 满足 限制 条 件 “?x 是 程序 员 ” 的 那些 框架 4。 

这 里 也 把 特殊 形式 lisp-value 实 现 为 框架 流 上 的 一 个 过 滤器 。 我 们 将 用 流 里 的 各 个 框 
架 去 实例 化 模式 里 的 变量 ， 然 后 对 得 到 的 实例 化 结果 应 用 给 定 的 Lisp 谓词 ， 在 谓词 得 到 假 时 
从 流 中 删 去 相应 的 框架 。 


> -一 
= 


为 了 处 理 查 询 语言 里 的 规则 ， 我 们 必须 能 找 出 所 有 这 样 的 规则 ， 其 结论 部 分 与 给 定 的 查 
询 模式 匹配 。 规 则 的 结论 很 像 断 言 ， 但 是 它们 也 可 以 包含 变量 。 为 了 处 理 这 种 情况 ， 我 们 就 
需要 模式 匹配 的 一 种 推广 一 一 称 为 售 一 ， 其 中 的 “模式 ”和 “数据 ”都 可 以 包含 变量 。 

合 一 器 取 两 个 都 可 以 包含 常量 和 变量 的 模式 为 参数 ， 设 法 去 确定 能 否 找到 对 其 中 变量 的 
某 种 赋值 ， 使 两 个 模式 相等 。 如 果 能 够 找到 ， 它 就 返回 包含 着 有 关 约 束 的 框架 。 举 例 说 ， 对 
(?x a ?y) 和 (?y ?2 a) 的 合 一 将 产生 出 一 个 框架 ， 其 中 的 ?x、?y 和 ?2 都 约束 到 a。 在 
另 一 方面 ,对 (?x ?y a) 和 (?x b 2y) 的 合 一 则 会 失败 ， 因 为 在 这 里 对 ?y 做 任何 赋值 ， 
都 不 能 使 两 个 模式 变 得 相同 (根据 这 两 个 模式 里 的 第 二 个 元 素 ，?Y 应 该 是 b， 然 而 根据 它们 
的 第 三 个 元 素 ，?Y 又 应 该 是 a )。 这 个 查询 系统 里 的 合 一 器 与 模式 匹配 器 一 样 ， 它 也 以 一 个 框 
架 作 为 输入 ， 执 行 与 该 框架 相 容 的 合 一 工作 。 

合 一 算法 是 查询 系统 中 最 难 的 部 分 。 对 于 复杂 的 模式 ， 执 行 合 一 似乎 需要 做 推理 。 例 如 ， 
为 了 合 一 (?x ?x) ğa ((a ?y c) (a b ?z)), 该 算法 必须 推断 出 ?x 应 该 是 (a b 
c ) ，?y 应 该 是 b， 而 ?z 应 该 是 c。 我 们 可 能 会 认为 ， 这 一 过 程 就 像 是 求解 模式 成 分 上 的 一 集 
方程 。 一 般 而 言 ， 这 些 确实 是 一 些 联 立 方程 ， 求 解 它们 可 能 需要 很 复杂 的 操作 ””。 例 如 ， 对 
(2x ?x) 和 ((a ?y c) (a b ?z)) 的 合 一 可 以 看 作 是 描述 了 如 下 的 联 立 方程: 


?x = (a ?y c} 
= (a b ?2) 





(a ?y c) = (ab :2) 
而 它 又 纺 含 着 


a = a, ?y = bc = ?2 


24 在 not 的 这 种 过 滤器 实现 和 数理 逻辑 中 not 的 常规 意义 之 间 有 一 点 微妙 差异 ， 见 4.4.3 节 。 
ws 在 单 边 的 模式 匹配 里 ， 包 含 模式 变量 的 所 有 方程 都 很 明显 ， 并 都 已 将 未 知 量 (模式 变量 ) 解 出 。 
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央 此 就 有 

2x = {a bec) 

在 一 次 成 功 的 模式 匹配 里 ， 所 有 模式 变量 都 将 得 到 约束 ， 而 且 给 它们 的 约束 值 里 也 只 包 
含 常 量 。 对 于 我 们 至 今 已 看 到 的 那些 合 一 实例 ， TUE Be an 然而 ， 一 般 而 言 ， 一 个 成 功 
的 合 一 也 可 能 并 没有 完全 确定 所 有 变量 的 值 ， 有 些 变量 还 会 是 未 约束 的 ， 另 一 些 也 可 能 约束 
到 包含 着 变量 的 值 。 

现在 考虑 (?x a) 和 ((b ?y) 22) 的 合 一 。 我 们 可 以 推导 出 ?x= (b ?y) ME 
a =?z，, 但 是 却 无 法 对 ?x 和 ?yY 做 进一步 的 求解 了 。 这 个 合 一 并 没有 人 失败， 因为 通过 对 ?x 和 
?2y 的 赋值 ， 确 实 能 把 两 个 模式 和 弄 成 完全 一 样 的 。 由 于 在 这 个 匹配 里 对 于 ?yY 可 取 的 值 并 没有 任 
何 限制 ， 因 此 框架 里 就 不 会 存在 对 于 ?yY 的 约束 。 在 另 一 方面 ， 这 个 匹配 中 确实 限制 了 ?xX 的 信 ， 
无 论 ?y 取 什么 值 ，?x 都 必须 是 (b 2?y)。 因 此 ， 从 ?x 到 模式 (b Py) 的 约束 就 会 被 放 入 框 
架 里 .如果 后 来 ?y 的 值 被 确定 并 加 入 了 框架 (无 论 是 通过 某 个 与 此 框架 相 容 的 匹配 还 是 合 一 )， 
前 面 对 ?x 的 约束 也 都 会 引用 那个 值 ”。 


规则 的 应 用 
对 于 从 规则 出 发 的 推理 而 言 ， 合 一 是 这 一 查询 系统 里 最 关键 的 部 件 。 为 了 看 清楚 这 件 事 
情 应 该 怎样 做 ， 现 在 考虑 一 个 涉及 到 规则 应 用 的 查询 的 处 理 过 程 。 例 如 : 


(lives-near ?x (Hacker Alyssa P)) 


为 了 处 理 这 一 查询 ， 我 们 首先 需要 用 上 面 描述 的 常规 模式 匹配 过 程 ， 去 看 数据 库 里 是 否 存 在 
任何 与 这 一 模式 相 匹 配 的 断言 (对 于 目前 这 个 情况 ， 我 们 什么 也 找 不 到 。 因 为 在 数据 库 里 根 
本 就 没有 有 关 谁 与 谁 住 得 很 近 的 断言 )。 下 一 步 就 是 设法 用 查询 模式 与 每 条 规则 的 结论 去 做 合 
一 。 这 时 我 们 发 现 ， 该 模式 可 以 与 下 面 规则 的 结论 合 一 : 
(rule (lives-near ?person-l1 ?person-2) 
(and (address ?person-1 {?town . ?rest-1)) 


{address ?person-2 (?town . ?rest-2)) 
(not (same ?person-1 ?person-~2)))) 


疆 果 得 到 了 -一个 框架 ， 其 中 描述 的 是 ?person-2 约 束 到 (Hacker Alyssa P)， 而 ?x 应 该 
约束 到 ?person-1 (应 该 与 其 有 相同 的 值 ) 。 现 在 我 们 就 需要 相对 于 这 一 框架 ， 去 求 值 由 这 
一 规则 的 体 给 定 的 复合 查询 。 成 功 的 匹配 将 扩充 这 个 框架 ， 提 供 对 ?person-1 的 一 个 约束 ， 
并 因此 也 给 定 了 ?x 的 值 。 此 后 我 们 就 可 以 用 这 个 值 去 实例 化 初始 的 查询 模式 了 。 

一 般 而 言 ， 当 查询 求 值 器 试图 在 一 个 描述 了 某 些 模式 变量 匹配 的 框架 里 ， 完成 对 一 个 查 
询 模式 的 匹配 时 ， 它 将 采用 下 面 方法 去 设法 应 用 一 条 规则 : 

。 将 这 个 查询 与 规则 的 结论 做 合 一 ， 以 便 (在 成 功 时 ) 形成 原来 框架 的 一 个 扩充 ，。 

。 相 对 于 这 样 扩充 后 的 框架 ， 去 求 值 由 规则 体形 成 的 查询 。 

请 注意， 这 一 做 法 与 在 一 个 Lisp 的 eval/apply 求 值 器 里 应 用 过 程 的 方法 何其 相似 : 

,将 该 过 程 的 形式 参数 约束 于 实际 参数 ， 以 形成 一 个 框架 去 扩充 原来 的 过 程 环 境 。 


276 认识 合 一 的 另 一 种 方式 是 认为 它 产生 的 是 一 种 最 广 的 模式 ， 使 这 一 模式 同时 是 两 个 输入 模式 的 专门 化 。 也 就 
是 说 ，(?x a) 和 ((b ?y) ?z) 的 合 一 应 是 ((b ?y) a), m (?x a ?y) 和 (?yY #2 a) 的 合 一 〈( 按 
上 面 的 讨论 ) 应 是 (a a a)。 对 于 我 们 的 实现 ， 将 合 一 结果 看 成 框架 比 看 成 模式 更 方便 一 毕 。 
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* 相对 于 这 样 扩 充 后 的 环境 ， 去 求 值 由 过 程 体形 成 的 表达 式 。 

我 们 不 应 对 这 两 种 求 值 吏 之 间 的 相似 性 感到 导 论 。 这 正 是 因为 过 程 定义 是 Lisp 里 的 抽象 
和 手段 ， 而 规则 定义 则 是 现在 的 查询 语言 里 的 抽象 手段 。 在 这 两 种 情况 T, RIRE ER AR 
有 关 的 抽象 ， 方 法 就 是 创建 起 适当 的 约束 ， 而 后 相对 于 它们 去 求 值 规则 或 者 过 程 的 体 。 


简单 查询 

在 本 节 前 面部 分 我 们 已 经 看 到 ， 在 没有 规则 的 情况 下 ， 应 该 如 何 求 值 简单 查询 。 现 在 
又 看 到 了 如 何 应 用 规则 ， 因 此 ， 现 在 就 可 以 描述 如 何 通过 使 用 规则 和 断言 去 求 值 和 锁 单 查 询 
了 。 

给 定 一 个 查询 模式 和 一 个 框架 的 流 之 后 IA it BE ae TE E A a 

© 一 个 扩充 框架 的 流 。 得 到 这 些 框 架 的 方式 是 用 模式 匹配 器 ， 拿 给 定 的 模式 与 数据 库 里 的 

所 有 断言 做 匹配 。 | 

“ 另 一 个 扩充 框架 的 流 ， 通 过 应 用 所 有 可 能 的 规则 而 得 到 (用 合 一 器 ) ”。 
将 这 两 个 流连 接 到 一 起 就 产生 出 一 个 新 流 ， 其 中 包含 了 与 原 框架 相 容 的 ， 能 满足 给 定 模式 
的 所 有 不 同方 式 。 将 这 些 流 (对 于 输入 流 里 的 每 个 框架 有 一 个 流 ) BAA PAM Ot, 
中 包含 了 可 以 从 原来 输入 流 中 每 个 框架 扩充 而 得 到 的 ， 与 给 定 模式 相 匹 配 的 所 有 不 同方 式 。 


查询 求 值 器 和 驱动 循环 

如 果 不 看 基础 匹配 操作 的 复杂 性 ， 这 个 系统 的 组 织 方式 很 像 一 般 语言 的 求 值 颖 。 在 这 里 ， 
协调 各 种 匹配 操作 的 过 程 称 为 geval ， 它 扮演 着 与 Lisp 求 值 器 中 的 过 程 eval 类 似 的 角色 。 
qevall 一 个 查询 和 一 个 框架 流 为 输入 ， 其 输出 是 一 个 框架 的 流 ， 对 应 于 查询 模式 的 所 有 成 
功 匹 配 ， 其 中 的 框架 都 是 输入 流 里 某 些 框架 的 扩充 ， 就 像 图 4-4 所 示 的 那样 。 与 eval 类似 ， 
qeval 也 根据 表达 式 (查询 ) 的 不 同类 型 对 它们 进行 分 类 ， 并 将 进一步 工作 分 派 到 与 它们 对 
应 的 适当 过 程 。 这 其 中 包括 了 针对 每 类 特殊 形式 (and, or, notf#llisp-value) 的 过 程 ， 
以 及 一 个 针对 简单 查询 的 过 程 。 

驱动 循环 也 与 本 章 中 其 他 求 值 器 里 的 driver-1Loop 过 程 类 似 ， 它 从 终端 读 入 查询 ， 对 于 
每 一 个 查询 ， 它 都 用 这 个 查询 和 一 个 仅仅 包含 一 个 空 框架 的 流 调用 qeval。 这 一 调用 将 产生 
出 所 有 可 能 匹配 ( 空 框架 的 所 有 可 能 扩充 ) 的 流 。 对 于 结果 流 里 的 每 个 框架 ， 驱 动人 循环 用 该 
框架 里 找 出 的 值 去 实例 化 原来 的 查询 。 实 例 化 后 得 到 的 流 被 打印 出 来 ”。 

驱动 循环 还 要 检查 特殊 命令 assert! ， 它 用 于 指明 一 个 输入 并 不 是 查询 ， 而 契 一 个 荫 言 
或 者 规则 ， 应 加 入 数据 库 里 。 例 如 : 


(assert! (job (Bitdiddle Ben) (computer wizard) ) ) 


(assert! (rule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager)))) 


27 aE AB AH , PRAISES ATLA BX PL, RAK PEI TU. 2, ME BARODA a 
处 理 简单 的 情况 ， 也 说 明了 匹配 (与 一 般 性 的 合 一 相对 应 ) 本 身 的 也 可 能 有 用 。 

m 我 们 在 这 里 采用 框架 的 流 (而 没有 用 表 )， 原 因 是 ， 在 递归 地 应 用 规则 时 ， 完 全 有 可 能 产生 出 无 穷 多 个 满足 
查询 的 值 。 流 中 所 蕴含 的 延 时 求 值 在 这 里 是 至 关 重 要 的 。 系 统 将 一 个 接 一 个 地 打印 出 结果 ， 无 论 实 际 结 采 究 
竟 是 有 穷 多 个 还 是 无 穷 多 个 。 


44.3 EEFE RIRE ay 


初 看 起 来 ， 用 在 这 一 查询 语言 里 的 各 种 组 合 手 段 似乎 等 同 于 数理 逻辑 里 的 操作 and , or 
和 not ， 而 查询 语言 规则 的 应 用 ， 事 实 上 就 是 通过 正当 的 推理 方法 完成 的 ?? 。 查 询 语言 与 数 
理 逻 辑 之 间 的 这 种 等 同性 并 非 真 的 正确 ， 因 为 这 一 查询 语言 提供 了 一 种 控制 结构 ， 它 采用 过 
程 性 的 方式 来 解释 逻辑 语句 。 我 们 常常 可 以 由 这 种 控制 结构 中 获 益 。 例 如 ， 为 了 找 出 程序 员 
的 所 有 上司， 我 们 可 以 以 如 下 的 两 种 逻辑 上 完全 等 价 的 形式 构造 出 查询 . 

(and (job ?x (computer programmer) ) 


{supervisor ?x ?y)) 
或 者 
(and (Supervisor ?x ?y) 


(job ?x (computer programmer ) ) ) 


如 果 这 一 公司 里 的 上 司 比 程序 员 更 多 (实际 情况 确实 往往 如 此 )， 采 用 第 一 种 形式 就 比 采 用 第 
二 种 形式 更 好 ， 因 为 对 于 由 and 的 第 一 个 子 句 产生 出 的 每 个 中 间 结 果 (框架 ) ， 我 们 都 需要 扫 
描 整 个 数据 库 。 / 

逻辑 程序 设计 的 目标 是 为 程序 员 提 供 一 种 技术 ， 它 能 将 计算 问题 分 解 为 两 个 相互 分 离 的 
问题 :“ 什 么 ”需要 计算 ， 以及“ 如何” 进行 这 一 计算 。 达 到 这 一 目标 的 方式 就 是 ， 选 出 数理 
四 辑 中 语句 的 一 个 子 集 ， 它 的 功能 足够 强大 ， 足以 描述 所 有 可 能 希望 去 计算 的 问题 ， 然 而 又 
足够 的 弱 ， 使 我 们 能 有 一 种 过 程 性 的 解释 。 这 一 做 法 的 意图 是 ， 一 方面 ， 在 逻辑 程序 设计 语 
言 里 刻画 的 程序 应 该 是 足够 有 效 的 程序 ， 能 用 计算 机 去 执行 。 控 制 (“如何 ” 去 计算 ) 将 受到 
这 一 语言 所 采用 的 求 值 顺序 的 影响 。 我 们 应 该 设法 安排 好 子 句 的 顺序 和 每 个 子 句 里 各 个 子 目 
标的 顺序 ， 使 得 计算 一 定 能 以 一 种 正确 而 又 高 效 的 方式 完成 。 在 此 同时 ， 我 们 还 应 该 能 看 到 
计算 的 结果 〈*“ 什 么 ”需要 计算 )， 它 们 应 该 是 这 些 罗 辑 法则 的 简单 结论 。 

我 们 的 查询 语言 ， 可 以 看 作 只 不 过 是 数理 逻辑 的 一 个 可 以 用 过 程 方式 去 解释 的 子 集 。 一 
个 断言 表示 了 一 个 简单 事实 (一 个 原子 命题 ) ， 一 条 规则 表示 一 个 蕴含 ， 所 有 使 规则 的 体 成 立 
的 情况 ， 也 都 能 使 规则 的 结论 成 立 。 规 则 有 一 种 很 自然 的 过 程 性 解释 : 为 了 得 到 一 条 规则 的 
结论 ， 请 设法 得 到 这 一 规则 的 体 。 这 样 ， 规 则 也 就 描述 了 计算 。 当 然 ， 由 于 规则 也 可 以 看 作 
是 数理 逻辑 的 语句 ， 我 们 也 可 以 通过 完全 在 数理 逻辑 里 工作 得 到 同样 的 结果 ， 以 此 来 确认 由 
逻辑 程序 建立 起 来 的 任何 “推理 ”都 是 正确 的 ?8 。 


279 种 特定 推理 方法 的 正当 性 并 不 是 一 个 简单 的 论断 。 人 们 必须 证 明 ， 从 真 的 前 提出 发 只 能 推导 出 真 的 结论 。 
通过 规则 应 用 表示 的 推理 方法 称 为 假 言 推理 (modus ponens )， 这 是 一 种 人 们 热 知 的 推理 方法 ， 它 说 ， 如 雪人 A 
为 真 而 目 4 瘟 令 B 也 为 真 ， 那 么 我 们 就 可 以 做 出 结论 说 8 是 真 。 

280 我 们 必须 为 这 种 说 法 加 上 一 个 限制 ， 约 定 在 说 某 个 逻辑 程序 建立 了 “推理 ”的 问题 时 ， 我 们 总 假定 了 计算 终 
止 。 不 幸 的 是 ， 对 下 面 将 要 给 出 的 这 个 查询 语言 的 实现 而 言 ， 即 使 这 样 限制 之 后 的 语句 也 不 对 (对 于 Prolog 
的 程序 和 当前 大 部 分 其 他 的 逻辑 程序 设计 语言 ， 这 种 说 法 也 同样 不 对 )， 原 因 是 我 们 在 这 里 对 not lisp- 
value 的 使 用 。 正 如 我 们 将 在 下 面 说 明 的 ， 在 这 个 查询 语言 里 的 not 的 实现 ， 并 不 总 与 数理 逻辑 里 的 not 一 
致 ， 而 1isp-value 又 引进 了 进一步 的 复杂 情况 。 我 们 可 以 通过 简单 地 从 语言 里 删除 not #llisp-value, 
并 约定 只 采用 简单 查询 来 写 程序 ， 这 样 就 可 以 实现 一 种 与 数理 逻辑 相 容 的 语言 。 然 而 ， 如 果真 的 那样 做 ， 就 
会 极 大 地 限制 了 语言 的 表达 能 力 。 逻辑 程序 设计 研究 中 特别 关注 的 一 个 问题 就 是 找到 一 些 方式 ， 设法 尽 可 能 
与 数理 逻辑 更 相 容 ， 而 同时 又 不 会 过 多 牺牲 语言 的 表达 能 力 。 


无 穷 循 环 

对 于 逻辑 程序 做 过 程 性 解释 存在 一 个 推论 ， 那 就 是 在 解决 某 些 问 题 时 ， 我们 有 可 能 构造 
出 极端 低 效 的 程序 。 这 种 低 效 的 一 个 极端 情况 就 是 系统 在 做 推导 时 陷入 了 无 穷 循 环 。 作 为 一 
个 简单 的 例子 ， 假 定 我 们 在 设计 茶 个 有 关闭 名 婚姻 的 数据 库 时 ， 加 入 了 

(assert! (married Minnie Mickey) ) | 
如 采 提 问 

(married Mickey ?who ) | 
那么 我 们 将 无 法 得 到 答复 ， 因 为 系统 并 不 知道 如 果 A 与 B 结 婚 ， 那么 也 与 A 结婚 。 为 此 我 们 
加 入 下 面 规则 : | 


(assert! (rule (married ?x ?y) 
(married ?y ?x})) 


ka PHR ÆW 
(married Mickey ?who) 
不 幸 的 是 ， 这 就 导致 系 统 进入 了 无 穷人 循环 。 因 为 : 
。 系统 发 现 married 规 则 可 以 应 用 ， 即 规则 的 结论 (married ?x ?y) 成 功 地 与 查询 
模式 (married Mickey ?who) 匹配 ， 产 生出 一 个 框架 ， 其 中 ?x 约束 到 Mickey 
而 ?Y 约束 到 ?Wwho。 这 样 ， 解 释 器 就 会 继续 做 下 去 ， 在 这 一 框架 里 求 值 规则 的 体 
(married ?y ?x) -一 从 效果 上 看 ， 也 就 是 处 理 查询 (married ?who Mickey), 
。 现 在 可 以 直接 从 数据 库 里 得 到 了 一 个 断言 ， (married Minnie Mickey), 
。 由 于 married 规 则 仍然 可 以 应 用 ， 所 以 解释 器 又 会 去 求 值 规则 的 体 ， 这 次 它 寺 价 于 
(married Mickey ?who), 
现在 系统 就 进入 了 一 个 无 穷 循 环 。 在 实际 中 所 用 的 系统 能 否 在 陷 人 循环 之 前 找 出 向 单 回 爸 
(married Minnie Mickey)， 还 要 依赖 于 这 个 系统 检查 数据 库 中 条 目的 实现 细 市 。 这 是 
一 个 非常 简单 的 可 能 出 现 这 种 循环 的 实例 。 一 组 相互 有 关 的 规则 有 可 能 导致 难以 预料 的 循环 ， 
而 这 种 循环 的 出 现 又 可 能 依赖 于 各 个 子 句 在 一 个 and 里 出 现 的 顺序 (参见 练习 4.64)， 或 者 依 
赖 于 系统 处 理 查 询 时 的 顺序 方面 的 底层 细节 ” 。 


与 not 有关 的 问题 
这 一 系统 的 另 一 个 诡异 之 处 与 not 有 关 。 对 于 4.4.1 节 的 数据 库 ， 考 虑 下 ATS i: 


(and (supervisor ?x ?y) 
{not (job ?x (computer programmer )))) 


(and (not (job ?x (computer programmer ) )) 


81 这 并 不 是 逻辑 的 问题 ， 而 是 由 我 们 的 解释 器 为 逻辑 提供 的 过 程 性 解释 的 问题 。 我 们 也 可 以 写 出 一 个 解释 器 ， 
使 之 不 会 在 这 里 陷 人 循环 。 警 如 说 ， 我 们 可 以 枚 举 出 从 已 有 断言 和 规则 出 发 可 以 导出 的 所 有 证 明 ， 以 宽度 优 
先 而 不 是 深度 优先 的 顺序 。 当 然 ， 这 样 的 系统 就 很 难 由 程序 中 的 推导 顺序 获得 任何 利益 了 。deKleer et al. 
1977 描 述 了 试图 将 复杂 控制 构筑 到 这 种 程序 里 的 一 次 尝试 。 另 一 种 不 会 带 来 如 此 严重 控制 问题 的 技术 是 将 特 
殊 知 识 放 进去 ， 例 如 放 入 能 够 检查 某 些 类 特定 循环 的 检测 功能 (练习 4.67)。 但 是 ， 不 可 能 存在 一 种 可 靠 的 一 
般 性 模式 ， 能 够 防止 系统 在 执行 推导 时 落 入 无 穷 循环 的 陷阱 。 请 设想 一 种 具有 如 下 形式 的 恶魔 规则 :“ 要 证 
明 P(x) 为 真 ， 请 证 明 P(f(x)) 为 真 "”， 对 某 个 适当 选 出 的 函数 f。 


(supervisor ?x ?y)) 


这 两 个 查询 却 不 会 产生 出 同样 的 结果 。 第 一 个 查询 在 开始 时 找 出 了 数据 库 里 所 有 与 (super- 
visor ?x ?y) 匹配 的 条 目 , 而 后 从 得 到 的 框架 里 删除 了 所 有 其 中 的 ?x 满足 (job ?x 
(computer programmer)) 的 条 目 。 第 二 个 查询 在 开始 时 从 输入 框架 了 删除 所 有 满 乍 
(job ?x (computer programmer )) 的 框架 。 因 为 一 般 来 说 数据 库 里 存在 这 种 形式 的 条 
目 ， 所 以 这 个 not 子 句 将 过 滤 掉 空 框架 ， 返 回 一 个 空 的 框架 流 。 这 样 ， 整 个 复合 查询 也 将 得 
到 空 的 流 。 | 

麻烦 出 自我 们 对 not MARAE, Sik, kh SEAT ERE We as. 
果 一 个 not 子 句 被 作用 在 一 个 框架 上 ， 其 中 存在 着 一 些 还 没有 约束 的 变量 《例如 上 面 例子 里 
的 ?x ) ， 这 个 系统 就 会 产生 我 们 不 希望 出 现 的 结果 。 类 似 问 题 也 会 出 现在 使 用 LisP~value 的 
时 候 一 一 如 果 那 个 Lisp 谓 词 的 某 些 参数 还 没有 约束 ， 它 也 不 可 能 正确 芽 作 ， 见 练习 4.77，。 

这 个 查询 语言 里 的 not 还 在 另 一 个 更 严重 的 方面 与 数理 逻辑 里 的 not 不 同 。 企 浆 辑 里， 我 
们 将 语句 “ 间 P” 解释 为 P 不 真 。 但 是 ， 在 这 个 查询 系统 里 , “IEP” WR GP PAE ARE 
里 的 知识 推导 出 来 。 举 例 来 说 ， 有 了 4.4.1 节 的 人 事 数据 库 ， 这 一 系统 可 以 推 寻 出 所 有 各 种 各 
样 的 not 语 句 ， 例 如 Ben Bitdiddle 不 喜欢 篮球 ， 外 面 没有 下 两 ， 以 及 2 +2 不 等 于 4。” 换 句 话 
说 ， 逻 辑 程序 设计 语言 里 的 not 反 应 了 一 种 所 谓 的 封闭 世界 假说 ， 它 认为 所 有 有 关 的 知识 都 
已 经 包含 在 所 用 的 数据 库 里 了 ” 。 

练习 4.64 Louis Reasoner 错 误 地 从 数据 库 里 删除 了 有 关 outranked-by 的 规则 (14.4.1 
节 ) 。 在 认识 到 这 一 问题 后 ， 他 很 快 重新 创建 了 这 一 规则 。 不 幸 的 是 ， 他 对 规则 做 了 一 点 小 修 
改 ， 实 际 输入 的 是 下 面 规则 : 

(rule (outranked-by ?staff-person ?boss) 

(or (supervisor ?staff-person ?boss) 


(and (outranked-by ?middle-manager ?boss) 
(supervisor ?staff-person ?middle-manager ) )) ) 


Louis 刚 刚 把 这 些 信息 输入 系统 DeWitt Aull 就 希望 能 找到 谁 的 级 别 高 于 Ben Bitdiddle 。 他 发 
出 的 查询 是 : 
(outranked-by (Bitdiddle Ben) ?who) 
系统 在 给 出 回答 之 后 就 陷入 了 无 穷 循 环 。 请 解释 这 是 为 什么 。 
练习 4.65 CyD. Fect 期 望 有 朝 一 日 能 在 这 个 公司 里 得 到 提拔 ， 因 此 给 出 了 一 个 查询 ， 要 
找 出 这 里 所 有 的 大 人 物 (他 用 的 是 4.4.1 节 的 whee1 规 则 ): 


(wheel ?who) 


使 他 感到 很 吃惊 ， 系 统 的 回复 居然 是 


zee Query results: 
(wheel (Warbucks Oliver) ) 


{wheel (Bitdiddle Ben) ) 


282 考虑 查询 (not (baseball-fan (Bitdiddle Ben))), RHR (baseball-fan (Bitdiddle 
Ben)) 不 在 数据 库 里 ， 因 此 空 框架 不 满足 这 个 模式 ， 所 以 它 不 会 从 初始 的 框架 流 中 被 删除 。 查 询 的 结果 就 
是 这 个 空 框架 ， 它 将 被 用 于 实例 化 输入 程序 ， 产 生 (not (baseball-fan (Bitdiddle Ben))), 

283 从 论文 Clark (1978) 中 可 以 找到 有 关 这 种 not 处 理 方 式 的 讨论 和 其 正当 性 的 论述 。 


I OAB 


(wheel (Warbucks Oliver) ) 
(wheel (Warbucks Oliver) ) 
(wheel (Warbucks Oliver) ) 


为 什么 Oliver Warbucks 在 这 里 列 出 了 4 次 ? 


练习 4.66 ”Ben 正 在 对 这 一 查询 系统 进行 推广 ， 以 提供 有 关公 司 的 各 种 统计 。 例 如 ， 为 了 
找 出 所 有 程序 员 的 工资 总 额 ， 人 们 将 可 以 写 : 


{sum ?amount 
(and (job ?x (computer programmer) ) 
(salary ?x ?amount)) ) 


一 般 而 言 ，Ben 的 新 系统 里 允许 下 面 形式 的 表达 式 .: 
(accumulation-function <variable> 
<query paitern> ) 


#rhaccumulation-functionwaLA(fRsum, averagexmaximum—2 WAR. Bente 
ik PS FCN RAL BE RE, eE RA eAgeval, ARE THER 
流 。 而 后 他 就 可 以 把 这 个 流 送 给 一 个 映射 函数 ,该 函数 从 流 中 每 个 框架 里 提取 出 指定 变量 的 
值 ， 而 后 将 得 到 的 结果 值 的 流 送 入 一 个 累积 函数 。 正 当 Ben 刚 刚 完成 了 这 个 实现 ， 布 望 去 试验 
它 的 时 候 ，Cy 走 了 过 来 ， 他 还 在 为 练习 4.65 中 whee1l 的 查询 结果 感到 疑惑 。 当 Cy 将 系统 的 回 
应 展示 给 Ben 肝 ，Ben 忽 然 大 叫 一 声 ,“ 哎 是， 糟糕， 我 的 简单 祝 积 模式 根本 不 行 ! ” 

Ben 刚 刚 认识 到 什么 ? 请 勾画 出 一 种 他 能 利用 以 便 将 事情 从 危难 中 拯救 出 来 的 方法 。 

练习 4.67 ”请 设计 一 种 方式 ， 在 查询 系统 里 安装 一 个 循环 监测 器 ， 以 避免 正文 和 练习 4.64 
里 说 明 的 那些 简单 循环 。 一 般 性 的 想法 是 系统 需要 维护 它 当 前 所 做 推导 链 的 某 种 历史 记录 ， 
如 果 遇 到 了 正在 处 理 之 中 的 某 个 查询 ， 就 不 再 重新 开始 做 它 了 。 请 描述 在 这 一 历史 记录 中 需 
要 包含 哪些 信息 (模式 和 框架 )， 应 该 做 哪些 检查 。 在 学 习 了 4.4.4 节 里 的 查询 系统 实现 之 后 ， 
你 可 能 会 希望 修改 该 系统 ， 加 入 你 的 循环 监测 磊 。 

练习 4.68 ”请 定义 一 些 规则 ， 实 现 练习 2.18 的 reverse 操 作 ， 它 返回 一 个 与 所 给 的 表 包 
念 同 样 元 素 的 表 ， 但 其 中 元 素 按 相反 的 顺序 排列 (提示 ， 利 用 append-to-form)。 你 的 规 
则 能 够 回答 (reverse (1 2 3) ?x) 和 (reverse ?x (1 2 3)) 吗 ? 

练习 4.69 ”请 从 你 在 练习 4.63 中 构造 的 规则 出 发 ,设计 出 一 个 规则 ,为 祖 孙 关系 加 入 “HR” 
的 关系 。 这 一 关系 应 该 使 系统 能 推导 出 Irad 是 Adam 的 重 孙 ， 或 者 Jabal 和 Jubal 是 Adam 的 重重 
重重 重 孙 (提示 : 表示 有 关 Irad 的 事实 ， 例 如 ，( (great grandson) Adam Irad), Si 
一 些 规 则 ， 去 确定 是 否 某 个 表 的 最 后 是 符号 9randson。 利 用 它 描述 一 条 规则 ， 使 人 可 以 推 
导出 关系 ((great 。 ?rel) ?x ?y), 其 中 的 ?Tel 是 一 个 以 9randson 结 束 的 表 ) 。 用 一 
此 查询， 例如 ((great grandson) ?g ?ggs) 和 (?relationship Adam Irad) 检 


查 你 的 规则 。 
444 查询 系统 的 实现 


4.4.2 节 描述 了 这 一 查询 系统 如 何 工 作 的 情况 。 现 在 我 们 要 填充 其 中 的 细节 ， 给 出 这 个 系 
统 的 一 个 完整 实现 。 


4.4 iF RAE AF ik tt 325 


4.4.4.1 驱动 循环 和 实例 化 

这 一 查询 系统 的 驱动 循环 将 反复 读 进 输入 表达 式 。 如 果 表 达 式 是 应 该 加 入 数据 库 的 规则 
或 者 断言 ， 它 就 把 有 关 的 信息 加 进 数 据 库 。 否 则 就 认为 这 是 一 个 查询 ， 它 将 这 个 查询 送 给 求 
值 器 qeval， 同 时 送 去 的 还 有 一 个 初始 的 框架 流 ， 其 中 只 包含 一 个 空 框架 。 求 值 的 结果 是 一 
个 框架 流 ， 根 据 从 数据 库 里 找 出 的 满足 查询 的 变量 值 生成 。 驱 动 循 环 使 用 这 些 框架 产生 一 个 
新 流 ， 其 中 包含 了 所 有 通过 将 原始 查询 里 的 变量 用 上 述 框 架 流 提供 的 值 实例 化 后 得 到 的 副本 。 


这 一 最 终 的 流 从 终端 打印 出 来 : 


(define input-prompt ";:; Query input:") 
(define output-prompt ";;; Query results:") 


(define (query-driver-loop) 
(prompt-for-input input-prompt) 
(let ((q (query-Syntax-process (read))))} 

(cond ((assertion-to-be-added? q) 
(add-rule-or-assertion! (add-assertion-body q)) 
(newline) 

(display "Assertion added to data base.") 
(query-driver-loop) ) 
(else 
(newline) 
(display output-prompt) 
(display-stream 
(stream-map 
(lambda (frame) 
(instantiate q 
frame 
(lambda {v f) 
(contract-question-mark v)))) 
(qeval q (singleton-stream ‘())))) 
(query-driver-loop))))) 


在 这 里 ， 就 像 在 本 章 里 讨论 的 所 有 求 值 器 里 一 样 ， 我们 使 用 的 是 查询 语言 表达 式 有 的 一 种 
抽象 语法 。 表 达 式 语法 的 实现 将 在 4.4.4.7 节 给 出 ， 包 括 谓 词 assertion-to-be-added? 和 
选择 函数 add-assertion-body。add-rule-or-assertion! 在 4.4.4.5 市 定义 。 

在 对 一 个 输入 表达 式 进行 任何 处 理 之 前 ， 驱 动 循环 都 以 语法 方式 将 其 变换 到 另 一 种 更 容 
易 有 效 处 理 的 形式 。 其 中 涉及 到 修改 模式 变量 的 表示 。 在 对 查询 进行 实例 化 时 ， 所 有 仍 未 被 
约束 的 变量 都 需要 在 打印 之 前 变换 回 原来 的 输入 表示 形式 。 这 些 变换 由 两 个 过 程 querY- 
syntax-processficontract-question-mark3em (4.4.4.7 市 )。 

为 了 实例 化 一 个 表达 式 ， 我 们 需要 复制 它 ， 并 用 给 定 框架 里 的 值 取 代 这 一 表达 式 里 相应 
的 变量 。 这 些 值 本 身 也 可 能 需要 实例 化 ， 因 为 它们 也 可 能 包含 着 一 些 变量 (例如 ， 作 为 合 一 
的 结果 ， 在 exp 里 的 ?x 被 约束 到 ?Yy， 而 后 ?7 又 转 而 约束 到 5 )。 如 果 某 个 变量 不 能 实例 化 时 ， 
应 该 执行 的 动作 由 过 程 Iinstantiate 的 另 一 个 参数 给 定 。 

(define (instantiate exp frame unbound-var-handler ) 

(define (copy exp) 


{cond ((var? exp) 
(let ((binding (binding-in-frame exp frame) )) 


(if binding 
(copy (binding~valiue binding) ) 
(unbound-var-handler exp frame)))) 
{ (pair? exp) 
(cons (copy (car exp)) (copy (cdr exp)))) 
(else exp))) 
(copy exp) | 


对 约束 进行 操作 的 过 程 在 4.4.4.8 节 定义 。 


44.4.2 XKE 
query-~driver-1oop 调 用 过 程 qeval 。 该 过 程 是 这 一 查询 的 基本 求 值 右 ， 它 以 一 个 查 
询 和 一 个 框架 的 流 作为 输入 ， 返 回 被 扩充 后 的 框架 的 流 。qeval 采 用 9et 和 put 识 别 出 各 种 
特殊 形式 ， 并 完成 数据 导向 的 分 派 ， 就 像 我 们 在 第 2 章 实现 各 种 通用 型 操作 时 所 做 的 那样 。 任 
何 无 法 识别 为 特殊 形式 的 查询 都 被 假定 是 一 个 简单 查询 ， 由 simple-query 处 理 。 
(define (qeval query frame-stream) | 
(let ((qproc (get (type query) ‘qeval))) 
(if qproc 
(qproc (contents query) frame-stream) © 
{simple-query query frame-stream)))) 


type 和 contents 在 4.4.4.7 节 定义 ， 它 们 实现 各 种 特殊 形式 的 抽象 语法 。 


简单 查询 
simple-query 处 理 简 单 查 询 。 它 以 简单 查询 (一 个 模式 ) 和 框架 流 作为 实际 参数 ， 通 
过 将 查询 与 数据 库 做 匹配 的 方式 扩充 其 中 的 每 个 框架 ， 并 将 由 此 生成 的 所 有 框架 的 流 返 回 。 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append-delayed 
(find-assertions query-pattern frame) 
(delay (apply-rules query-pattern frame) ))) 


frame~-stream) ) 

对 于 输入 流 里 的 每 个 框架 ， 我 们 都 用 find-assertions (4.44377) 去 做 模式 与 数据 
库 里 所 有 断言 的 匹配 ， 生 成 出 一 个 扩充 框架 的 流 ， 还 要 用 apP1Y-Iules (4.4.4.4) 去 应 用 
所 有 可 能 的 规则 ， 生 成 出 另 一 个 扩充 框架 的 流 。 这 两 个 流 被 组 合 (用 stream-append- 
delayed, 4.4.4.6 节 ) 成 一 个 流 ， 表示 了 满足 给 定 模 式 ， 而 且 也 与 开始 框架 相 容 的 所 有 不 同 
方式 ， 用 stream-flatmap (4.4.4.6 节 ) 组 合 起 处 理 每 个 输入 框架 而 产生 的 这 种 结 落 三， 形 
成 一 个 大 的 流 。 它 表示 的 就 是 对 初始 输入 流 里 的 各 个 框架 进行 扩充 ， 产生 出 的 与 给 定 模式 匹 
配 的 所 有 可 能 方式 。 

复合 查询 

and 查 询 的 处 理 方式 如 图 4-3 所 示 ， 由 过 程 conjoin 完 成 。conjoin 以 有 关 的 合 取 项 和 一 
个 框架 流 作 为 实际 参数 ， 返 回 扩充 框架 的 流 。conjoin 首 先 处 理 给 它 的 框 染 流 ， teih RETS E 
禾 _ 个 合 取 项 的 所 有 可 能 的 扩充 框架 形成 的 流 。 而 后 它 就 用 这 个 新 的 框架 流 ， 递 归 地 将 
conjoin 应 用 于 这 一 and 查 询 的 剩余 部 分 。 


44 吉大 程序 认 矿 327 


(define (conjoin conjuncts frame-stream) 
(if (empty-conjunction? conjuncts) 
frame-stream 
(conjoin (rest-~conjuncts conjuncts) 
(qeval (first-conjunct conjuncts) 
frame-stream)))) 


表达 去 


(put ‘and ‘geval conjoin) 


设置 好 qeval， 使 之 能 在 如 到 and 形 式 时 间 conjoin 人 分派 。 
or 查询 的 处 理 方式 与 此 类 似 ， 如 图 4-6 所 示 。 这 时 先 分 别 计算 出 这 个 or 中 各 个 析 取 项 有 的 
输出 流 ， 而 后 用 4.4.4.6 节 里 定义 的 jnterleave-delayed 过 程 将 它们 归并 起 来 (参见 练习 


4.71 和 练习 4.72 ) 。 


(define (disjoin disjuncts frame-stream) 
{if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave-delayed 
(qeval (first-~disjunct disjuncts) frame-stream) 


(delay (disjoin (rest-disjuncts disjuncts) 
frame-stream) )))) 


(put ‘or geval disjoin) 


用 于 合 取 和 析 取 的 语法 谓词 和 选择 BH HE 4.4.4.7 28 id o 


过 滤器 
not 的 处 理 采 用 4.4.2 节 给 出 了 梗概 的 方式 。 我 们 要 试 着 去 扩充 输入 流 里 的 每 个 框架 ， 看 


看 它们 能 否 满足 被 否定 了 的 查询 ， 但 只 把 那些 无 法 扩充 的 框架 包含 到 输出 谋 里 。 


(define (negate operands frame-stream) 
{stream-flatmap 
(lambda (frame) 
(if (stream-null? (qeval (negated-query operands) 
(singleton-stream frame) )) 
(singleton-stream frame) 
the-empty-stream) ) 


frame-stream) ) 


(put ‘not ‘geval negate) 
1isp-value 过 滤器 的 情况 与 ht 类似。 这 里 用 流 中 的 每 个 框架 去 实例 化 模式 里 肛 变 量 ， 
而 后 将 给 定 谓词 应 用 于 得 到 的 实例 。 输 入 流 里 那些 使 谓词 返回 假 的 框架 被 过 涯 择 。 如 采 过 到 
未 约束 的 变量 ， 结 果 就 是 一 个 错误 。 
(define (lisp-value call frame-stream) 
(stream~flatmap 
(lambda (frame) 
{if (execute 
(instantiate 


call 


frame 
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(lambda (v f) 
(error "Unknown pat var -- LISP-VALUE" v)))) 
{singleton-stream frame) 
the-empty-stream) ) 
frame-stream) ) 


(put ‘lisp-value ‘qeval lisp-value) 


execute 将 谓词 应 用 于 对 应 的 参数 。 它 必须 求 值 谓词 表达 式 ， 以 得 到 应 该 应 用 的 那个 实 
际 过 程 。 然 而 它 却 不 能 去 对 参数 求 值 ， 因 为 它们 已 经 是 实际 参数 了 ， 市 不 是 (Lisp 里 的 ) W 
种 需要 通过 求 值 去 产生 实际 参数 的 表达 式 。 请 注意 ，eXxecute 是 利用 基础 Lisp 系 统 里 的 eval 
和 apply 实 现 的 ，。 | 


(define (execute exp) 
(apply (eval (predicate exp) user-initial-environment) 
(args exp))) 


特殊 形式 always-true 是 为 了 描述 一 种 总 能 满足 的 查询 。 它 忽略 有 关 的 内 容 ( 通 党 为 空 )， 
并 简单 地 送出 输入 流 里 的 所 有 框架 。always-true 被 用 在 选择 函数 里 (4.4.4.757), HEE 
为 那些 没有 体 部 分 的 规则 〈 即 那些 结论 总 能 够 满足 的 规则 ) 的 规则 体 。 

(define (always-true ignore frame-stream) frame-stream) 


{put ‘always-true geval always-true) 
PRA Lnot Fllisp-value Ayia ys HMM ae FE A Be th HG 4.4.4.7 ta 


4.4.4.3 通过 模式 匹配 找 出 断言 

find-assertions 由 simple-query 调 用 (4.4.4.2 节 )， 它 以 一 个 模式 和 一 个 框架 作 
为 输入 ， 返 回 一 个 框架 的 流 ， 其 中 的 每 个 框架 都 是 由 某 个 给 定 框架 ， 经 过 对 给 定 模式 与 数据 
库 的 匹配 扩充 而 得 到 的 。 这 个 过 程 用 fetch-assertions (4.4.5 节 ) ER RHE E E raw 
专 的 一 个 流 ， 检 查 这 些 断 言 是 否 与 当时 的 模式 和 框架 匹配 。 采 用 fetch-assertions 的 原 
因 是 ， 我 们 常常 能 通过 一 些 简 单 测 试 删除 掉 来 自 数据 库 的 很 多 条 目 ， 这 里 把 数据 库 作 为 成 功 
检索 的 候选 存储 池 。 如 果 删 去 了 fetch-assertions， 这 个 系统 仍然 能 够 工作 ， 所 来 用 的 
将 是 简单 检查 数据 库 中 各 个 断言 的 方式 ， 这 一 做 法 可 能 使 计算 变 得 比较 低 效 ， 因 为 其 中 对 匹 
配器 的 调用 次 数 可 能 会 增加 很 多 。 


(define (find-assertions pattern frame) 
(stream-flatmap (lambda (datum) 
(check-an-assertion datum pattern frame} ) 


(fetch-assertions pattern frame) ) ) 


check-an-assertion 以 一 个 模式 、 一 个 数据 对 象 (断言 ) 和 一 个 框架 作为 参数 。 如 
果 匹 配 成 功 就 返回 包含 着 扩充 框架 的 单元 素 流 ， 匹 配 失 败 时 返回 the-empty-stream。 
(define (check-an-assertion assertion query-pat query-frame) 
(let ((match-result 
(pattern-match query-pat assertion query-frame) )) 
(if (eq? match-result ’failed) 
the-empty-stream 
(singleton-stream match-result)))) 


基本 模式 匹配 器 返回 的 或 者 是 符号 failed， 或 者 是 给 定 框架 的 一 个 扩充 。 这 一 匹配 器 的 基本 
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思想 就 是 对 照 着 模式 检查 数据 ， 一 个 一 个 元 素 地 做 ， 在 此 同时 积累 起 各 个 模式 变量 的 约束 。 
如 采 模 去 与 数据 对 象 相同 ， 匹 配 成 功 ， 返 回 至 今 已 经 积累 起 的 约束 形成 的 框架 。 否 则 ， 如 果 
模式 是 变量 ， 我 们 就 扩充 当前 框架 ,将 变量 与 数据 的 约束 加 入 其 中 ， 条 件 是 这 一 约束 与 框架 
里 已 有 的 约束 相 容 。 如 果 模 式 和 数据 都 是 序 对 ， 我 们 就 (递归 地 ) 将 模式 的 car 与 数据 的 car 
匹配 , 产生 出 一 个 框架 , 而 后 在 这 一 框 染 上 去 做 模式 的 cdr 部 分 与 数据 的 cdr 部 分 的 匹配 工作 。 
如 果 这 些 情 况 都 不 可 用 ， 匹 配 就 失败 了 ， 我 们 返回 符号 faliled. 
(define (pattern-match pat dat frame) 
(cond ((eq? frame ’failed) ‘failed) 
( (equal? pat dat) frame) 
((var? pat) (extend-if-consistent pat dat frame) ) 
{({and (pair? pat) (pair? dat)) 
{pattern-match {cdr pat) 
(cdr dat) 
(pattern-match (car pat) 
(car dat) 
frame) ) ) 
(else ‘failed))) 
这 个 过 程 通过 加 入 新 约束 扩充 给 定 的 框架 ， 条 件 是 ， 这 一 约束 与 框架 中 已 有 的 约束 相 容 : 
(define (extend-if-consistent var dat frame) 
(let ((binding (binding-in-frame var frame) )) 
(if binding 
(pattern-match (binding-value binding) dat frame) 
(extend var dat frame) ))) 
OR TE PE BE ANE TEI EZR, Be E A HK BE! hy WIAD RIE. A 
则 就 需要 在 这 个 框架 里 ， 用 这 一 数据 与 该 变量 在 框架 里 所 约束 的 值 做 一 次 匹配 。 如 果 保 存 的 
值 中 只 包含 常量 (ok CH Mextend-if-consistentf#RALA TAN, BAG 
是 这 样 )， 那 么 ， 这 个 匹配 也 就 是 检查 已 经 保存 的 值 和 新 值 是 否 相同 。 如 果 两 个 值 相同 ， 那 么 
就 返回 没有 修改 的 框架 ， 如 果 不 同 就 返回 失败 标志 。 当 然 ， 框 架 里 保存 的 值 里 也 可 能 包含 变 
量 ， 如 果 它 是 在 合 一 中 保存 的 ， 就 有 可 能 出 现 这 种 情况 (参见 4.4.4.4 市 )。 将 框架 里 保存 的 值 
与 新 值 的 递归 匹配 还 可 能 会 要 求 增加 ， 或 者 要 求 检查 这 一 模式 里 的 有 关 变 量 的 约束 。 举 例 来 
说 ， 假 如 我 们 有 一 个 框架 ， 其 中 ?x 约束 到 (f Py) 而 ?7 没有 约束 ,现在 希望 通过 加 入 ?x 到 
(£ b) 的 约束 来 扩大 这 个 框架 。 我 们 查找 ?x 并 发 现 了 它 已 经 约束 到 (£ Py), RS RR 
必须 在 同一 框架 里 去 做 (f ?y) 与 所 提供 的 新 值 (E b) 的 匹配 。 这 个 匹配 最 终 将 ?Y 到 b 的 
约束 加 入 框架 里 ， 而 变量 ?X 还 是 约束 到 (£ Py), EME, 已 保存 的 约束 决 不 会 修改 ， 
也 不 会 为 一 个 特定 变量 保存 多 个 约束 。 
extend-if-consistent 使 用 的 那些 对 约 束 做 各 种 操作 的 过 程 在 4.4.4. 8 市 定义 。 


具有 带 点 尾部 的 模式 

如 果 一 个 模式 里 包含 了 一 个 圆 点 ， 后 跟 一 个 模式 变量 ， 这 一 变量 将 与 数据 表 里 的 剩余 部 
分 匹配 而 不 是 与 数据 表 的 下 一 元 素 匹 配 ) ， 就 像 在 练习 2.20 里 描述 的 圆 点 记 法 所 要 求 的 那样 。 
虽然 我 们 刚刚 实现 的 模式 匹配 器 并 没有 查看 圆 点 ， 但 它 确实 能 按 我 们 所 期 望 的 方式 工作 。 这 
是 因为 query-driver-loop 使 用 Lisp 的 read 基 本 过 程 读 入 查询 ， 并 将 它 表示 为 一 个 表 结 
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E, FCP RY AAA PRR AE 
当 read 遇 到 一 个 圆 点 时 ， 它 不 是 把 下 一 个 项 作为 表 里 的 下 一 元 素 (一 个 cons 的 car ,其 
cdr 将 是 这 个 表 的 其 余部 分 )， 而 是 将 下 一 个 项 直接 作为 这 个 表 结 构 的 cdr。 举 例 说 ， 对 于 给 “ 
定 的 模式 (computer ?type)， 由 read 产 生 的 表 结 构 相 当 于 对 表达 式 (cons 
‘computer (cons ’?type °())) 求 值 所 产生 的 结构 ;而 对 (computer . ?type) 产生 的 

结构 相当 于 对 表达 式 (cons ‘computer '?type) 求 值 构造 出 的 结构 。 

这 样 ,在 Pattern-match 递 归 地 比较 一 个 数据 表 与 一 个 模式 中 各 个 car 和 cdr 的 过 程 中 ， 
它 最 终 会 将 圆 点 后 的 变量 (是 模式 里 的 一 个 cdr ) 与 数据 表 的 一 个 子 表 匹 配 ， 并 将 其 约束 于 
这 个 子 表 。 例 如 ， 将 模式 (computer . ?type) 与 (computer programmer trainee) 
匹配 ， 将 使 变量 ?type 匹 配 到 表 (programmer trainee), 


4.4.4.4 规则 和 合 一 
apply-rules 用 类 似 find- assertions 的 方式 处 理 规则 (4.4.4.3 节 )。 它 以 一 个 模式 
和 一 个 框架 作为 输入 ， 生 成 一 个 通过 应 用 来 自 数 据 库 的 规则 而 扩充 的 框架 流 。stream- 
flatmap+japply-a- -rule 映射 到 由 可 能 应 用 的 规则 (KEfetch-rules $i, 444.575) 
FE RAY He LE, FAA BIA HERE. 
(define (apply-rules pattern frame) 
(stream-flatmap (lambda (rule) 


{apply-a-rule rule pattern frame) ) 


(fetch-rules pattern frame) ) ) 


applLy-a-rule 采 用 4.4.2 节 里 概述 的 方法 去 完成 规则 的 应 用 。 它 首先 在 给 定 框架 里 对 规 
则 的 结论 和 模式 做 合 一 ， 以 这 种 方式 扩充 自己 的 实 参 框架 。 如 果 这 一 工作 成 功 完 成 ， 那 么 束 
在 得 到 的 新 框架 里 求 值 规则 的 体 。 

还 有 ,在 做 所 有 这 些 事情 之 前 ， 程 序 需 要 将 规则 里 的 所 有 变量 重新 命名 《用 唯一 性 名 字 )。 
之 所 以 这 样 ， 是 为 了 坟 免 在 不 同 的 规则 应 用 中 变量 名 字 互 扰 。 举 个 例子 ， 如 果 两 条 规则 里 都 
有 一 个 变量 的 名 字 是 ?x， 那 么 在 应 用 时 ， 这 两 条 规则 就 都 可 能 向 框架 里 加 入 对 ?XxX 的 约束 。 其 
实 这 两 个 约束 相互 间 毫 无 关系 ， 而 我 们 却 会 以 为 这 两 个 约束 必须 相 容 。 如 果 不 做 变量 的 重新 
命名 ， 也 可 以 设计 一 种 更 加 聪明 的 环境 结构 。 然 而 ， 重 新 命名 却 是 最 直截了当 的 解决 办 法 ， 
虽然 可 能 不 是 效率 最 高 的 办 法 (参见 练习 4.79 )。 下 面 是 apPpPly-a-rule 过 程 ; 

(define (apply-a-rule rule query-pattern query-frame) 

(let ((clean-rule (rename-variables-in rule))) 
(let ((unify-result 
(unify-match query-pattern 
(conclusion clean-rule) 
query-frame) ) ) 
(if (eq? unify-result ‘failed) 
the-empty-stream 
(qeval (rule-body clean-rule) 
(singleton-stream unify-result)))))) 

提取 规则 成 分 的 选择 函数 rule-body 和 conc lusion 将 在 4.4.4.7 节 定义 。 

为 了 生成 唯一 的 名 字 ， 这 里 的 方法 是 为 每 个 规则 应 用 关联 一 个 唯一 标识 (例如 一 个 数 )， 


并 将 这 一 标识 与 原来 的 变量 名 组 合 起 来 。 璧 如 说 ， 如 果 规 则 应 用 的 标识 是 7 ， 我 们 就 可 以 把 规 
则 里 的 每 个 ?x 都 改 为 ?x-7 ， 将 其 中 的 每 个 ?yY 都 改 为 ?yY-7 。(make-new-Vvar1lable 和 
new-Lule-application-ia 与 语法 过 程 一 起 放 在 4.4.4.7 节 里 ,) 


(define (rename-variables-in rule) 
(let ({rule-application-id (new-rule-application-id) }) 
(define (tree~-walk exp) 
(cond ({(var? exp) 
(make-new-variable exp rule-application-id) ) 
{(pair? exp) 
(cons (tree-walk (car exp)) 
(tree-walk (cdr exp)))) 
(else exp) )) 
(tree-walk rule))) 


合 一 算法 也 实现 为 一 个 过 程 。 这 个 过 程 以 两 个 模式 和 一 个 框架 为 参数 ， 返 回 扩 充 后 的 杠 
架 或 者 符号 failed。 这 个 合 -过 程 很 像 前 面 的 模式 匹配 器 ， 但 它 是 对 称 的 ， 因 为 匹配 的 两 边 
都 可 以 有 变量 。unify-match 基 本 上 与 pattern-match 相 同 ， 只 是 多 了 一 些 代 码 《〈 下 面 用 
“eee” 标记 的 部 分 )， 用 于 处 理 匹 配 的 右边 对 象 也 是 变量 的 情况 。 
{define (unify-match pl p2 frame) | 
(cond ((eq? frame failed) ‘failed) 
( (equal? pl p2) frame) 
((var? pl) (extend-if-possible pl p2 frame)) 
( (var? p2) (extend-if-possible p2 pl frame)) ; *** 
( (and (pair? pl) (pair? p2)) 
(unify-match (cdr pl) 


(cdr p2) 

(unify-match (car pl) 
(car p2) 
frame) )) 


{else ‘failed))) 

在 合 一 过 程 中 ， 就 像 在 单 边 的 模式 匹配 里 那样 ， 只 有 在 得 到 的 扩充 能 够 与 现存 匹配 相 容 
时 ， 我 们 才能 够 楼 受 这 一 扩充 。 在 合 一 里 面 使 用 的 extend-if-possible 过 程 很 像 在 模式 
匹配 里 使 用 的 extend-if-consistent， 但 在 这 里 增加 了 两 处 特殊 检查 ， 在 下 面 的 程序 里 
用 “***” 标 记 。 第 一 种 情况 出 现在 我 们 试图 去 匹配 的 变量 还 没有 约束 ， 而 想 要 用 它 去 匹配 
的 值 本 身 也 是 一 个 (不同 的 ) 变量 时 。 此 时 就 需要 检查 这 个 (作为 值 的 ) 变量 是 否 已 经 有 了 
约束 。 如 果 有 的 话 ， 那 就 让 前 一 个 变量 也 约束 到 它 的 值 。 如 果 两 个 变量 都 没有 约束 ， 那 么 就 
可 以 将 其 中 任何 一 个 约束 到 另 一 个 。 

第 二 个 检查 处 理 的 情况 出 现在 试图 将 一 个 变量 约束 到 一 个 模式 ， 而 该 模式 里 又 包含 这 个 
恋 量 时 。 当 两 个 模式 里 都 有 重复 出 现 的 变量 的 时 候 ， 就 可 能 出 现 这 种 情况 。 举 个 例子 ， 旁 虑 
在 一 个 ?x 和 ?Y 都 没有 约束 的 框架 里 对 两 个 模式 (?x ?x) 和 (Py < 涉及 ?Y 的 表达 式 >) 的 
全 。 汶 里 首先 做 ?x 与 ?Y 的 匹配 ， 做 出 了 一 个 从 ?x 到?Y 的 约束 。 下 面 又 要 用 同一 个 ?Xx 去 与 
-个 涉及 ?y 的 表达 式 匹配 。 由 于 ?Xx 已 经 约束 到 ?y， 结 果 就 要 用 ?Y 去 与 这 个 表达 式 匹 配 。 如 
果 我 们 认为 合 一 的 工作 就 是 为 模式 变量 找到 一 组 对 应 值 ， 它 们 能 使 两 个 模式 变 得 相同 。 那 么 
上 面 的 模式 就 意味 着 需要 找 出 一 个 ?yY ， 使 ?yY 等 价 于 那个 包含 ?Y 的 表达 式 。 不 存在 求解 这 种 方 


程 的 一 般 性 方法 ， 因 此 我 们 拒绝 这 种 约束 ”“。 谓词 Qepends-on? 检查 这 种 情况 。 在 为 一 方面 ， 
我 们 并 不 想 拒 绝 一 个 变量 与 其 自身 的 匹配 。 举 例 来 说 ， 在 考虑 (?x ?x) 和 (Py ?y) We 
一 时 ， 第 二 次 尝试 将 ?x 约束 到 ?y 时 要 做 ?y (?x 的 保存 值 ) 与 ?y (?x 的 新 值 ) 的 匹配 。 这 一 
情况 通过 unify-match 里 的 equal? 子 句 检 查 。 | 
(define (extend~if-possible var val frame) 
(let ((binding (binding-in-frame var frame) )) 
{cond (binding 
(unify-match 
(binding-value binding) val frame) ) 
({var? val) ; «x 
(let ( (binding (binding-in-frame val frame) )) 
(if binding 
(unify-match 
var (binding-value binding) frame) 
(extend var val frame)))) 
({depends-on? val var frame) ; k*k 
'failed) 
(else (extend var val frame))))) 


depends-on? 是 一 个 谓词 ， 它 检查 一 个 想 作 为 某 模式 变量 的 值 的 表达 式 是 否 依赖 于 这 一 
变量 。 这 件 事 情 也 必须 相对 于 当前 的 框架 去 做 ， 因 为 在 这 个 表达 式 里 可 能 包含 某 个 变量 的 出 
现 ， 而 该 变量 已 经 有 了 值 ， 其 值 依赖 于 我 们 要 检查 的 变量 。depends-on? 的 结构 是 一 个 向 
单 的 递归 的 树 和 遍历， 其 中 (在 需要 时 ) 要 将 一 些 变量 换 成 相应 的 值 。 

(define (depends-on? exp var frame) 

(define (tree-walk e) 
(cond ((var? e) 
(if (equal? var e) 


true 
{let ((b (binding-in-frame e frame) ) ) 


24 一 般 地 说 ,将 ?Y 与 一 个 涉及 ?Y 的 表达 式 合 一 ,要求 我 们 能 够 找到 方程 ?y =< 涉 及 ?Y 的 表达 式 > 的 一 个 不 动 点 。 

有 时 我 们 确实 可 能 通过 语法 方式 构造 出 一 个 表达 式 ， 使 它 正好 是 有 关 方 程 的 一 个 解 。 例 如 ,，?y= (£ ?y) 

看 来 似 平 有 不 动 点 (€ (£ (£ ..。 ))), 我 们 可 以 从 表达 式 (£ ty) 开始 ， 通 过 反复 用 (£ Py) 替换 ?Y 

而 得 到 它 。 不 幸 的 是 ， 并 不 是 每 个 这 样 的 方程 都 有 一 个 有 意义 的 不 动 点 。 这 里 出 现 的 问题 与 数学 里 无 穷 级 数 
运算 中 的 问题 类 似 。 举 例 说 ， 我 们 知道 2 是 方程 = 1 +y/2 的 解 。 从 表达 式 1 +y/2 开 始 ， 反 复 地 用 1 +y/2 替 换 y， 

将 给 出 

| 2 =y=14y/2=14(1 +y/2)/2 =1 41/2 +y/4 = 


由 此 将 得 到 
2 -1+12 +1/4 +18 + | 
但 是 ， 如 果 我 们 由 于 看 到 了 一 1 是 方程 y =1+ 27 的 解 ， 而 试 着 去 做 同样 的 事情 时 ， 将 会 得 到 : 
-1=y=1+2y=1+2(1 +2y)=14+2+4y=-- 
并 由 此 得 到 
一 1 =1 二 2 十 4 上 SS 十 … 


虽然 对 这 两 个 方程 的 操作 方式 完全 一 样 ， 第 一 个 得 到 的 结果 是 关于 一 个 无 穷 级 数 的 合法 断言 ， 而 第 二 个 却 不 
是 。 与 此 类 似 ， 采 用 任意 的 语法 操作 去 构造 作为 合 一 结果 的 表达 式 ， 也 可 能 得 到 错误 的 结集。 
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(if b 
(tree-walk (binding-value b)) 
false)))) 
{(pair? e) 
(or (tree~walk (car e)) 
(tree-walk (cdr e)))) 
(else false))) 


(tree-walk exp) ) 


4.4.4.5 数据库 的 维护 

在 设计 逻辑 程序 设计 语言 时 ， 一 个 重要 的 问题 就 是 设法 做 出 一 些 安排 ,使 我 们 在 需要 检 
查 一 个 给 定 模式 时 ， 必 须 考 察 的 无 关 数据 库 条 目 越 少 越 好 。 在 我 们 的 系统 里 ， 除 了 在 一 个 很 
大 的 流 中 保存 了 所 有 断言 之 外 ， 我 们 还 将 caz 部 分 是 常量 符号 的 所 有 断言 保存 在 另外 一 绎 六 
里 ， 将 这 些 流 放 入 一 个 用 这 些 符号 作为 索引 的 表格 。 在 提取 可 能 与 某 个 模式 匹配 的 断言 时 ， 
我 们 首先 查看 这 个 模式 的 car 是 否 为 常量 符号 。 如 果 是 ， 那 么 就 返回 程序 里 保存 的 所 有 县 有 
同样 car 的 断言 ( 送 给 匹配 器 去 检查 )。 如 果 模 式 的 car 不 是 常量 符号 ， 那 么 就 返回 程序 里 保 
存 的 所 有 断言 。 更 聪明 的 方法 还 可 以 利用 框架 里 的 信息 ， 或 者 设法 优化 那些 模式 的 car 不 起 
常量 符号 的 情况 。 我 们 并 没有 把 上 述 索 引 准 则 (利用 car ， 只 处 理 常 量 符号 的 情况 ) fie Fl 
程序 里 ， 而 是 依靠 谓词 和 选择 函数 实现 这 种 叭 则 。 

(define THE-ASSERTIONS the-empty-stream) 


(define (fetch-assertions pattern frame) 
(if (use-index? pattern) 
(get-indexed-assertions pattern) 
(get-all-assertions) ) ) 


(define (get-all-assertions) THE~ASSERTIONS ) 


(define (get-indexed-assertions pattern) 
(get-stream (index-key-of pattern) "assertion-stream) ) 


Jet_stream 到 表格 里 查找 相应 的 流 ， 如 果 那 里 没有 东西 就 返回 一 个 空 的 流 。 


(define (get-stream keyl key2) 
(let ((s (get keyl key2))) 
(if s s the-empty-stream) )) 


规则 也 用 类 似 方式 保存 ， 以 规则 中 结论 部 分 的 car 作 为 索引 。 当 然 ， 由 于 规则 的 结论 可 
以 是 任意 的 模式 ， 与 断言 不 同 点 就 是 在 这 里 可 以 包含 变量 。 其 car 为 常量 符号 的 模式 可 以 与 
那些 结论 部 分 具有 同样 car 的 规则 匹配 ， 还 可 以 与 那些 结论 部 分 以 变量 开始 的 规则 相 匹 配 。 
这 样 ， 假 定 某 个 模式 的 car 为 常量 符号 ， 在 提取 有 可 能 与 该 模式 匹配 的 规则 时 ， 不 但 需要 提 
. 取 所 有 结论 部 分 具有 同样 car 的 规则 ， 还 要 提取 出 所 有 结论 部 分 以 变量 开头 后 规则 。 为 此 ， 
我 们 就 把 所 有 的 结论 部 分 以 变量 开始 的 规则 作为 一 个 单独 的 流 ， 保 存在 流 的 表格 里 ， LATT 5? 
EDERE]. 

(define THE-RULES the-empty-stream) 


(define (fetch-rules pattern frame) 
(if (use-index? pattern) 
(get-indexed-rules pattern) 
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(get-all~rules) ) ) 
(define (get-all-rules) THE-RULES) 
(define (get-indexed-xrules pattern) 


(stream-append 


(get-stream (index~key-of pattern) 


*"rule-stream) 
(get-stream °’? ’rule-stream) )) 


NN 
Jhi 
Gul, 
= 
He 


wt fpadd-rule-or-assertion! 用 在 query-driver-loop 里 ， 用 于 将 断言 和 规则 
加 入 数据 库 。 如 果 合 适 ， 就 将 条 目 都 保存 到 某 个 索引 下 ， 还 要 保存 在 数据 库 里 所 有 断言 和 规 


则 的 流 中 。 


(define (add-rule-or-assertion! assertion) 
(if (rule? assertion) 


({add-rule! assertion) 


(add-assertion! assertiu..,, | 


(define (add-assertion! assertion) 
(store-assertion-in~index assertion) 
(let ({old-assertions THE-ASSERTIONS) ) 

(set! THE-ASSERTIONS 


(cons-stream assertion old-assertions) ) 

"ok) ) 

(define (add-rule! rule) 
(store-rule-in-index rule) 
{let ((old-rules THE-RULES) ) 


(set! THE-RULES (cons-stream rule old-rules) ) 
"ok)) 


为 了 实际 地 保存 一 个 规则 或 者 断言 ， 我 们 需要 检查 它 是 否 能 索引 。 如 采 可 以 的 话 WMA 


EFF A 18 SAIC 
(define (store-assertion-in-index assertion) 
(if (indexable? assertion) | 
(let ((key (index-key-of assertion) )) 
{let ((current-assertion-stream 


(get-stream key ‘assertion-stream) ) ) 
(put key 


"assertion-stream 
(cons-stream assertion 
current-assertion-stream) ))))) 
(define (store-rule-in-index rule) 


(let (({pattern (conclusion rule))) 
(if (indexable? pattern) 


(let ({(key (index-key-of pattern) )) 
{let ((current-rule-stream 


(get-stream key ‘rule-stream))) 
(put key 


*’rule-stream 


(cons-stream rule 


current-rule-stream))))))) 
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Pl te EM 1x PRE B EHR IRR PR (一 个 断言 或 者 一 个 规则 的 
结论 部 分 ) LAR Me ET SAG, ERT REA RE. 


(define (indexable? pat) 
(or {constant-symbol? (car pat) ) 
(var? {car pat)))) 


将 模式 保存 到 表格 里 的 关键 码 或 者 是 ? 〈《 如 条 它 以 变量 开始 ) ， 或 者 是 作为 该 模 却 开始 的 那个 
符号 常量 。 
(define (index-key-of pat) 
(let ((key (car pat))) 
(if (var? key) ? key))) 


如 果 一 个 模式 以 某 个 符 叶 常量 开始 LA A APRS, Ate te Be 可 能 与 这 
个 模式 相 匹 配 的 条 目 。 


(define (use-index? pat) 
(constant-symbol? (car pat))) 


练习 4.70 在 过 程 add-assertion! 和 add~rulei! 里 的 let 约 束 起 什么 作用 ? mR 
用 下 面 方式 实现 add-assertion!, 会 出 什么 错 ? 提示 : 请 参考 前 面 3.3.2 市 里 有 关 ones 的 
无 穷 流 的 定义 ，(define ones (cons-stream 1 ones)), 


(define (add-assertion! assertion) 
(store-assertion-in-index assertion) 
(set! THE-ASSERTIONS 
({cons-stream assertion THE-ASSERTIONS) ) 


OK ) 


4.4.4.6 ” 流 操作 | 
这 一 查询 系统 用 到 了 几 个 没有 在 第 3 章 给 出 的 流 操作 ，。 
stream-append-delayedfflinterleave-delayed F5stream-append fil 
interleave ( 见 3.5.3 节 ) 类 似 ， 但 它们 都 要 求 延 时 参数 (就 像 3.5.4 市 的 jntegral 过 程 )。 
在 某 些 情况 中 ， 这 将 推迟 循环 的 执行 (参见 练习 4.71 )。 
(define (stream-append-delayed sl delayed-s2) 
(if (stream-null? sl) 
(force delayed-s2) 
(cons-stream 


(stream-car sl) 
(stream-append-delayed (stream-cdr sl) delayed-s2)))) 


(define (interleave-delayed sl delayed-s2) 
(if (stream-null? sl) 
(force delayed-s2) 
(cons-stream 
(stream-car sl) 
(interleave-delayed (force delayed-s2) 
(delay (stream-cdr sl)))))) 


stream-flatmap 在 整个 查询 求 值 器 里 到 处 使 用 ， 它 将 一 个 过 程 映射 到 一 个 框架 闫 上 ， 
并 组 合 起 得 到 的 结果 框架 流 。 这 个 过 程 可 以 看 作 2.2.3 节 所 介绍 的 针对 常规 表 的 flatmap 过 程 
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的 流 版 本 。 但 其 中 也 有 一 些 与 常规 flatmap 不 同 的 地 方 ，stream-flatmap 采 用 一 种 交错 
的 方式 累积 起 各 个 流 ， 而 不 是 简单 地 将 它们 连接 起 来 (参见 练习 4.72 和 4.73 ) 。 


(define (stream-flatmap proc s) 
(flatten-stream (stream-map proc s))) 


{define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave-delayed 
(stream-car stream) 


(delay (flatten-stream (stream-cdr stream)))))) 


求 值 器 还 使 用 下 面 的 简单 过 程 ， 去 生成 一 个 只 包含 着 一 个 元 素 的 流 : 


(define (Singleton-stream x) 
(cons-stream x the-empty-stream) ) 


44.4.7 查询 的 语法 过 程 

geval 里 使 用 的 type 和 contents ( 见 4.4.4.2 节 ) 说 明 各 种 特殊 形式 都 由 其 car 部 分 的 
符号 作为 标识 。 这 两 个 过 程 与 2.4.2 节 的 type- tag#icontentsi 过 程 一 样 ， 只 是 其 中 的 错误 
信息 不 同 。 


(define (type exp) 
(if (pair? exp) 
(car exp) 
(error "Unknown expression TYPE" exp))) 


(define (contents exp) 
{if (pair? exp) 
(cdr exp) 
(error "Unknown expression CONTENTS" exp) )) 


下 面 两 个 过 程 用 在 guerYy-driver-1loop 里 ( 见 4.4.4.1 闻 )， 它 们 说 明 ， 用 于 加 入 数据 庄 
的 规则 和 断言 所 用 的 形式 是 (assert! <rule-or-assertion>) ; 
(define (assertion-to-be-added? exp) 


(eq? (type exp) ‘assert!)) 


(define (add-assertion~body exp) 
(car (contents exp))) 


这 里 是 特殊 形式 and、or 、not 和 1isp-value 的 语法 定义 ( 见 4.4.4.2 节 ), 
(define (empty-conjunction? exps) (null? exps)) 

(define (first-conjunct exps) (car exps) ) 

(define (rest-conjuncts exps) (cdr exps) ) 


(define (empty-disjunction? exps) (null? exps)) 
(define (first-disjunct exps) (car exps)) 
(define (rest-disjuncts exps) (cdr exps)) 


{define (negated-query exps) (car exps)) 


(define (predicate exps) (Car exps)) 
{define (args exps) (cdr exps)) 


下 面 三 个 过 程 定义 了 规则 的 语法 形式 : 


(define (rule? statement) 
(tagged-list? statement ‘rule)) 


(define (conclusion rule) (cadr rule)) 


(define (rule-body rule) 

{if (null? (cddr rule) ) 
*(always-true) 
(caddr rule))) 


query-driver-loop ( 见 4.4.4.1 节 ) 调用 query-syntax~process， 对 表达 式 里 的 
模式 变量 做 一 种 变换 ， 将 其 由 ?Symbol 形式 变换 为 内 部 形式 (? symbol). RER EW, — 
个 形 如 (job ?x ?y) 的 模式 ， 在 系统 内 部 的 实际 表示 是 (job (? x) (? y)). wpe Ay 
以 提高 查询 处 理 的 效率 ， 因 为 这 就 使 系统 在 需要 检查 一 个 表达 式 是 否 为 模式 变量 时 ， 只 需 检 
查 这 一 表达 式 的 car 是 不 是 符号 ? ， 而 不 需要 做 从 符号 里 提取 字符 的 工作 。 这 一 语法 变换 由 下 
面 过 程 完 成 : 

(define (query-syntax-process exp) 

(map-over-symbols expand-question-mark exp)) 


(define (map~over-symbols proc exp) 
{cond ((pair? exp) 
{cons (map-over-symbols proc (car exp)) 
(map-over-symbols proc (cdr exP)))} 
((symbol? exp) (proc exp)) 
(else exp))) 


{define (expand-quest ion-mark symbol ) 
(let ((chars (symbol->string symbol))) 
(if (string=? (substring chars 0 1) "?") 
(list °? 
(string->symbol 
(substring chars 1 (string-length chars)))) 
symbol) ) ) 


一 日 以 这 种 方式 对 变量 做 了 变换 ， 模 式 里 的 变量 就 都 变 成 了 以 ?开头 的 表 ， 而 常量 符号 
(为 了 数据 库 索 引 需 要 识别 它们 。 见 4.4.4.5 节 ) 还 是 符号 。 
(define (var? exp) 
(tagged-list? exp '?)) 
(define (constant-symbol? exp) (symbol? exp)) 
在 规则 应 用 过 程 中 需要 构造 叭 一 变量 ( 见 4.4.4.4 节 )， 此 事 通 过 下 面 过 程 完成 。 一 次 过 程 
调用 的 唯一 标识 是 一 个 数 ， 在 每 次 规则 应 用 时 加 一 。 


(define rule-counter 0) 


285 大 部 分 Lisp 系 统 允 许 用户 修 改 常 规 的 read 过 程 , 使 之 能 执行 这 类 变换 。 为 此 提供 了 定义 读 入 器 宏 字符 的 功能 。 
3 号 表达 式 也 是 按 这 种 方式 处 理 的 : 读 人 器 能 自动 将 "expression 变 为 (quote expression), mar 
把 它 送 给 求 值 器 。 我们 可 以 做 出 一 些 安排 ， 以 同样 方式 将 ?expression 变 换 为 (? expression), 然而， 
为 了 清晰 起 见 ， 这 里 写 出 了 显 式 的 变换 过 程 。 

expand-question- -markfcontract-question-mark 里 用 到 几 个 名 字 里 包 含 string 的 过 程 ， 


它们 都 是 3Scheme 的 基本 操作 。 
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(define (new-rule-application-id) 
(set! rule-counter (+ 1 rule-counter) ) 


rule-counter ) 


{define (make-new-variable var rule-application-id) 
(cons  ? (cons rule-application-id (cdr var)))) 


在 query-driver-1l1oop 为 了 打印 回答 而 实例 化 查询 表达 式 时 ， 它 需要 用 下 面 过 程 将 所 
有 未 约束 的 模式 变换 回 打 印 用 的 正确 形式 ，: 
(define (contract-question-mark variable) 
(string->symbol | 
(string-append "2?" 
(if (number? (cadr variable) ) 
{string-append (symbol->string {caddr variable) ) 


(number->string (cadr variable) )) 
(symbol->string (cadr variable)))))) 


44.4.8 框架 和 为 束 
框架 被 表示 为 一 组 约束 的 表 ， 每 个 约束 是 一 个 变量 - 值 序 对 : 
(define (make-binding variable value) 
(cons variable value) ) 


(define (binding-variable binding) 
(car binding) ) 


(define (binding-value binding) 
(cdr binding) ) 


(define (binding-in-frame variable frame) 
(assoc variable frame) ) 


{define (extend variable value frame) 
(cons (make-binding variable value) frame) ) 


练习 4.71 Louis Reasoner 感 到 奇怪 的 是 ， 为 什么 Simple-query 和 disjoin 过 程 (W 
4.4.4.2 节 ) 里 显 式 使 用 过 程 delay 实现 ， 而 没有 定义 为 下 面 形式 : 
(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append (find-assertions query-pattern frame) 
{(apply-rules query-pattern frame))) 
frame-stream) ) . 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave 
(geval (first-disjunct disjuncts) frame-stream) 
(Gisjoin (rest-disjuncts disjuncts) frame-stream) ) ) ) 


你 能 够 给 出 一 些 查 询 实例 ， 对 于 它们 ， 这 种 更 简单 的 定义 将 会 导致 非 预 期 的 行为 吗 ? 
练习 4.72 ”为 什么 disjoin 和 stream-flatmap 以 交错 方式 合并 流 ， 而 不 是 简单 地 连接 


它们 ? 请 给 出 实例 说 明 采 用 交错 方式 更 加 合适 。( 提 示 ， 为 什么 我 们 在 3.5.3 节 里 需要 使 用 过 程 
interleave? ) 
练习 4.73 为 什么 flatten-stream 中 显 式 地 使 用 了 delay? 如 果 用 下 面 形式 定义 它 ， 
为 什么 就 是 错误 的 呢 ? 
(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave 
(stream-car stream) 


(flatten-stream (stream-cdr stream))))) 


练习 4.74 Alyssa P. Hacker#iZ negate, lisp-valuefifind-assertions 里 
RA- PENA Aeystream-flatmaphks, WEER, Hime T, wea BIE RU 
的 过 程 总 是 或 者 产生 一 个 空 流 ,或 者 产生 一 个 单元 素 流 。 因 此 ， 在 组 合 这 些 流 时 根本 不 需要 
ZÈ TE o 

a) 请 填充 下 面 Alyssa 的 程序 里 缺少 的 表达 式 : 

{define (simple-stream-flatmap proc s) 

(simple-flatten (stream-map proc s))) 


(define (simple-flatten stream) 
(stream-map <??> — 
{stream-filter <??> stream) )) 


b) 如 果 我 们 这 样 修改 程序 ， 查 询 系统 的 行为 会 改变 吗 ? 
练习 4.75 为 这 一 查询 语言 实现 一 种 称 为 unique 的 新 特殊 形式 。 unique 应 该 在 数据 库 
里 恰好 只 有 一 个 满足 特殊 查询 的 条 目 时 成 功 。 例 如 ， 


(unique (job ?x (computer wizard) )) 


MZF MW RE bmi RAE 
{unique (job (Bitdiddle Ben) (computer wizard) )) 
因为 Ben 是 这 里 仅 有 的 计算 机 大 师 。 而 
(unique (job ?x (computer programmer) ) ) 
应 输出 一 个 空 流 ， 因 为 这 里 的 计算 机 程序 员 不 止 一 个 。 进 一 步 说 ， 
(and (job ?x ?j) (unique (job ?anyone ?j))) 
应 该 列 出 所 有 只 有 一 个 人 做 的 工作 ， 以 及 做 这 些 工作 的 人 。 
实现 unique 的 工作 包括 两 部 分 。 和 一 部 分 是 写 出 一 个 能 够 处 理 这 一 特殊 形式 的 过 寺 程 ， 第 
二 部 分 是 让 qeval 能 为 这 个 过 程 做 分 派 。 第 二 部 分 工作 很 简单 ， 因 为 geval 的 分 派 龙 以 数据 
导向 的 方式 做 的 ， 如 果 你 的 过 程 名 字 叫 uniquely-asserted， 需 要 做 的 事情 也 就 是 写 : 
(put “unique ‘qeval uniquely-asserted) 
这 就 能 使 qeval 在 遇 到 某 查 询 的 type (car) 是 符号 unique 时 ， 就 会 将 它 分 派 给 这 个 过 程 。 
真正 的 问题 是 写 过 程 uniquely~asserted。 它 需要 以 相应 unique 查 询 有 的 contents 
(cdr) 部 分 和 一 个 框架 流 作为 输入 ， 对 这 个 流 里 的 每 个 框架 ， 它 应 该 利用 qeval 去 找 出 这 
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一 框架 的 所 有 广 足 给 定 查 询 的 扩充 框架 的 流 。 所 有 包含 着 多 个 条 目的 流 都 应 该 抛弃 。 剩 下 的 
以 送 回 并 凤 积 到 一 个 大 流 里 ， 作 为 Inique 查 询 的 结果 。 这 一 方式 与 特殊 形式 not 的 实现 方 
式 类 似 。 | 

通过 构造 下 面 查 询 检查 你 的 实现 : 找 出 所 有 这 样 的 人 ， 他 们 只 有 一 个 上 级 。 

练习 4.76 我们 将 and 实 现 为 一 系列 查询 的 组 合 ( 见 图 4-5) 的 方式 很 优美 ， 但 却 比 较 低 
效 ， 因 为 在 处 理 and 的 第 二 个 查询 时 ， 我 们 还 必须 针对 第 一 个 查询 产生 出 的 框架 扫描 整个 数据 
库 。 如 果 数 据 库 里 有 介 个 元 素 ， 一 次 典型 查询 产生 出 的 输出 框架 个 数 等 比 于 NN (例如 N/Ek)， 那 
么 为 第 一 个 查询 所 生成 的 所 有 输出 框架 扫描 数 据 库 ， 就 需要 N/K 次 调用 模式 匹配 器 。 实 现 这 一 
计算 过 程 的 男 一 方式 是 分 别处 理 and 的 两 个 子 句 ， 而 后 考察 两 个 流 里 的 所 有 输出 框架 对 偶 是 否 
兼容 。 如 果 每 个 查询 产生 出 N/K 个 输出 框架 ， 这 就 意味 着 我 们 需要 做 N/K 次 相 容 性 检查 一 一 与 
目前 所 采用 的 方式 相 比 ， 新 方式 所 需 的 匹配 次 数 小 了 一 个 k 倍 的 因子 。 | 

请 设计 一 个 采用 这 种 策略 的 and 实 现 。 你 必须 实现 一 个 过 程 ， 它 以 两 个 流 作 为 输入 ， 检 
查 其 中 框架 里 的 匹配 是 否 兼容 。 如 和 朱 和 是 的 话 ， 了 就 生成 一 个 合并 了 这 两 集约 束 的 框架 。 这 一 操 
作 很 像 合 一 。 

练习 4.77 ”在 4.4.3 节 里 我 们 看 到 ， 如 果 将 过 恋 避 not 和 1isp-value 作 用 于 包含 未 约束 
变量 的 框架 ， 就 可 能 导致 查询 语言 给 出 “错误 的 ”回答 。 请 设计 一 种 方式 纠正 这 个 问题 — 
种 想法 是 以 某 种 “ 延 时 ”方式 执行 过 滤 ， 让 这 些 框架 为 过 滤器 附加 一 个 “允诺 ， 只 有 在 框架 
里 的 变量 约束 足够 多 ， 使 这 一 操作 能 正常 完成 时 才 去 执行 它 。 我 们 可 以 等 到 所 有 其 他 操作 都 
执行 完 之 后 才 去 执行 过 站。 然而 ， 由 于 效率 的 原因 ， 我 们 还 古 和 项 望 尽 可 能 早 地 做 过 庆 ， 以 减 
少 所 生成 出 的 中 间 框 架 的 数量 。 

练习 4.78 ”重新 将 这 一 查询 语言 的 实现 设计 为 一 个 非 确定 性 程序 (而 不 是 作为 一 个 流 过 
程 ) ， 利 用 4.3 节 的 求 值 器 实现 它 。 按 照 这 种 方式 ， 每 个 查询 将 产生 出 一 个 回答 (而 不 是 所 有 
回答 的 一 个 流 )， 但 可 以 通过 输入 try-again 得 到 更 多 的 回答 。 你 将 会 发 现 ， 我 们 在 这 一 节 
里 构造 出 来 的 大 部 分 机 制 都 已 经 被 非 确 定性 搜索 和 回 斋 所 概括 了。 当然 ， 你 可 能 还 会 发 现 ， 
从 行为 上 看 ， 这 一 新 查询 语言 与 本 市 给 出 的 语言 有 一 些微 妙 的 差异 。 你 能 找 出 一 些 说 明 这 种 
差异 的 例子 吗 ? 

练习 4.79 ”在 4.1 节 实现 Lisp 求 值 器 时 ， 我 们 曾经 看 到 如 何 通过 使 用 内 部 环境 来 避免 过 程 
参数 之 间 的 名 字 溃 突 。 例 如 ， 在 求 值 下 面 表达 式 时 : 

(define (square x) 

(* X X)) 
(define (sum-of-squares x y) 
(+ (square x) (Square y))) 

(sum-of-squares 3 4) : 
在 square 的 Xx 与 sum-of-squares 的 x 之 间 根 本 不 会 产生 混乱 ， 因 为 对 各 个 过 程 体 的 求 值 都 / 
是 在 某 个 特别 构造 的 ， 包 含 了 局 部 变量 的 环境 里 进行 的 。 在 上 述 查 询 系统 里 ， 我 们 为 避免 在 
过 程 应 用 中 的 名 字 冲 突 ， 采 用 的 是 另 一 种 方式 。 每 次 应 用 一 条 规则 之 前 ， 我 们 都 将 其 中 的 变 
量 重 新 命名 ， 并 保证 这 些 名 字 都 是 唯一 的 。 要 想 在 Lisp 求 值 器 里 采用 这 一 策略 ， 也 可 以 不 用 
局 部 环境 ， 而 是 在 每 次 应 用 一 个 过 程 时 重新 命名 过 程 体 里 的 所 有 变量 。 

请 为 查询 语言 实现 另 一 种 规则 应 用 方式 ， 在 其 中 使 用 局 部 环境 而 不 是 重新 命名 。 看 看 你 
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是 否 能 够 基于 自己 创建 的 环境 结构 ， 为 查询 语言 构造 起 一 些 机构 ， 使 之 能 处 理 很 大 的 系统 ， 
例如 类 似 于 块 结构 过 程 的 规则 。 你 能 将 这 一 结构 中 的 一 些 东西 与 在 一 个 上 下 文 里 做 推导 的 问 
题 (例如 ,， “如果 假定 了 P 真 ， 我 就 能 推导 出 4 和 B。”) 联系 起 来 ， 做 成 一 个 问题 求解 方法 吗 ? 
(这 个 问题 是 永 无 止境 的 ， 一 个 好 回答 也 许可 以 当 博 士 。) 


第 5 章 寄存 器 机 器 里 的 计算 


我 的 目的 是 想 说 明 ， 这 一 天 空 机 器 并 不 是 一 种 天 赐 造 物 或 者 生命 体 ， 它 只 不 过 
是 钟表 一 类 的 机 械 装 置 ( 而 那些 相信 钟表 有 灵 絮 的 人 却 将 这 一 工作 说 成 是 其 创造 者 
的 荣光 )， 在 殷 大 程度 上 ， 这 里 多 种 多 样 的 运动 都 是 由 最 简单 的 物质 力量 产生 的 ， 就 
像 钟 表 里 所 有 活动 都 是 由 一 个 发 条 产生 的 一 样 。 


一 一 约翰 尼斯 . 开 普 勒 ( 给 Herwart von Hohenburg 的 信 , 1605 ) 


本 书 从 研究 计算 过 程 ， 并 用 Lisp 写 出 的 过 程 描 述 它们 开始 。 为 了 解释 这 些 过 程 的 意义 ， 
我 们 提出 了 一 系列 的 求 值 模型 ， 第 1 章 的 代 换 模型 ， 第 3 章 的 环境 模型 ， 以 及 第 4 章 的 元 循环 模 
型 。 我 们 特别 仔细 地 考察 这 个 元 循环 模型 ， 就 是 为 了 尽 可 能 地 揭 开 有 关 类 Lisp 语 言 的 程序 如 
何 解释 的 神秘 面纱 。 但 是 ， 即 使 是 这 个 元 循环 解释 器 ， 也 还 遗留 下 一 些 没 有 回答 的 问题 ， 
为 它 无 法 阐释 Lisp 系统 里 的 控制 机 制 。 举 例 来 说 ， 这 个 求 值 器 不 能 解释 子 表达 式 的 求 值 怎样 
返回 -一 个 值 ， 以 便 送 给 使 用 这 个 值 的 表达 式 ， 该 求 值 器 也 无 法 解释 为 什么 有 些 递 归 过 程 能 产 
生 和 迭代 型 的 计算 过 程 (也 就 是 说 ， 只 需要 常量 空间 就 可 以 求 值 ) 而 另 一 些 递归 过 程 却 生成 北 
归 型 的 计算 。 无 法 回答 这 些 问题 的 原因 在 于 ， 元 循环 求 值 器 本 身 也 是 一 个 Lisp 程 序 ， 并 因此 
继承 了 基础 Lisp 系 统 的 控制 结构 。 为 了 提供 有 关 Lisp 求 值 器 的 控制 结构 的 一 个 更 完整 的 描述 ， 
我 们 就 必须 转 到 一 个 比 Lisp 本 身 更 基本 的 层次 上 去 工作 。 

在 这 一 章 里 ， 我 们 将 基于 传统 计算 机 的 一 步 一 步 操作 ， 描 述 一 些 计 算 过 程 。 这 类 计算 机 
也 称 为 寄存 器 机 器 ， 它 们 能 顺序 地 执行 一 些 指令 ， 对 一 组 固定 称 为 寄存 器 的 存储 单元 的 内 容 
完成 各 种 操作 。 寄 存 器 机 器 的 一 条 典型 指令 将 一 种 基本 操作 作用 于 某 几 个 寄存 器 的 内 容 ， 并 
将 作用 的 结果 赋 给 另 一 个 寄存 器 。 我 们 对 寄存 器 机 器 执行 的 计算 过 程 的 描述 ， 看 起 来 很 像 传 
统计 算 机 的 “机 器 语言 ”程序 。 当 然 ， 我 们 在 这 里 不 打算 关注 任何 特定 计算 机 的 机 器 语言 ， 
而 是 要 考察 若干 Lisp 过 程 ， 并 为 执行 每 个 过 程 设 计 一 部 特殊 的 寄存 器 机 器 。 这 样 ， 我 们 可 以 
把 自己 的 工作 看 成 是 硬件 结构 设计 师 ， 而 不 是 机 器 语言 的 计算 机 程序 员 。 在 这 些 寄存 器 机 器 
的 设计 中 ， 我 们 要 开发 出 一 些 机 制 ， 以 实现 各 种 重要 的 程序 设计 结构 ， 例 如 递归 。 我 们 还 要 
给 出 一 种 能 够 用 于 描述 寄存 器 机 器 设计 的 语言 。 在 5.2 节 里 ， 我 们 将 要 实现 一 个 Lisp 程 序 ， 它 
能 够 使 用 这 样 的 描述 去 模拟 我 们 所 设计 的 机 器 。 

我 们 的 寄存 器 机 器 的 大 部 分 基本 操作 都 非常 简单 。 例 如 ， 有 一 个 操作 从 两 个 寄存 器 里 取 
出 值 后 相 加 ， 产 生 结 果 后 存 人 第 三 个 寄存 器 。 这 样 一 个 操作 可 以 由 很 容易 描述 的 硬件 来 执行 。 
为 了 处 理 表 结构 ， 我 们 当然 还 要 使 用 存储 器 操作 car 、cdr 和 cons ， 它 们 要 求 更 精细 的 存储 
分 配 机 制 。 我 们 将 在 5.3 节 里 研究 如 何 基 于 更 基本 的 操作 实现 它们 。 

在 已 经 积累 了 许多 将 简单 过 程 构造 为 寄存 器 机 器 的 经 验 之 后 ， 我 们 将 在 5.4 节 里 设计 一 部 
机 器 ， 它 能 够 执行 由 4.1 节 里 的 元 循环 求 值 器 描述 的 算法 。 这 一 工作 将 填补 起 我 们 对 于 如 何 解 
释 Scheme 表 达 式 的 理解 中 的 缺陷 ， 为 求 值 器 里 的 控制 机 制 提供 一 个 显 式 模型 。 在 5.5 节 里 ， 我 


们 将 研究 一 个 简单 的 编译 器 ， 它 能 将 Scheme 程序 翻译 为 指令 的 序列 ， 这 种 序列 可 以 直接 通过 
上 述 的 求 值 器 寄存 器 机 器 的 寄存 器 和 操作 去 执行 。 


9.1 寄存 器 机 器 的 设计 


要 设计 一 部 寄存 器 机 器 ， 我 们 必须 设计 好 它 的 数据 通路 (寄存 器 和 操作 ) 和 控制 器 ， 该 
控制 器 实现 操作 的 颗 序 执行 。 为 了 展示 一 部 简单 寄存 器 机 右 的 设计 过 程 ， 让 我 们 考察 欧 几 旦 
得 算法 ， 它 用 于 计算 两 个 整数 的 最 大 公约 数 (GCD )。 正 如 我 们 在 1.2.5 市 已 经 看 到 过 的 ， 欧 几 
里 得 算法 可 以 通过 一 个 迭代 计算 过 程 执行 ， 由 下 面 的 过 程 描述 : 

(define (gcd a b) 

(if (= b 0) 
(gcd b (remainder a b}))) 
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假定 这 两 个 数 被 保存 在 名 字 与 它们 相同 的 两 个 寄存 器 里。 所 需要 的 基本 操作 包括 检查 寄存 器 b 
的 内 容 是 否 为 0， 计 算 寄 存 器 a 的 内 . 容 除 以 寄存 器 b 的 内 容 得 到 的 余数 。 余 数 操作 是 一 个 复杂 的 
计算 过 程 ， 但 现在 暂时 假定 我 们 有 一 个 能 计算 余数 的 基本 设备 。 在 这 个 GCD 算 法 的 每 次 人 循环 
里 ,寄存器 a 的 内 容 都 必须 用 寄存 器 b 的 内 容 取 代 ， 而 b 的 内 容 必 须 代 以 原来 a 的 内 容 除 以 原来 
b 的 内 容 的 余数 。 et 事情 就 会 方便 得 多 。 但 是 在 我 们 的 寄存 
器 机 器 模型 里 ， 假 定 每 一 步 中 只 能 给 一 个 寄存 器 赋 新 值 。 为 了 完成 上 述 代 换 ， 我 们 的 机 絮 里 
要 使 用 第 三 个 “临时 性 的 vee At, (首先 将 余数 放 在 寄存 器 + ， 而 后 将 pb 的 内 容 存 人 
a 中 ， 最 后 再 把 保存 在 + 里 的 余数 在 人 b 中 。) 

我 们 可 以 用 数据 通路 图 来 展示 这 个 机 器 中 所 需 的 寄存 器 和 各 种 操作 ， 如 图 5-1 所 示 。 在 这 
个 图 里 ， 寄 存 器 (a, bait) 用 矩形 表示 ， 给 某 个 寄存 器 赋值 的 一 种 方式 用 一 个 箭 失 表示 ， 
箭头 的 后 面 画 着 -一 个 5， 从 数 源 指向 被 赋值 的 寄存 器 。 我 们 可 以 将 这 里 的 X 看 作 一 个 按钮 ， 在 
按压 它 的 时 候 ， 就 会 允许 这 个 值 从 数据 源 “ 流 向 ”指定 的 寄存 器 。 位 于 按钮 旁 按 的 名 于 用 于 
表示 相应 的 按钮 。 这 些 名 字 可 以 任意 取 ， 因 此 最 好 选用 助 记 的 名 字 (例如 ， 用 a<-b 表 示 按 压 
这 一 按钮 将 把 寄存 器 b 的 内 容 赋值 给 寄存 器 a ) 。 一 个 寄存 器 的 数据 源 可 以 是 另 一 个 寄存 右 (就 
像 赋 值 a<-b 的 情况 ) ， 或 者 是 一 个 操作 的 结果 (如 赋值 t<~r 的 情况 )， 或 者 是 一 个 弟 数 (一 
个 不 允许 改变 的 内 置 的 值 ， 在 数据 通路 图 上 用 一 个 三 角形 表示 ， 其 中 包含 着 这 个 常数 )。 

在 数据 通路 图 里 ， 从 常数 或 者 寄存 器 内 容 出 发 计算 出 一 个 值 的 操作 用 一 个 梯形 框 表示 ， 
其 中 写 着 有 关 操 作 的 名 字 。 例 如 ， 在 图 $-1 里 用 zem 标 记 的 梯形 框 表 示 一 个 计算 余数 的 操作 ， 
它 针对 寄存 器 a 和 b 的 内 容 做 计算 ， 因 为 它们 都 连接 在 这 个 操作 框 上 。 有 箭头 (上面 没有 按钮 
的 ) 从 操作 的 输入 寄存 器 和 常量 指向 操作 框 ， 还 有 箭头 从 操作 的 输出 连接 到 寄存 器 。 检 测 用 
-个 圆圈 表示 ， 其 中 写 着 检测 的 名 字 。 例 如 ， 在 这 一 GCD 机 器 里 有 一 个 检测 操作 ， 它 检测 寄 
存 器 b 的 内 容 是 否 为 0 。 一 个 检测 同样 也 有 从 其 输入 寄存 器 和 常量 来 的 箭头 ， 但 没有 输出 前 拓 ， 
检测 的 结果 值 将 由 控制 器 使 用 ， 并 不 用 于 数据 通路 。 从 整体 上 看 ， 数 据 通路 图 表示 了 一 部 机 
器 里 所 需要 的 寄存 器 和 操作 ， 以 及 它们 之 间 的 数据 连接 。 如 果 我 们 将 第 头 看 作 连 线 ， 将 XxX 按钮 
看 作 开 关 ， 这 种 数据 通路 图 很 像 是 一 部 机 带 的 线路 图 ， 就 像 这 部 机 器 可 以 用 电子 元 件 构 寺 册 
来 似 的 。 
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SO b<-t 


WO t<-r 


图 >-1 一 部 SLCD 机 器 的 数据 通路 


为 了 使 这 一 数据 通路 加 能 够 实现 GCD 的 计算 ， 其 中 的 按钮 就 必须 按照 正确 有 的 顺 订 按 动 。 
我 们 用 一 个 控制 器 图 描述 这 种 顺序 ， 如 图 5-2 所 示 。 控 制 器 图 里 的 元 素描 述 的 是 数据 通路 图 里 
的 部 件 应 该 如 何 操作 。 在 控制 器 图 里 的 矩形 表示 的 是 数据 通路 按钮 的 按压 动作 ， 其 中 的 箭头 
表示 从 一 个 步 邓 到 下 一 步骤 的 顺序 。 在 这 一 图 形 里 的 菱形 表示 一 次 决策 ， 随 后 有 两 个 可 以 走 
的 箭头 ， 有 具体 走 哪 一 个 要 看 葵 形 里 标明 的 数据 通路 所 检测 的 值 。 我 们 可 以 用 一 种 物理 类 比 来 
解释 这 个 控制 器 : 将 这 个 图 看 作 一 个 迷宫 ， 其 中 有 一 个 在 里 面 滚 的 弹子 。 当 弹子 滚 到 一 个 盒 
T (0) 里 的 时 候 ， 就 会 按压 在 这 里 盒子 里 标明 的 数据 通路 按钮 ， 当 弹子 深 到 一 个 决策 结 
点 时 (例如 这 里 对 b =0 的 检测 )， 它 究竟 从 哪 条 路 线 离 开 将 由 指定 检测 的 结 采 确定 。 纤 合 在 一 
起 ， 这 里 的 数据 通路 和 控制 器 完全 描述 了 一 部 计算 GCCD 的 机 器 。 在 寄存 恬 a 和 Db 里 安放 了 适当 
的 值 之 后 ， 控 制 器 的 启动 〈 弹 子 的 滚动 ) 从 标明 stazrt 的 位 置 开始 。 当 控制 器 达到 done 时 ， 
就 会 看 到 在 寄存 器 a 里 的 GCD 值 。 





图 5-2 一 部 GCD 机 器 所 用 的 控制 每 


MOS FA BHB ETE 


练习 5.1 ”请 设计 一 部 寄存 器 机 器 ， 采 用 由 下 面 过 程 所 描述 的 达 代 算法 计算 阶乘 。 请 画 出 
这 一 机 器 的 数据 通路 图 和 控制 如 图 。 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter {* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


5.1.1 一 种 描述 寄存 器 机 器 的 语言 


数据 通路 图 和 控制 器 图 很 适合 描述 像 GCD 这 样 的 简单 机 器 ， 但 如 果 用 于 描述 大 型 机 器 ， 
例如 Lisp 的 解释 器 ， 这 些 图 就 会 变 得 非常 笨拙 不 便 了 。 为 了 能 够 处 理 复杂 的 机 器 ， 我 们 将 创 
造 一 种 语言 ， 它 能 以 正文 的 形式 表现 出 由 数据 通路 图 和 控制 器 图 所 给 出 的 所 有 信息 。 我 们 将 
从 一 种 直接 模仿 这 些 图 示 的 记 法 形式 开始 。 

在 定义 一 部 机 器 的 数据 通路 图 时 ， 我 们 需要 描述 其 中 的 寄存 器 和 各 种 操作 。 为 了 描述 一 
个 寄存 器 ， 我 们 需要 给 它 取 一 个 名 字 ， 并 描述 那些 给 它 赋 值 的 按钮 。 这 里 又 需要 给 出 每 个 按 
钮 的 和 名字， 并 描述 在 这 些 按钮 的 控制 之 下 进入 寄存 器 的 数据 源 (这 种 数据 源 是 一 个 寄存 器 ， 
或 一 个 常量 ， 或 一 个 操作 )。 为 了 描述 一 个 操作 ， 我 们 也 需要 给 它 一 个 名 字 ， 并 描述 好 它 的 输 
入 (寄存 器 或 者 常量 )。 

我 们 将 一 部 机 器 的 控制 器 定义 为 一 个 指令 序列 ， 另 外 再 加 上 一 些 标号 ， 它 们 标明 了 序列 
中 的 一些 入 口 点 。 一 条 指令 可 以 是 下 面 几 种 东西 之 一 ; | 

. 数据 通路 图 中 的 一 个 按钮 ， 按 压 它 将 使 一 个 值 被 赋 给 一 个 寄存 器 。( 这 对 应 于 控制 器 

里 的 一 个 矩形 框 。) 

.test 指令 ， 执 行 相应 的 检测 。 

。 有 条 件 地 转移 到 某 个 由 控制 器 标号 指明 的 位 置 的 分 支 指令 (branch 指 令 )， 它 基于 前 面 

俭 测 的 结果 (检测 和 分 支 一 起 对 应 于 控制 器 图 里 的 菱形 ) 。 如 果 检 测 为 假 ， 控 制 器 将 继 

续 序 列 中 的 下 一 条 指令 ， 否 则 控制 器 就 将 继续 去 做 指定 标号 之 后 的 下 一 条 指令 

。 无 条 件 分 支 指 令 (goto 指 令 ) 指明 继续 执行 的 控制 左 标 己 。 

VLAR HEA EMI BHE G EF IO FE RE PERD 直到 执行 达到 序列 末尾 时 停止 。 这 些 指令 总 按照 它 
们 列 出 的 顺序 执行 ， 除 非 遇 到 分 支 指令 改变 控制 流 。 

ns sap EAR MOCO WL, 这 一 实例 只 是 为 了 说 明了 这 种 表示 方式 的 通用 
性 ， 因 为 GCD 机 器 是 一 个 非常 简单 的 实例 ， 其 中 的 每 个 寄存 器 只 有 一 个 按钮 ， 每 个 按钮 和 检 
测 都 只 在 控制 器 里 使 用 了 一 次 。 

不 幸 的 是 ， 这 种 描述 很 难 阅读 。 为 了 理解 控制 器 里 的 指令 ， 我 们 必须 时 常 去 参照 查看 按 
馈 的 名 字 和 操作 的 名 字 ， 为 了 理解 一 个 按钮 究竟 做 了 什么 事情 ， 我 们 又 必须 参照 查看 操作 名 
字 的 定义 。 为 此 我 们 希望 改变 这 种 记 法 形式 ， 把 来 自 数据 通路 图 和 控制 器 图 的 描述 组 合 到 一 
起 ， 使 我 们 能 在 一 起 观看 它们 。 

为 了 得 到 这 种 描述 形式 ， 我 们 将 用 按钮 和 操作 的 行 了 为 定义 代替 为 它们 任意 取 的 名 字 th 
就 是 说 ， 不 采用 在 一 个 地 方 (在 控制 器 里 ) 说 “按压 按钮 t<~r”， 并 在 另 一 个 地 方 ( 在 数据 
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通路 图 里 ) 说 “按压 t<-r 将 把 操作 rem 的 值 赋 给 寄存 器 t ”以 及 “操作 rem 的 输入 是 寄存 器 a 
和 b 的 内 容 ” 的 方式 ， 以 后 将 (在 控制 器 里 ) 直接 说 :“ 按 压 那 个 按钮 ， 将 操作 em 对 寄存 器 a 
和 bp 的 内 容 算出 的 值 赋 给 寄存 器 t+" 。 与 此 类 似 ， 不 是 《在 控制 器 里 ) 说 “执行 = 检测 ”并 另外 
(在 数据 通路 里 ) 说 “这 个 = 检测 是 对 寄存 器 b 的 内 容 和 常量 0 操作 ”， 而 将 说 “对 于 寄存 器 b 
的 内 容 和 常量 0 做 = 检测 。” 我 们 将 忽略 掉 数 据 通路 描述 ， 只 留 下 控制 器 序列 。 这样 ，GCD 机 
三 就 可 以 描述 为 下 面 的 形 却 : 
(controller 
test-b 
{test (op =) (reg b) (const 0)) 
{branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
{assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 
gcd-done) 


(data-paths 
(registers 
({name a) 
{buttons ((name a<-b) (source (register b))))) 
( (name D) 
(buttons ((name b<-t) (source (register t))))) 
((name t) 
(buttons ((name t<-r) (source (operation rem)))))) 


(operations 
((name rem) 
(inputs (register a) (register bD))) 
({name =) 
(inputs (register b) (constant 0))))) 


(controller 


test-b ; label 

(test =) ; test 

(branch (label gcd-done) ) ; conditional branch 

(t<-r) ; button push 

(a<-b) ; button push 

(b<-t) ; button push 

(goto (label test-b)) ; unconditional branch 
gcd-done ) > label 


图 5-3 —BRCCD HL at HUM eta 


与 图 5-3 给 出 的 形式 相 比 ， 现 在 这 种 描述 形式 更 容易 阅读 ， 但 它 也 还 有 一 些 缺 点 : 

。 对 于 大 型 机 器 而 言 ， 这 种 描述 太 罗 味 ， 因 为 只 要 控制 器 指令 序列 中 多 次 提 到 茶 个 数据 通 
路 元 素 ， 该 元 件 的 完整 描述 就 会 反复 地 出 现 (在 GCD 实 例 里 并 没有 出 现 这 一 问题 ， 因 为 
在 这 里 ， 每 个 操作 和 按钮 都 只 出 现 了 一 次 ) 。 进 一 步 说 ， 重 复出 现 的 数据 通路 描述 将 使 
机 器 中 的 实际 数据 通路 结构 变 得 模糊 不 清 , 对 于 大 型 的 机 器 而 言 , BRA BT Se ae 
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操作 和 按钮 ， 它 们 之 间 如 何 连接 的 情况 都 将 更 难看 清楚 。 
。 因 为 机 器 定义 中 的 控制 器 指令 看 起 来 像 Lisp 的 表达 式 ， 因 此 就 使 人 很 容易 忘记 它们 并 不 
是 任意 的 Lisp 表 达 式 ， 只 能 表示 合法 的 机 器 指令 。 举 例 来 说 ， 这 里 的 操作 只 能 直接 对 常 
量 和 寄存 器 的 内 容 去 做 ， 不 能 作用 于 其 他 操作 的 结果 。 
虽然 存在 这 些 缺 点 ， 在 这 一 章 里 我 们 还 是 准备 始终 采用 这 一 寄存 器 机 器 语言 ， 因 为 下 面 将 更 
加 关注 对 于 控制 器 的 理解 ， 而 较 少 注意 数据 通路 里 的 元 素 和 连接 。 当 然 ， 我 们 还 是 应 该 记 住 ， 
对 于 设计 实际 机 器 而 言 ， 数 据 通路 的 设计 是 至 关 重 要 的 。 

练习 5.2 ”请 用 这 里 的 寄存 器 机 器 语言 描述 练习 5.1 的 迭代 型 阶乘 机 器 。 

动作 

我 们 现在 要 修改 上 述 GCD 机 器 ， 以 便 能 把 想 求 GCD 的 数 输入 给 它 ， 并 使 它 能 把 结果 从 终 
端 打 印 出 来 。 我 们 并 不 想 讨 论 如 何 使 机 器 能 够 读 入 和 打印 ， 而 是 假定 这 些 都 可 以 作为 基本 操 
作 使 用 (就 像 我 们 在 Scheme 里 需要 时 就 直接 用 read 和 display 一 样 ) ”。 

read 就 像 我们 已 经 在 用 的 那些 操作 ， 它 产生 出 一 个 可 以 保存 到 寄存 器 里 的 值 。 但 是 
read 并 不 从 任何 寄存 器 取得 输入 ， 它 所 产生 的 值 依赖 于 某 些 情况 ， 而 这 些 情况 发 生 在 我 们 所 
设计 的 机 器 的 组 成 部 分 之 外 。 我 们 允许 机 器 的 一 些 操作 具有 这 种 行为 方式 ， 并 据 此 画 出 或 者 
说 明 read 的 使 用 ， 就 像 所 用 的 是 一 个 能 计算 出 值 的 操作 一 样 。 

在 另 一 方面 ，print 与 我 们 已 经 使 用 的 任何 操作 都 有 本 质 性 的 不 同 : 它 并 不 产生 任何 可 
以 存 入 寄存 器 的 输出 值 。 虽 然 print 会 产生 一 种 效果 ， 但 这 种 效果 却 不 是 我 们 所 设计 的 机 器 
的 一 部 分 。 下 面 把 这 类 操作 称 为 动作 。 在 数据 通路 图 上 ， 动 作 的 表示 形式 就 像 是 一 个 能 产生 
值 的 操作 一 用 一 个 梯形 ， 其 中 包含 着 这 个 动作 的 名 字 。 应 该 有 来 自 输入 (寄存 器 或 者 常量 ) 
的 箭头 指向 动作 框 ， 我 们 也 为 这 些 动作 关联 一 个 按钮 ,按压 这 个 按钮 将 导致 该 动作 的 出 现 。 
为 了 使 控制 器 可 以 按压 动作 的 按钮 ， 在 这 里 增加 一 种 新 的 称 为 perform 的 指令 。 这 样 ， 在 控 
制 器 序列 里 ， 打 印 寄存 器 a 的 内 容 的 动作 用 下 面 指令 表示 : 

(perform (op print) (reg 4)) 

图 $-4 显 示 的 是 新 的 GCD 机 器 的 数据 通路 和 控制 器 。 这 里 我 们 没有 让 这 一 机 器 打印 结果 后 
就 停止 ， 而 是 让 它 重 新 开始 ， 因 此 这 部 机 器 将 反复 地 读 入 一 对 数 ， 计 算 它 们 的 GCD 并 打印 出 
结果 。 这 种 结构 很 像 我 们 在 第 4 章 讲 的 解释 器 里 用 的 驱动 循环 。 


5.1.2 机 器 设计 的 抽象 


我 们 经 常 需要 定义 一 部 包括 着 某 些 “ 基 本 ”操作 的 机 器 ， 这 些 操作 本 身 实际 上 也 非常 复 
杂 。 举 例 说 ， 在 5.4 和 5.5 节 里 ， 我 们 将 要 把 Scheme 的 环境 操作 当 作 基 本 操作 。 这 种 抽象 非常 
有 价值 ， 因 为 它 使 我 们 能 忽略 机 器 中 一 些 部 分 的 细节 ， 将 注意 力 集中 到 有 关 设 计 的 其 他 方面 。 
当然 ， 我 们 能 够 将 大 量 复杂 事务 隐藏 起 来 ， 这 并 不 意味 着 该 机 器 的 设计 是 不 实际 的 。 因 为 我 
们 总 能 用 一 些 更 简单 的 基本 操作 来 取代 这 些 复 杂 的 “基本 操作 ”。 

考虑 上 面 的 GCD 机 器 ， 在 这 一 机 器 里 有 一 条 指令 ， 它 计算 寄存 器 a 和 b 的 内 容 的 余数 ， 并 
将 结果 赋值 给 寄存 器 t 。 如 果 我 们 希望 在 构造 这 一 GCD 机 器 时 不 用 这 种 余数 基本 操作 ， 那 么 就 


m 六 假设 掩盖 了 很 多 复杂 问题 。 通 常 在 Lisp 系 统 的 实现 里 ， 大 部 分 工作 就 是 完成 读 人 和 打印 的 工作 。 
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必须 描述 清楚 如 何 利 用 更 简单 的 操作 计算 出 余数 来 ， 例 如 采用 减法 。 我 们 确实 能 写 出 下 面 的 
能 够 找 出 余数 的 3cheme 过 程 ; 


(define (remainder n d) 
(if (< n d) 
n 
(remainder (- n d) da))) 


(controller 

gcd-loop 
(assign a (op read)) 
(assign b (op read)) 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg D)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b) ) 

gcd-done 
(perform (op print) (reg a)) 
(goto (label gcd-~loop) )) 


图 $-4 ”一 部 读 输 入 并 打印 结果 的 GCCD 机 戎 


这 样 ， 我 们 就 可 以 用 一 个 减法 操作 和 一 个 比较 检测 ， 去 代替 GCD 机 器 的 数据 通路 里 的 余数 操 
作 、 图 5-5 显 示 了 这 一 细 化 后 的 机 器 的 数据 通路 和 控制 器 。 原 GCD 控 制 器 定义 里 的 指令 : 
(assign t (op rem) (reg a) (reg b)) -_ 
现在 被 一 个 包含 循环 的 指令 序列 取代 了 ， 如 图 5-6 所 示 。 
练习 5.3 请 设计 一 部 机 器 ， 采 用 牛顿 法 计算 平方 根 ， 如 1.1.7 市 所 描述 的 : 


(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (Square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess)))) 
{sqrt-iter 1.0)) 





start 


no 


yes 





图 $-5 细 化 后 的 GCD 机 器 的 数据 通路 和 控制 器 


在 开始 时 ， 请 假设 good-enough? 和 improve 都 是 可 用 的 基本 操作 。 而 后 说 明 如 何 基于 算术 
操作 展开 它们 。 请 描述 这 些 sqrt 机 器 的 设计 ， 画 出 它们 数据 通路 图 ， 并 用 寄存 器 机 颖 语言 写 
出 控制 器 的 定义 。 
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(controller 
test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd~done) ) 
{assign t (reg a)) 
rem-loop 
(test (op <) (reg t) (reg b)) 
(branch (label rem-done) ) 
(assign t (op -) (reg t) (reg b)) 
(goto (label rem-loop) ) 
rem-done 
(assign a (reg b)) 
(assign b (reg t)) 
(goto {label test-b)) 
gcd-done) 


图 5-6 针对 图 3-> 中 GCD 机 器 的 控制 器 指令 序列 


5.1.3 子 程序 


在 设计 一 部 执行 某 种 计算 的 机 器 时 ， 我 们 常常 更 希望 能 对 其 中 的 一 些 部 件 做 出 一 些 安 
排 ， 使 计算 中 某 些 不 同 的 部 分 可 以 共享 这 些 部 件 ， 而 不 是 重复 描述 这 些 部 件 。 现 在 考虑 一 
部 包含 着 两 个 GCD 计 算 的 机 器 ， 一 个 找 出 寄存 器 a 和 b 的 内 容 的 GCD ， 另 一 个 找 出 寄存 器 c 
和 GQ 的 内 容 的 GCD。 在 开始 时 ,我们 可 以 假定 已 经 有 了 一 个 gcd 基 本 操作 ， 而 后 再 基于 更 基 
本 的 操作 展开 gcd 的 这 两 个 实例 。 图 5-7 中 只 显示 了 结果 机 器 的 数据 通路 里 与 GCD 有 关 的 部 
分 ， 没 有 显示 它们 与 机 器 中 其 他 部 分 的 连接 。 这 个 图 里 还 显示 了 这 一 机 器 的 控制 器 序列 里 
的 相应 部 分 。 

在 这 一 机 器 里 有 两 个 余数 操作 框 和 两 个 检测 相等 的 框 。 如 果 重 复出 现 的 部 件 比 较 复 杂 ， 

就 像 这 里 的 余数 框 ， 这 样 做 就 不 是 构造 这 一 机 器 的 最 经 济 方式 了 。 我 们 希望 能 用 同一 个 部 件 
完成 这 两 个 GCD 计 算 ， 以 避免 数据 通路 部 件 的 重复 出 现 ， 条 件 是 这 样 做 时 不 会 影响 更 大 的 机 
器 计算 里 的 其 他 部 分 。 如 果 在 控制 器 到 达 gcdq-2 的 时 候 ， 寄 存 器 a 和 b 里 的 值 已 经 不 再 需要 了 
(或 者 ， 如 果 为 了 保证 安全 ,已 经 将 这 些 值 搬 到 了 其 他 寄存 器 )， 我 们 就 可 以 修改 这 部 机 器 ， 
使 它 在 计算 第 二 个 GCD 时 也 使 用 寄存 器 a 和 b ， 而 不 用 寄存 器 c 和 qd， 就 像 在 第 一 次 计算 GCD 时 
那样 。 如 果 这 样 做 ， 我 们 就 会 得 到 如 图 5-8 所 示 的 控制 器 序列 。 
” ”这样 我 们 就 除去 了 重复 的 数据 通路 部 件 (因此 数据 通路 又 变 回 到 图 5-1 的 样子 )， 但 是 在 
控制 器 里 还 是 有 两 个 有 关 GCD 的 序列 ， 它 们 之 间 的 差异 仅仅 在 于 入 口 标号 不 同 。 如 果 能 将 这 
样 的 两 个 序列 代 换 为 到 同一 个 序列 (一 个 gcd 子 程序 ) 的 不 同 分 支 ， 并 能 在 该 序列 最 后 重新 
通过 分 支 ， 回 到 主流 指令 序列 中 正确 的 位 置 ， 那 当然 就 更 好 了 。 我 们 可 以 通过 如 下 方式 完成 
这 一 工作 : 在 分 支 进 入 gcd 之 前 ， 首先 在 特定 的 寄存 器 continue 里 存 入 一 个 区 分 值 〈( 例 如 0 
或 者 1) ， 在 gcdq 子 程序 结束 时 ， 让 计算 根据 寄存 器 continue 里 的 值 决 定 是 回 到 afte- 
gcd-1 还 是 asfter-gcd-2 。 图 5-9 显 示 了 这 样 做 之 后 的 控制 器 序列 里 的 相关 部 分 ， 其 中 只 包 
含 了 gcd 指 令 的 一 个 副本 。 





gcd-1 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-1))} 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1)) 

after-gcd-1 


gcd-2 
(test (op =) (reg d) (const 0)) 
(branch (label after-gcd-2) ) 
(assign s (op rem) (reg c) (reg d)) 
(assign c (reg d)) 
(assign d (reg s)) 
(goto (label gcd-2)) 
after-gcd-2 


图 5-7 一 部 完成 两 次 GCD 计 算 的 机 器 的 数据 遂 路 和 控制 器 的 一 部 分 


gcd-1 l 
(test (op =) (reg b) (const 0)) 
(branch (label after-ged-i1)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg bj)) 
(assign b (reg t)) 
(goto {label gcd-1)) 

after-gcd-1l 


gcd-2 
{test (op =) (reg b) (const 0)) 
(branch (label after-gcd-2) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-2)) 

after-gcd-2 


图 $-8 在 一 部 机 器 中 为 两 个 不 同 GCD 计 算 使 用 了 同样 的 
数据 通路 部 件 ， 这 里 是 它 的 控制 絮 序 列 的 一 部 分 


i rr— = ~ 





1 





gcd 
{test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
{goto (label gcd)) 

gcd-done 
(test (op =) (reg continue) (const 0)) 
(branch (label after-gcd-1) ) 
(goto (label after-gcd-2)) 


;; Before branching to gcd from the first place where 
; it is needed, we place Ò in the continue register 
{assign continue (const 0)) 
(goto (label gcd) ) 
after-gcd-l 


;; Before the second use of gcd, we place | in the continue register 
{assign continue (const 1)) 
{goto (label gcd) ) 

after-gced-2 


图 5-9 采用 一 个 continue 寄 存 器 ， 避 免 像 图 5-8 那 样 重复 的 控制 器 序列 


在 处 理 很 小 的 问题 时 ， 这 是 一 种 合理 的 方法 ， 但 如 果 在 控制 器 序列 里 出 现 了 许多 GCD 计 
算 的 实例 ， 事 情 就 会 变 得 很 难 弄 了 。 为 了 在 gcd 子 程序 完成 之 后 确定 转 到 哪里 继续 执行 ， 我 
们 就 需要 为 在 控制 器 里 所 有 使 用 9ca 的 地 方 加 上 做 检测 的 数据 通路 和 分 支 指令 。 实 现 子 程序 
的 另 一 种 更 有 力 的 方法 ， 是 在 寄存 器 continue 里 保存 控制 器 序列 里 一 个 人 口 点 的 标号 ， 用 
这 个 标号 指明 子 程序 结束 时 执行 应 从 哪里 继续 下 去 。 要 实现 这 一 策略 ， 就 需要 在 寄存 器 机 器 
里 的 数据 通路 与 控制 器 之 间 建 立 一 类 新 的 联系 : 这 里 必须 有 一 种 方式 ， 能 用 于 控制 器 序列 里 
一 个 标号 的 值 赋 给 一 个 寄存 器 ， 而 所 用 的 赋值 方式 又 必须 使 这 种 值 可 以 从 寄存 器 里 提取 出 来 ， 
用 于 确定 继续 执行 的 指定 入 口上 后。 

为 了 实现 这 种 能 力 ， 我 们 要 扩充 寄存 器 机 器 里 assign 指 令 的 能 力 ， 人 允许 将 控制 器 序列 里 
的 标号 作为 值 (作为 一 种 特殊 常量 ) 赋 给 一 个 寄存 器 。 还 要 扩充 9oto 指 令 的 能 力 ， 人 允许 执 行 
进程 不 仅 可 以 从 一 个 常量 标号 描述 的 入 口 点 继续 ， 还 可 以 从 一 个 寄存 器 的 内 容 所 描述 的 入 口 
点 继续 下 去 。 利 用 这 些 新 的 结构 ， 我 们 就 可 以 在 9cG 子 程序 的 结束 处 放 一 条 分 支 指 令 ， 要 求 
转向 保存 在 continue 寄 存 器 里 的 那个 位 置 。 这 样 做 出 的 控制 器 序列 如 图 3-10 所 示 。 

如 果 一 部 机 器 里 有 多 个 子 程序 ， 那 么 可 以 采用 多 个 继续 寄存 器 (例如 ，gcd-continue,， 
factorial-continue)， 也 可 以 让 所 有 子 程 序 共享 同一 个 continue 寄 存 右 。 共享 一 个 寄 
存 器 当然 更 经 济 一 些 ， 但 是 在 出 现 一 个 子 程序 (subl) 调用 另 一 个 子 程序 (sub2) 的 情况 
下 ， 我 们 就 必须 小 心 了 。 除非 sub1 在 设置 continue 寄 存 器 以 便 准备 去 调用 sub2 之 前 ， 事 
先 保存 了 continue 寄 存 器 的 内 容 ， 否 则 在 subl 本 身 结束 时 就 不 知道 该 往 哪里 去 了 。 下 一 市 
将 开发 一 种 用 于 处 理 递 归 的 机 制 ， 它 也 同样 为 解决 子 程序 妊 父 调用 提供 了 一 种 更 好 的 办 法 。 
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gcd 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto {label gcd)) 
gcd-done 
{goto (reg continue) ) 


`~ Before calling gcd, we assign to continue 

5 the label to which gcd should return. 
(assign continue (label after-gcd-1)) 
(goto (label gcd) ) 

after-gcd-1 


+; Here is the second call to gcd, with a different continuation. 
(assign continue (label after-gcd-2)) 
(goto {label gcd)) 

after-gcd-2 


图 5-10 为 continue 寄 存 器 做 标号 赋值 ， 可 以 简化 并 推广 图 -9 中 展示 的 策略 


5.1.4 采用 堆栈 实现 递归 


有 了 至 今 所 阔 述 的 思想 ， 我 们 已 经 可 以 通过 描述 有 关 的 寄存 器 机 器 ， 实 现 所 有 的 迭代 计 
算 过 程 了 ， 其 中 用 一 个 寄存 器 对 应 于 计算 过 程 中 的 一 个 状态 变量 。 这 种 机 器 反复 地 执行 一 个 
控制 器 循环 ， 并 不 断 改 变 各 个 寄存 器 的 内 容 ， 直 至 满足 了 某 些 结 束 条 件 。 在 控制 器 序列 中 的 
每 一 点 ， 机 器 的 状态 (对 应 于 迭代 计算 过 程 的 状态 ) 完全 由 这 些 寄存 器 的 内 容 (对 应 于 状态 
变量 的 值 ) 所 确定 。 

然而 ， 要 想 实 现 递归 计算 过 程 ， 我 们 还 需要 增加 新 的 机 制 。 考 虚 下 面 计算 阶乘 的 递归 方 
法 ， 我 们 在 1.2.1 贡 第 一 次 看 到 它 : 

(define (factorial n) 

(if (= n i1) 


1 
(* (factorial (- n 1))-n)))} 


正如 从 这 一 过 程 中 可 以 看 到 的 ， 在 计算 n! 时 将 需要 计算 (n 一 1) !。 用 下 面 过 程 描述 的 另 一 部 


GCD 机 器 
(define (gcd a b) 
(if (= b 0) 


a 
(gcd b (remainder a b)))) 


巾 类 似 地 需要 去 计算 另 一 个 GCD 。 但 是 ， 在 这 个 gcdq 过 程 与 上 面 的 factorial 之 间 有 一 点 重 
要 不 同 ， 这 个 gcd 过 程 将 原来 的 计算 简化 为 一 个 新 的 GCD 计 算 ， 而 factorial 则 要 求 计 算出 
另 一 个 阶乘 作为 一 个 子 问 题 。 在 这 个 CD 过程 里 ， 对 于 新 的 GCD 计 算 的 回答 也 就 是 原来 问题 
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的 回答 。 为 了 计算 下 一 个 GCD ， 我 们 只 需 简 单 地 将 新 的 参数 放 进 GCD 机 器 的 输入 寄存 器 里 ， 
并 通过 执行 同一 个 控制 器 序列 ， 重 新 使 用 这 个 机 器 的 数据 通路 。 在 机 器 完成 了 最 后 一 个 GCD 
问题 的 求解 时 ， 整 个 计算 也 就 完成 了 。 

但 是 ， 在 阶乘 (以 及 其 他 任何 递归 计算 过 程 ) 的 情形 里 ， 对 于 新 的 阶乘 子 问题 的 回答 并 
”不 是 对 于 原 问题 的 回答 。 由 (n 一 ])! 得 到 的 值 还 必须 乘 以 4+， 才能 得 到 最 后 的 结果 。 如 果 我 们 
试图 去 模仿 GCD 设 计 ， 通 过 减少 寄存 器 n 的 值 并 重新 运行 阶乘 机 器 的 方式 求解 这 里 的 阶乘 子 问 
Bi, BATRA HEN 原来 的 值 ， 也 就 无 法 再 用 它 去 乘 计算 结果 了 。 这 样 我 们 就 需要 第 二 部 阶乘 
机 器 去 完成 子 问题 的 工作 。 而 这 第 二 个 子 问 题 本 身 又 有 一 个 阶乘 子 问题 ， 它 又 要 求 第 三 部 阶 
乘机 器 ， 并 继续 这 样 下 去 。 因 为 每 部 阶乘 机 器 里 都 需要 包含 另 一 部 阶乘 机 器 ， 完 整 的 机 器 中 
将 要 包含 着 无 穷 幅 套 的 类 似 机 器 ， 这 是 不 可 能 从 固定 的 有 限 个 部 件 构造 起 来 的 。 

然而 ， 我 们 还 是 可 能 将 这 一 阶乘 计算 过 程 实现 为 一 部 寄存 器 机 器 ， 只 要 我 们 能 做 出 一 种 
安排 ， 设 法 使 每 个 嵌 套 的 机 器 实例 都 使 用 同样 的 一 组 部 件 。 也 就 是 说 ， 计 算 刀 的 机 器 应 该 用 
同样 部 件 去 完成 计算 针对 (n 一 1)! 的 子 问题 ， 去 计算 针对 (n 一 2)! 的 子 问 题 ， 并 如 此 下 去 。 这 是 
可 能 的 ， 因 为 ， 虽 然 阶乘 计算 过 程 在 执行 中 要 求 同 一 机 器 的 无 穷 多 个 副本 ， 但 是 在 任何 给 定 
时 刻 ， 它 所 实际 使 用 的 只 是 这 些 副本 中 的 一 个 。 当 这 部 机 器 遇 和 到 一 个 递归 子 问 题 时 ， 它 就 可 
以 挂 起 针对 原 问题 的 工作 ， 重 新 使 用 同样 物理 部 件 去 处 理 这 个 子 问 题 ， 完 成 后 再 继续 进行 前 
面 挂 起 的 计算 。 

在 处 理子 问题 时 ， 寄 存 器 的 内 容 与 它们 在 原 问 题 里 的 情况 不 同 (在 目前 情况 下 ， 寄 存 器 / 
的 值 减 小 了 )。 为 了 能 够 继续 进行 前 面 挂 起 的 计算 ， 机 器 必须 把 解决 了 子 问题 之 后 还 需要 的 那 
些 寄 存 器 的 内 容 保存 起 来 ， 以 便 后 来 能 恢复 它们 ， 以 继续 进行 前 面 挂 起 的 计算 。 对 于 阶乘 问 
题 ， 我 们 应 该 保存 起 n 的 原 值 ， 在 完成 对 减 小 后 n 寄 存 器 的 阶乘 计算 之 后 再 恢复 它 2 。 

由 于 对 递归 调用 的 从 套 识 度 并 没有 一 个 事先 知道 的 界限 ， 我 们 可 能 需要 保存 任意 个 的 寄 
存 器 值 。 这 些 值 需要 以 与 它们 的 保存 顺序 相反 的 顺序 存储 起 来 ， 因 为 在 嵌 套 的 递归 中 ， 最 后 
进入 的 那个 子 问题 将 首先 结束 。 这 就 要 求 我 们 使 用 一 个 堆栈 ， 或 称 为 “后 进 先 出 ”数据 结构 ， 
用 它 保存 寄存 器 的 值 。 我 们 可 以 扩充 寄存 器 机 器 语言 ， 增 加 两 种 指令 ， 将 一 个 堆栈 包括 进来 : 
将 值 放 入 堆栈 用 一 个 save 指 令 ， 从 堆栈 中 恢复 一 个 值 用 restore 指 令 。 在 将 一 系列 值 save 
- 到 堆栈 里 之 后 ， 一 系列 的 restore 将 以 相反 的 顺序 提取 出 这 些 值 ”。 

有 了 堆栈 的 帮助 之 后 ， 我 们 就 可 以 重复 使 用 阶乘 机 器 的 数据 通路 的 同一 个 副本 ， 完 成 所 
有 的 阶乘 子 问题 了 。 在 重复 使 用 对 这 个 数据 通路 进行 操作 的 控制 器 序列 时 ， 也 存在 类 似 的 设 
计 问 题 。 为 了 重复 地 执行 阶乘 计算 ， 这 个 控制 器 就 不 能 像 选 代 计 算 过 程 那样 简单 地 转 回 到 开 
始 的 地 方 ， 因 为 在 解决 了 (n - 1)! 子 问题 之 后 ， 这 部 机 器 还 必须 将 结果 乘 以 上 。 控 制 器 需要 挂 
起 它 对 n! 的 计算 ， 去 解决 (4 一)! 子 问题 ， 而 后 再 继续 它 对 1 的 计算 。 对 阶乘 计算 的 这 种 观点 
提示 我 们 采用 5.1.3 节 里 描述 的 子 程序 机 制 ， 在 那里 使 用 了 一 个 continue 寄 存 器 ， 以 便 在 转 
到 解决 子 问题 的 序列 部 分 之 后 ， 还 能 回 到 它 脱 离 主 问题 的 那个 位 置 继 续 下 去 。 我 们 同样 新 以 
让 阶乘 子 程序 把 返回 的 人口 点 保存 到 continue 寄 存 器 里 。 围 绕 着 每 个 子 程序 调用 ， 我 们 都 


87 有 人 可 能 会 说 ， 在 这 里 并 不 需要 保存 n 的 原 值 ， 因 为 再 减 小 它 并 解决 了 子 问 题 之 后 ， 我 们 可 以 再 增 大 它 去 饮 
复 到 原来 的 值 。 虽 然 这 种 策略 对 于 阶乘 确实 可 行 ， 但 却 不 是 一 般 可 用 的 ， 因 为 一 般 而 言 ， 一 个 寄存 器 原来 的 
值 不 一 定 能 从 它 的 新 值 计算 出 来 。 

288 在 5.3 节 里 ， 我 们 将 看 到 如 何 基于 更 基本 的 操作 实现 堆栈 。 
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需要 做 寄存 器 continue 的 保存 和 恢复 ， 就 像 对 寄存 器 Rn 所 做 的 那样 ， 因 为 每 一 “ 层 Ei 
算 都 将 使 用 同一 个 continue 寄 存 器 KH, ， 阶 乘 子 程序 在 调用 目 己 以 开始 解决 一 个 子 回 题 
之 前 ， 必 须 将 一 个 新 值 存 人 continue， 但 它 后 来 还 会 需要 那个 老 的 值 ， 以 便 能 返回 原来 调 
用 它 以 解决 这 个 子 问题 的 位 置 。 

图 $-11 显 示 了 实现 这 一 递归 的 factorial 过 程 的 机 器 的 数据 通路 和 控制 袁 。 在 这 一 机 楷 
里 ， 有 一 个 堆栈 和 三 个 分 别称 为 n 、val 和 continue 的 寄存 器 。 为 了 简化 数据 通路 图 ， 我 们 


AQ) 
29 


62) SC | 
oe 
N / \ - / continue controller 


(controller 
(assign continue (label fact-done) ) ; set up final return address 
fact-loop | 
(test (op =) (reg n) (const 1)) 
(branch (label base-case) ) 
++ Set up for the recursive call by saving n and continue. 
;; Set up continue so that the computation will continue 
--atafter-fact when the subroutine returns. | 
(save continue) 
(save n) 
(assign n (op -) (reg n) (const 1)) 
(assign continue (label after-fact)) 
(goto (label fact-loop)) 
after-fact 
(restore n) 
(restore continue) 


l (assign val (op *) (reg n) (reg val)) ; val now contains n(n - I)! 
À (goto (reg continue)) ; return to caller 
base-case 
(assign val (const 1)) , base case: 1! = 1 
(goto (reg continue) ) ; return to caller 


fact-—done) 


图 5-11 一 部 递归 的 阶乘 机 器 
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并 没有 给 寄存 器 赋值 按钮 命名 ， 而 是 只 给 堆栈 操作 按钮 俞 了 名 (sc 和 sn 保存 寄存 器 内 容 ，IC 
和 In 恢复 寄存 器 内 容 )。 为 了 操作 这 部 机 器 ， 我 们 在 寄存 器 ?里 存 人 和 希望 计算 阶乘 值 的 数 ， 而 
后 启动 机 器 。 当 机 器 到 达 fact~done 时 计算 结束 ， 在 寄存 器 val 里 将 能 找到 对 应 回答 。 在 相 
应 的 控制 器 序列 里 ， 每 次 递归 调用 之 前 都 保存 起 n 和 continue ， 从 调用 返回 时 恢复 它们 。 完 
成 从 一 个 调用 返回 的 方式 就 是 转 到 保存 在 continue 里 的 位 置 。 在 机 器 启动 时 对 continue 
做 初始 化 ， 使 得 机 器 在 最 后 能 返回 到 fact-done。val 寄 存 器 里 保存 着 阶乘 计算 的 结果 ， 在 
递归 调用 时 并 不 保存 它 ， 因为 val 原 来 的 内 容 在 子 程序 返回 后 已 经 没有 用 了 。 此 时 只 需要 它 
的 新 值 ， 是 由 这 一 次 子 计 算 产 生出 来 的 。 

虽然 从 原理 上 说 阶乘 计算 需要 一 部 无 穷 机 器 ， 图 5-11 所 示 的 机 器 实际 上 却 是 有 穷 的 ， 除 
了 其 中 的 堆栈 之 外 ， 因 为 它 是 潜在 无 界 的 。 当 然 ， 堆 栈 的 任何 特定 物理 实现 都 具有 有 穷 的 大 
小 ， 这 也 将 限制 这 一 机 器 所 能 处 理 的 递归 调用 深度 。 阶 乘 的 这 一 具体 实现 展示 了 实现 递归 自 
法 的 通用 策略 ， 采 用 一 部 常规 的 寄存 器 机 器 ， 再 增加 一 个 堆栈 。 在 遇 到 递归 子 程序 时 ， 只 要 
其 些 寄存 器 的 值 在 子 问题 求解 完成 后 还 需要 用 ， 就 把 它们 的 当前 值 存 入 堆栈。 而 后 去 求解 弟 
归 的 子 问 题 ， 再 恢复 保存 起 来 的 寄存 器 值 ， 并 继续 执行 原来 的 主 程序 。continue 寄 存 器 的 
值 必须 保存 ， 其 他 寄存 器 的 值 是 否 需要 保存 ， 就 要 看 特定 机 器 的 情况 ， 因 为 并 不 古 所 有 的 赐 
归 计 算 都 需要 各 个 寄存 器 原来 的 值 ， 即 使 这 些 值 在 求解 子 问题 的 过 程 中 修改 了 ( 见 练习 5.4)。 


双重 递归 | 
现在 让 我 们 来 考察 一 个 更 复杂 的 递归 计算 过 程 ， 有 关 斐 波 那 契 数 的 树 型 递归 计算 we 
在 1.2.2 市 介绍 过 的 
(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (- n 2))))) 


BREER AEL, Be a BY CB A SE A SL A) BB SF TF ar OL a 其 中 采用 寄 
存 器 n、val 和 continue。 这 部 机 器 比 计算 阶乘 的 机 器 更 复杂 一 些 ， 因 为 在 这 里 的 控制 序列 
中 有 两 个 地 方 需要 执行 递归 调用 一 一 一 个 计算 Fib(n 一 1)， 另 一 个 计算 Fib(n 一 2)。 为 了 安排 好 
其 中 的 各 个 递归 调用 ， 我 们 需要 保存 起 那些 后 来 需要 使 用 的 寄存 器 值 ， 而 后 将 n 寄 存 器 设置 为 
志和 要 去 递归 计算 Fib 的 数值 (n 一 1 或 + 2)， 并 将 continue 赋 值 为 计算 返回 时 应 该 转向 的 主 
序列 入 日 点 (分 别 为 afterfib-n-1 或 者 afterfib-n-2)， 而 后 转 同 fib-1loop。 在 从 递 
归 调 用 返回 时 答案 就 在 Val 里。 图 5-12 显 示 了 这 一 机 器 的 控制 器 序列 。 
练习 5.4 ”请 描述 实现 下 面 各 个 过 程 的 寄存 器 机 器 。 对 于 这 里 的 每 部 机 从 ， 请 写 出 它 的 控 
制 器 指令 序列 ， 并 画 出 相应 的 数据 通路 图 形 。 
a) 递归 的 指数 计算 : 
(define (expt b n) 
(if (=n 0) 
1 
(* b (expt b (- n 1))))) 
b) 迭代 的 指数 计算 : 


(define (expt b n) 


A _ 


. (define (expt-iter counter product) 
(if (= counter 0) 
product 
(expt-iter (- counter 1) (* b product)))) 
(expt-iter n 1)) 


(controller 

(assign continue (label fib-done) ) 
fib-loop 

(test (op <) (reg n} (const 2)) 

(branch (label immediate-answer)) 

;; set up to compute Fib(n —1) 

{save continue) 

(assign continue (label afterfib-n-1)) 


(save n) ; save old value of n 

(assign n (op -) (reg n) (const 1)); clobbernton—1 

(goto (label fib-loop)) ; perform recursive call 
afterfib-n-i ; upon return, val contains Fib(n — 1) 


(restore n) 

(restore continue) 

`; set up to compute Fib(n —2) 

(assign n (op -) {reg n) (const 2)) 
(save continue) 

(assign continue (label afterfib-n-2) ) 


(save val) . save Fib(n —1) 
(goto (label fib-loop)) 
afterfib-n-2 ; upon return, val contains Fib(n —2) 
(assign n (reg val)) » n now contains Fib(n —2) 
(restore val) * val now contains Fib(n —1) 
{restore continue) 
(assign val ; Fib(n — 1) + Fib(n —2) 
(op +) (reg val) (reg n)) | 
(goto (reg continue) ) >» return to caller, answer is in val 
immediate-answer 
(assign val (reg n)) - base case: Fib(n) =n 
(goto (reg continue) ) 
fib-done) 
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235.5 “请 用 手工 模拟 阶乘 和 斐 波 那 契 机 器 的 计算 过 程 ， 用 某 个 非 平凡 的 输入 《需要 执 
行 至 少 一 次 递归 调用 )。 说 明 执 行 中 每 个 关键 点 上 堆栈 的 内 容 。 

练习 5.6 Ben Bitdiddle 注 意 到 ， 在 斐 波 那 契 机 器 的 控制 序列 里 有 一 个 额外 的 save 和 一 个 
额外 的 Festore， 可 以 将 它们 删 去 ， 得 到 一 个 更 快速 的 机 器 。 这 些 指令 在 哪里 ? 


9.1.9 指令 总 结 
在 我 们 的 寄存 器 机 器 语言 里 ， 一 条 控制 器 指令 具有 下 述 之 一 的 形式 ， 其 中 的 每 个 <inpu> 或 


者 是 一 个 (reg <register-name> )， 或 者 是 一 个 (const <constant-value> ) 。 
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下 面 指令 是 在 5.1.1 节 介绍 的 : 

(assign <register-name> (reg <register-name> ) ) 

(assign <register-name> (const <constant-value> ) ) 

(assign <register-name> (Op <operation-name>) <input,>> ... <input,>) 

{perform {op <operation-name>) <inpul,> ... <input,>) 

(test (op <operation-name>) <input,> ... <input,>) 

(branch (label </abel-name>) ) 

(goto (label <label-name>) )} 

采用 寄存 器 保存 标号 的 指令 是 在 3.1.3 节 讨论 的 : 

(assign <register-name> (label <label-name>) ) 

(goto (reg <register-name> } ) 

使 用 堆栈 的 指令 在 5.1.4 节 介绍 : 

| (save <register-name> ) 

(restore <register-name> ) 

我 们 至 今 已 经 见 过 的 <constant-value> 都 是 数值 ， 后 面 还 会 用 到 字符 串 、 符 号 和 表 。 例 如 ， 
(const "abc" ) 就 是 字符 串 "abc" 。(const abc) 是 符号 abc, (const (a b c)) 是 
表 (a b c), 而 (const ()) 就 是 空 表 。 


5.2 一 个 寄存 器 机 器 模拟 器 


为 了 取得 对 于 寄存 器 机 器 设计 的 更 好 理解 ， 我 们 必须 测试 自己 设计 出 的 机 器 ， 看 看 它 能 
否 按 照 预 期 的 方式 执行 。 测 试 一 个 设计 的 一 种 方法 是 手工 模拟 控制 器 的 操作 ， 如 练习 5.5 中 所 
说 的 那样 。 但 是 ， 如 果 这 一 机 器 不 是 特别 简单 ， 手 工 做 就 会 特别 宛 长 而 枯燥 。 在 这 一 节 里 ， 
我 们 要 为 用 寄存 器 机 器 语言 描述 的 机 器 构造 一 个 模拟 器 。 这 一 模拟 器 是 一 个 Scheme 程序 ， 其 
中 包括 四 个 界面 过 程 。 第 一 个 过 程 根据 一 个 寄存 器 机 器 的 描述 ， 为 这 部 机 器 构造 一 个 模型 
(一 个 数据 结构 ， 其 中 的 各 个 部 分 对 应 于 被 模拟 机 器 的 各 个 组 成 部 分 ) ， 另 外 三 个 过 程 使 我 们 
可 以 通过 操作 这 个 模型 ， 去 模拟 相应 的 机 器 : 

(make-machine <register-names> <operations> <controller>) 
构造 并 返回 机 器 的 模型 ， 其 中 包含 了 给 定 的 寄存 器 、 操 作 和 控制 器 。 


(set-register-contents! <machine-model> <register-name> <value> ) 


将 一 个 值 存 入 给 定 机 器 的 一 个 被 模拟 的 寄存 器 里 。 
(get-register-contents <machine-model> <register-name> ) 

返回 给 定 机 器 里 一 个 被 模拟 的 寄存 器 的 内 容 。 
(start <machine-model>) 

模拟 给 定 机 器 的 执行 ， 从 相应 控制 器 序列 的 开始 处 启动 ， 直 至 到 达 这 一 序列 的 结束 时 停止 。 
作为 说 明 这 些 过 程 如 何 使 用 的 实例 ， 我 们 可 以 定义 下 面 的 9cd-machine， 为 3.1.1 市 的 


i 
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(define gcd-machine 
(make-machine 
"(a b t) 
(list {list ’rem remainder) (list = =)) 
"(test-b 
(test (op =) (reg b) (const 0)) 
(branch {label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
{assign b (reg t)) 
{goto (label test-5)) 
gcd-done) ) ) 
make-machine 的 第 一 个 参数 是 一 个 寄存 器 名 字 的 表 ， 下 一 参数 是 一 个 表格 (两 个 元 素 的 表 
的 表 ) ， 其 中 的 每 个 对 偶 包 括 一 个 操作 的 名 字 和 实现 这 一 操作 ( 即 ， 对 于 给 定 的 同样 输入 值 ， 
能 够 产生 出 同样 的 输出 值 ) 的 一 个 Scheme 过 程 。 最 后 一 个 参数 描述 了 相应 控制 器 ， 朋 一 个 标 
号 和 机 器 指令 的 表 表 示 ， 就 像 在 3.1 市 里 那样 。 
为 了 用 这 一 机 器 去 计算 SGCD ， 我 们 需要 设置 输 和 寄存器， 启动 这 部 机 器 ， 在 模拟 结束 时 
检查 计算 结 朱 : 
(set-register-contents! gcd-machine ‘a 206) 


done 


(set-register-contents! gcd-machine ‘b 40) 
done 


(start gcd-machine) 
done 


(get-register-contents gcd-machine a) 
2 


这 个 计算 的 运行 速度 比 直接 用 Scheme 写 出 的 gcd 过 程 慢 得 多 ， 因 为 我 们 是 在 模拟 低级 的 机 器 
指令 ， 例 如 assign ， 而 使 用 的 却 是 比 它 高 级 得 多 的 操作 。 
练习 5.7 用 这 个 模拟 器 检查 你 在 练习 5.4 中 设计 的 机 器 。 


5.2.1 机 器 模型 


jmake-machine 生 成 的 机 器 模型 被 表示 为 一 个 包含 局 部 变量 的 过 程 ， 其 中 采用 了 第 3 
音 里 开发 的 消息 传递 技术 。 为 了 实现 这 一 模型 ，make-machine 在 开始 时 调用 过 程 mnake-~ 
new-machine, ， 构 造 出 所 有 寄存 器 机 器 的 机 器 模型 里 都 需要 一 些 公共 部 分 。 由 make-new- 
machine 构 造 出 的 基本 机 器 模型 ， 从 本 质 上 说 就 是 一 个 容器 ， 其 中 包含 了 若干 个 寄存 器 和 一 
个 堆栈 ， 还 有 一 个 执行 机 制 ， 它 一 条 一 条 地 处 理 控制 器 指令 。 

存 此 之 后 ，make~machine 将 扩充 这 一 基本 模型 (通过 给 它 传递 消息 )， 把 现在 要 定义 
的 特殊 机 器 的 寄存 器 、 操 作 和 控制 器 加 进去 。 它 首先 为 新 机 器 里 需要 提供 的 每 个 寄存 器 名 字 
四 本 一 个 寄存 器 ， 并 安装 好 这 一 机 器 所 指定 的 各 种 操作 。 最 后 ， 它 用 一 个 汇编 程序 (在 下 面 
的 5.2.2 告 讨论， 把 控制 器 列表 变换 为 新 机 器 所 用 的 指令 ， 并 将 它们 安装 为 这 一 机 器 的 指令 序 


列 。make-machine 返 回 修 改 后 的 机 三 模型 作为 值 。 


(define (make~machine register-names ops controller-text) 
(let ((machine (make-new-machine) ) ) 
(for-each (lambda (register-name) 
( (machine ’allocate-register) register-name) ) 
register-names) 
((machine ’install-operations) ops) 
( (machine ’install-instruction-sequence) 
(assemble controller-text machine) ) 


machine) ) 


寄存 器 
我 们 把 一 个 寄存 器 表示 为 一 个 带 有 局 部 状态 的 过 程 ， 就 像 第 3 章 里 那样 ,make-register 
过 程 创 建 这 种 寄存 器 ， 它 们 里 面 保存 着 一 个 值 ， 可 以 访问 或 者 修改 : 


(define (make-register name) 
(let ((contents ’*.nassigned*) ) 
(define (dispatch message) 
(cond ((eq? message ‘get) contents) 
( (eq? message ‘set) 
(lambda (value) (set! contents value) )) 
(else | 
(error "Unknown request -- REGISTER" message)))) 
dispatch) ) 


P ich Be Hi la BE a a 
(define (get-contents register) 
(register ‘get)) 


(define (set-contents! register value) 


{ (register ‘set)}) value) ) 


堆栈 
我 们 把 堆栈 也 表示 为 一 个 带 有 局 部 状态 的 过 程 。make-stack 过 程 创建 起 一 个 堆栈 ， 其 
局 部 状态 就 是 一 个 包含 着 这 一 堆栈 里 的 数据 项 的 表 。 堆 栈 接受 的 请 求 包 括 将 一 个 数据 项 放 入 
堆栈 的 push ， 以 及 将 数据 项 从 堆栈 里 去 掉 并 返回 它 的 pop 。initialize 将 堆栈 初始 化 为 空 。 
(define (make-stack) 
(let ((s ‘())) 
(define (push x) 
(set! s (cons x s))) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
top))) 
(define (initialize) 
(set! s ()) 
"done ) 
(define (dispatch message) 
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(cond ((eq? message ‘push) push) 
((eq? message Pop) (pop)) 
( (eq? message ’initialize) (initialize) ) 
(else (error "Unknown request -- STACK" 
message)))) 
dispatch) ) 
下 面 过 程 用 于 访问 堆栈 ， 
(define (pop stack) 
(stack ‘pop) ) 


{define (push stack value) 
({stack push) value) ) 


基本 机 器 

过 程 make-new-machine 如 图 $-13 所 示 ， 它 构造 起 一 个 对 象 ， 其 内 部 状态 包括 了 一 个 堆 
栈 ， 另 外 还 有 一 个 初始 为 空 的 指令 序列 和 一 个 操作 的 表 ， 开 始 时 这 个 表 里 只 包含 一 个 急 始 化 
堆栈 的 操作 ， 还 有 一 个 寄存 器 的 列表 ， 初 始 时 包含 两 个 分 别称 为 flag 和 pc (表示 “程序 计数 
器 ”，program counter) 的 寄存 三 。 内 部 过 程 Al1locate-register 用 于 向 寄存 器 列表 中 加 
入 新 项 ， 内 部 过 程 1ookup-~Iegistez 在 这 个 列表 里 查找 寄存 此 。 

寄存 器 ELag 用 于 控制 被 模拟 机 器 的 分 支 动作 。test 指 令 设 置 f1ag 的 内 容 ， 表 示 检 测 的 
结果 ( 真 或 者 假 ) 。branch 指 令 通过 检查 f1ag 的 内 容 确 定 是 否 需 要 转移 。 

在 机 器 的 运行 中 ，pc 寄 存 器 决定 了 指令 的 执行 顺序 。 这 一 顺序 由 内 部 过 程 execute 实现 。 
在 这 个 模拟 模型 里 ， 每 条 机 器 指令 就 是 一 个 数据 结构 ， 其 中 包含 了 一 个 无 参 过 程 ， 称 为 指令 
执行 过 程 ， 调 用 这 一 过 程 就 能 模拟 相应 指令 的 执行 。 在 模拟 运行 时 ，pc 总 是 指向 指令 序列 里 
下 一 条 需要 执行 的 指令 的 开始 位 置 。execute 取 得 这 条 指令 ， 通 过 调用 与 之 对 应 的 指令 执行 
过 程 ， 完 成 相应 的 执行 。 这 一 循环 重复 进行 ， 直 到 再 也 没有 需要 执行 的 指令 为 止 (也 就 是 说 ， 
直到 pc 指向 了 指令 序列 的 结束 )。 

作为 操作 的 一 部 分 ， 每 个 指令 执行 过 程 都 将 修改 pc ， 使 之 指向 下 一 条 需要 执行 的 指令 。 
branch 和 goto 指 令 直接 修改 pc ， 使 之 指向 一 个 新 的 位 置 ， 其 他 所 有 指令 都 简单 地 增加 pc 的 
值 ， 使 它 指向 序列 中 的 下 一 条 指令 。 可 以 看 到 ， 每 次 对 execute 的 调用 都 将 再 次 调用 
execute ， 但 这 并 不 会 产生 一 个 无 穷 循 环 ， 因 为 指令 执行 过 程 的 执行 会 改变 Pc 的 内 容 。 

make-new-machine 返 回 一 个 dispatch 过 程 ， 这 一 过 程 实现 对 内 部 状态 的 消息 传递 访 
问 。 请 注意 ， 启 动 这 一 机 器 就 是 把 pc 设置 到 指令 序列 的 开始 并 调用 execute. 

为 了 方便 起 见 ， 一 部 机 器 除了 有 设置 和 检查 寄存 器 内 容 的 过 程 之 外 ， 我 们 还 为 start 有 的 
操作 提供 另 一 个 过 程 性 界面 ， 如 5.2 节 开始 时 所 描述 的 : 


(define (start machine) 


(machine ‘start)) 
(define (get-register-contents machine register-name) 


(get-contents (get-register machine register-name) ) ) ) 


(define (set-register-contents! machine register-name value) 
(set-contents! (get-register machine register-name) value) 


‘done) n 


(define (make-new-machine) 
(let ((pc (make-register ’pc)) 

(flag (make-register ‘flag)) 

(stack (make-stack) ) 

(the-instruction-sequence ‘())) 

(let ((the-ops 
(list (list ‘initialize-stack 
(lambda () (stack ’initialize))))) 
(register-table 
(list (list "pe pc) (list ’flag flag)))) 
(define (allocate-register name) 
(if (assoc name register-table) 
(error "Multiply defined register: " name) 
(set! register-tabile 
(cons {list name (make-register name) ) 
register-table) )) 
‘register-allocaced) 
(define (lookup-register name) 
{let ((val (assoc name register-table) )) 
(if val 
(cadr val) 
(error "Unknown register:" name) )))} 
(define (execute) 
(let ((insts (get-contents pc))) 
{if (null? insts) 
‘done 
(begin 
((instruction-execution-proc (car insts))) 
(execute))))) 
(define (dispatch message) 

{cond (({eq? message start) | 
{set-contents! pc the-instruction-sequence) 
(execute } ) 

( (eq? message ’install-instruction-sequence) 

(lambda (seq) (set! the-instruction-sequence seq) ) ) 
((eq? message "allocate-register) allocate-register) 
( (eq? message ’get-register) lookup-register)} 

( (eq? message “install-operations) 

(lambda (ops) (set! the-ops (append the-ops ops)))) 
( (eq? message ‘stack) stack) 

(teq? message operations) the-ops) 
(else (error "Unknown request -- MACHINE" message) )) ) 

dispatch) )) 


图 $-13 ”过程 make-new-machine , 它 实现 基本 机 器 模型 


这 些 过 程 (以 及 $.2 和 5.3 节 里 的 许多 其 他 过 程 ) 里 都 使 用 了 下 面 过 程 ， 其 中 用 给 定 的 名 字 在 一 
部 给 定 的 机 器 里 查看 有 关 寄 存 器 的 包容 : | 


(define (get-register machine reg-name) 
((machine ’get-register) reg-name) ) 


eR 


5.2.2 汇编 程序 


这 一 汇编 程序 将 一 部 机 器 的 控制 器 表达 式 序列 翻译 为 与 之 对 应 的 机 妮 指 令 的 表 ， 每 条 指 
令 都 带 着 相应 的 执行 过 程 。 从 整体 上 看 ， 这 个 汇编 程序 很 像 我 们 在 第 4 章 里 研究 过 的 各 种 求 值 
器 一 一 它 有 一 个 输入 语言 (目前 情况 下 就 是 寄存 器 机 器 语言 )， 以 及 对 于 这 一 语言 里 的 每 个 类 
型 必须 执行 的 适当 动作 。 

为 每 条 指令 生成 一 个 执行 过 程 的 技术 ， 也 就 是 我 们 在 4.1.7 节 里 采用 的 ， 为 加 快 求 值 器 的 
速度 ， 把 分 析 工 作 与 运行 时 的 执行 动作 分 离 的 技术 。 正 如 在 第 4 章 已 经 看 到 过 的 ， 对 于 Scheme 
表达 式 的 大 部 分 的 有 用 分 析 ， 都 可 以 在 不 知道 变量 实际 值 的 情况 下 完成 。 与 此 类 似 ， 在 这 里 ， 
对 寄存 器 机 器 语言 表达 式 的 许多 有 用 分 析 ， 也 可 以 在 不 知道 机 器 寄存 器 的 实际 内 容 的 情况 下 
完成 。 举 例 来 说 ,我 们 可 以 用 指向 寄存 器 对 象 的 指针 代替 对 寄存 器 的 引用 ， 可 以 用 指向 标号 
所 指定 的 指令 序列 中 的 位 置 的 指针 代替 对 相应 标号 的 引用 。 

在 能 够 开始 生成 指令 执行 过 程 之 前 ， 这 个 汇编 程序 还 必须 知道 所 有 标号 的 引用 位 置 。 为 
此 它 首先 扫描 控制 器 的 正文 ， 从 指令 序列 中 分 辨 出 各 个 标号 。 在 扫描 这 一 正文 的 过 程 中 ， 汇 
编程 序 构造 起 一 个 指令 的 表 和 另 一 个 列表 ， 列 表 里 为 每 个 标号 关联 一 个 指 到 指令 表 里 的 指针 。 
汇编 程序 而 后 扩充 这 样 得 到 的 指令 表 ， 为 每 条 指令 插入 一 个 执行 过 程 。 

过 程 assemble 是 这 个 汇编 程序 的 主要 入 口 ， 它 以 一 个 控制 器 正文 和 相应 机 器 模型 作为 
参数 ， 返 回 存 储 在 模型 里 的 指令 序列 。assemble 调 用 extract-labels， 这 个 过 程 根据 所 
提供 的 控制 器 正文 构造 出 初始 的 指令 表 和 标号 列表 。extract~labels 的 第 二 个 参数 是 一 个 
过 程 ， 需 要 调用 它 去 处 理 上 面 得 到 的 结果 。 这 个 过 程 使 用 update-~insts! 生成 指令 执行 过 
程 ， 将 其 插入 指令 表 里 ， 并 返回 修改 之 后 的 表 。 


(define (assemble controller-text machine) 
(extract-labels controller-text 
(lambda (insts labels) 
({update-insts! insts labels machine) 


insts))) 


extract-labels 的 参数 是 一 个 表 text (也 就 是 控制 器 指令 表达 式 的 序列 ) 和 一 个 过 程 
receive。receive 将 被 用 两 个 值 调用 : (1) 一 个 指令 数据 结构 的 表 insts ， 其 中 每 个 指令 
数据 结构 包含 一 条 来 自 text 的 指令 ，(2) 一 个 名 字 为 1abe1ls 的 表格 ， 其 中 是 来 目 +ext 的 各 
个 标号 ， 它 们 都 关联 于 相应 标号 在 表 insts 里 的 位 置 。 
(define (extract-labels text receive) : 
(if (null? text) 
(receive °*() ‘()) 
{extract-labels (cdr text) 
{lambda (insts labels) 
(let ((next-inst (car text) )) 
(if (symbol? next-inst) 
(receive insts 
(cons (make-label-entry next-inst 
insts) 
labels) ) 
(receive (cons (make-instruction next-inst) 
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insts) 
labels))))))) 


extract-labelsh) LEDA eI Afitext 里 的 各 个 元 素 ， 逐 新 积累 起 insts Fil 
ljabels 。 如果 一 个 元 素 是 个 竹 号 (因此 就 是 一 个 标号 ), 它 就 将 适当 的 条 目 加 入 表格 labels ， 
否则 就 把 这 个 元 素 加 入 到 insts 表 里 全。 | 


update-insts! 修改 指令 表 ， 原 来 这 里 只 包含 指令 的 正文 ， 现 在 要 加 入 对 应 的 执行 过 程 : 
(define (update-insts! insts labels machine) 
(let ((pc (get-register machine ‘pc)) 
(flag (get-register machine ‘flag)) 
(stack {machine ‘stack) ) 
(ops (machine ‘operations))) 
(for-each 
(lambda (inst) 
(set-instruction-execution-proc! 
inst 
(make-execution-procedure 
(instruction-text inst) labels machine 
pc flag stack ops))) 
insts))) 


机 器 指令 的 数据 结构 也 就 是 指令 正文 和 对 应 的 执行 过 程 的 对 偶 。 在 extract-1abel1s 构 
造 这 些 指 令 时 ， 这 些 执行 过 程 还 不 能 用 。 它 们 是 后 来 由 update-insts! 插 入 的 。 
(define (make-instruction text) 
(cons text'’())) 


289 在 这 里 使 用 receive 过 程 ， 是 作为 一 种 有 效 地 返回 两 个 值 (labelsflinsts) 的 方式 ， 这 样 就 不 必 做 出 一 
个 复合 数据 结构 去 保存 它们 。 另 一 实现 方式 是 返回 这 两 个 值 的 序 对 : 
(define (extract-labels text) 
(if (null? text) 
(cons '(} ()) 
(let ((result (extract-labels (cdr text)))) 
(let ((insts (car result)) (labels (cdr result))) 
(let ((next-inst (car text))) 
{if (symbol? next-inst) 
(cons insts 
(cons (make-label-entry next-inst insts) labels) ) 
(cons (cons (make-instruction next-inst) insts) 


labels))))))) 
汇编 程序 应 该 采用 如 下 方式 调用 它 : 


(define (assemble controller-text machine) 
(let ((result (extract-labels controller-text) )) 
(let ({insts (car result)) (labels (cdr result))) 
(update-insts! insts labels machine) 


insts))) 


你 也 可 以 认为 ， 这 里 对 receive 的 使 用 展示 了 一 个 返回 多 个 值 的 优雅 方法 ， 或 者 简单 地 将 它 看 成 不 过 是 一 个 
程序 设计 技巧 。 向 receive 这 样 的 参数 被 作为 下 一 个 被 调用 过 程 ， 这 种 过 程 通常 称 为 “继续 ”过 程 。 请 回 亿 
一 下 ， 在 4.3.3 节 的 amb 求 值 器 里 实现 回溯 控制 结构 时 ， 使 用 的 也 是 这 种 继续 过 程 。 
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(define (instruction-text inst) 


(car inst)) 
(define (instruction-execution-proc inst) 


{cdr inst) ) 


(define (set-instruction~execution-proc! inst proc) 


(set-cdr! inst proc)) 
我 们 的 模拟 器 并 不 使 用 这 些 指令 正文 ， 但 还 是 把 它们 保存 在 这 里 。 将 指令 正文 留 到 排除 程序 
错误 时 ， 可 能 带 来 许多 方便 ( 见 练习 5.16)。 
标号 列表 里 的 元 素 是 序 对 : 


{define (make-label-entry label-name insts) 


(cons label~name insts) ) 


下 面 过 程 用 于 在 这 个 列表 里 查找 条 目 : 


(define (lookup-label labels label-name) 
{let ((val (assoc label-name labels))) 


(if val 
(cdr val) 
(error "Undefined label -- ASSEMBLE" label-name) ))) 
练习 5.8 下 面 寄 存 器 机 器 代码 有 歧义 ， 因 为 其 中 的 标号 here 有 不 止 一 个 定义 : 
start 


{goto (label here)) 
here 

{assign a (const 3)) 

(goto (label there) ) 
here 

‘(assign a (const 4)) 

(goto (label there)) 


there 
对 于 上 面 写 出 的 模拟 器 ， 当 控制 到 达 there 时 ， 寄 存 器 a 的 内 容 是 什么 ? 请 修改 过 程 
extract-labels, 使 汇编 程序 在 发 现 同一 标号 用 于 指明 两 个 不 同位 置 时 ， 能 发 出 一 个 错 
误 信 和 号。 
5.2.3 为 指令 生成 执行 过 程 


汇编 程序 调用 make-execution-procedure ， 为 一 条 指令 生成 一 个 执行 过 程 。 这 很 像 
4.1.7 节 里 求 值 器 中 的 analyze 过 程 。 这 一 过 程 也 基于 指令 的 类 型 ， 把 生成 适当 的 执行 过 程 的 
工作 分 派出 去 。 


(define (make-execution-procedure inst labels machine 
pe flag stack ops) 
(cond ((eq? (car inst) ‘assign) 
(make-assign inst machine labels ops pc)) 
( (eq? (car inst) ‘test) 
{make-test inst machine labels ops flag pc)) 
((eq? (car inst) ‘branch) 
(make-branch inst machine labels flag pc)) 


52 -A# ABNER 367 


((eq? (car inst) ‘goto) 
(make-goto inst machine labels pc)) 
((eq? (car inst) ‘save) 
(make-save inst machine stack pc) ) 
((eq? (car inst) restore) 
(make-restore inst machine stack pc)) 
((eq? (car inst) perform) 
(make-perform inst machine labels ops pc)) 
(else (error "Unknown instruction type -- ASSEMBLE" 
inst)))) 


对 于 这 个 寄存 器 机 器 语言 里 的 每 类 指令 ， 在 这 里 都 有 一 个 生成 器 ， 其 功能 就 是 构造 出 到 
当 的 执行 过 程 。 这 些 过 程 的 细节 由 相应 寄存 器 机 器 语言 里 每 条 具体 指令 的 语法 和 意义 确定 。 
我 们 采用 数据 抽象 ， 将 寄存 器 机 器 表达 式 的 语法 细节 与 通用 的 执行 机 制 隔离 开 ， 就 像 前 面 对 
4.1.2 节 的 求 值 器 所 采用 的 做 法 ， 这 里 用 一 些 语法 过 程 提取 出 一 条 指令 里 的 各 个 部 分 ， 并 对 号 
们 进行 分 类 。 
assign 指 令 
过 程 make-assign 人 处 理 assign 指 邻 : 
(define (make-assign inst machine labels operations pc) 
{let ((target 
(get-register machine (assign-reg-name inst))) 
(value-exp (assign-value-exp inst) ) ) 
(let ({value-proc 
(if (operation-exp? value-exp) 
(make-operation-exp 
value-exp machine labels operations) 
(make-primitive-exp 
(car value-exp) machine labels)))) 
(lambda () ; execution procedure for assign 
(set-contents! target (value-proc) ) 
(advance-pc pc))))) 


make-assign 用 了 几 个 选择 函数 ， 从 assign 指 令 里 提取 出 目标 寄存 器 的 名 字 〈 指 令 的 第 二 
个 元 素 ) 和 值 表 达 式 (形成 指令 里 剩余 部 分 的 表 ): 


(define (assign-reg-name assign-instruction) 


(cadr assign-instruction) ) 


(define (assign-value-exp assign-instruction) 


(cddr assign-instruction) ) 


get -register 用 寄存 器 名 的 名 字 去 查找 ， 产 生 对 应 的 目标 寄存 器 对 象 。 如 果 有 关 的 值 是 一 
个 操作 的 结果 ， 这 个 值 表达 式 就 被 送 给 make-operation-exP ， 否 则 就 送 给 make- 
primitive-exp。 这 些 过 程 (下 面 给 出 ) 还 要 进一步 分 析 值 表达 式 ， 并 为 它 生成 一 个 执行 
过 程 。 这 是 一 个 称 为 value-proc 的 无 参 过 程 ， 在 模拟 中 ， 当 需要 为 寄存 器 赋值 生成 实际 的 
值 时 就 会 调用 这 个 过 程 。 请 注意 ， 查 找 寄 存 器 名 字 和 分 析 值 表达 式 的 工作 ， 都 只 需 在 汇编 时 
做 一 次 ， 而 不 是 在 指令 模拟 时 每 次 做 。 这 样 将 能 节省 工作 ， 也 是 我 们 采用 执行 过 程 的 原因 。 
这 一 做 法 与 4.1.7 节 的 求 值 器 里 将 程序 分 析 工 作 从 执行 中 分 离 出 来 有 着 直接 的 对 应 。 


由 make-assign 返 回 的 结果 就 是 assign 指 令 的 执行 过 程 。 当 这 个 过 程 被 调用 时 (由 机 
器 模型 的 execute 过 程 调用 )， 它 将 用 执行 Yalue-proc 得 到 的 结果 设置 目标 寄存 融 的 内 容 。 
而 后 通过 运行 下 面 过 程 更 新 pc ， 使 之 指 疝 下 一 条 指令 


(define (advance-pc pc) 
(set-contents! pe (cdr (get-contents pc)))}) 


advance-pc 是 每 条 指令 的 正常 结束 操作 ， 除 了 branch 和 goto 之 外 。 


test 、branch 和 goto 指 令 

make-test 以 类 似 方式 处 理 test 指 令 。 它 提取 出 描述 了 需要 检测 的 条 件 的 表达 式 ， 关 
为 它 生 成 一 个 执行 过 程 。 在 模拟 时 ， 对 应 于 有 关 条 件 的 过 程 被 调用 ， 检 测 结 果 赋 给 ft1ag 寄 存 
器 ， 而 后 更 新 pc : 


(define (make-test inst machine labels operations flag pc) 
(let ((condition (test-condition inst) )) 
(if (operation-exp? condition) 
(let ((condition-proc 
(make-operation-~exp 
condition machine labels operations) ) ) 
(lambda () 
(set-contents! flag (condition-proc) ) 
(advance-pc pc))) 
(error "Bad TEST instruction -- ASSEMBLE" inst)))) 


(define (test-condition. test-instruction) 


(cdr test-instruction) ) 
branch 指 令 的 执行 过 程 检 查 ELag 寄 存 器 的 内 容 ， 或 者 是 将 pc 的 内 容 设置 为 分 支 的 目标 


(如 果 需 要 执行 分 支 ) ， 或 者 是 简单 地 更 新 Pc (如 果 不 要 分 支 )。 请 注意 ,一 条 branch 指 令 里 
所 指定 的 目标 必须 是 一 个 标号 ， make-branch 过 程 要 求 这 件 事 。 还 请 注意 标号 也 是 在 汇编 
时 查找 ， 而 不 是 在 模拟 branch 指 令 的 时 候 再 查找 。 
(define {make-branch inst machine labels flag pc) 
(let ((dest (branch-dest inst) ) ) 
(if (label-exp? dest) 
(let ((insts 
(lookup-label labels (label-exp-label dest) ))) 
(lambda () | 
(if (get-contents flag) 
(set-contents! pc insts) 


(advance-pce pc)))) 
(error "Bad BRANCH instruction -- ASSEMBLE" inst)))) 


(define (branch-dest branch-instruction) 


(cadr branch-instruction) ) 
goto 指 令 的 情况 与 分 支 类 似 ， 这 里 的 目标 可 以 用 一 个 标号 或 者 一 个 寄存 器 描述 ， 而 且 也 
不 需要 检测 条 件 。 这 里 总 将 Pc 设置 为 新 的 目标 位 置 。 


(define (make-goto inst machine labels pc) 
(let ((dest (goto-dest inst))) 
(cond ({label-exp? dest) 


(let ((insts 
(lookup-label labels 
(label-exp-label dest)))) 
{lambda () (set-contents! pc insts)))) 
(({register-exp? dest) 
(let ((reg 
(get-register machine 
(register-exp-reg dest)))) 


(lambda () 
(set-contents! pc (get-contents reg)))})) 
(else (error "Bad GOTO instruction -- ASSEMBLE" 
inst))))) 


(define (goto-dest goto-instruction) 


(cadr goto-instruction) ) 


其 他 指令 
堆栈 指令 save 和 restore 简 单 地 对 指定 寄存 器 使 用 堆栈 ， 并且 更 新 pc : 


{define (make-save inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () l 
(push stack (get-contents reg)) 
(advance-pc pc)))) 


(define (make-restore inst machine stack pc) 
(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 
(lambda () 
(set-contents! reg (pop stack)) 
(advance-pc pc)))) 


(define (stack-inst-reg-name stack-instruction) 


(cadr stack-instruction) ) 
最 后 一 类 指令 由 make-perform 处 理 ， 它 为 需要 执行 的 动作 生成 有 关 执 行 过 程 。 在 模拟 
时 执行 相应 的 动作 过 程 并 更 新 pC。 | 


(define (make-perform inst machine labels operations pc) 
(let ((action (perform-action inst) )) 
(if (operation-exp? action) 
(let ({action-proc 
(make-operation-exp 
action machine labels operations) ) ) ) 
(lambda ({) 
(action-proc) 
(advance-pc pc))) 
(error “Bad PERFORM instruction -- ASSEMBLE" inst)))}) 


(define (perform-action inst) (cdr inst) ) 


子 表 达 式 的 执行 过 程 
在 为 一 个 寄存 器 赋值 (make-assign )， 或 者 为 其 他 操作 提供 输入 时 (make-operation- 
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exp， 见 下 )， 可 能 需要 使 用 一 个 reg、labeli 或 者 const 表 达 式 的 值 。 下 和 面 过 程 为 这 些 表达 
式 生 成 出 一 个 执行 过 程 ， 在 模拟 中 产生 出 这 些 子 表 达 式 的 值 : 
(define (make-primitive-exp exp machine labels) 
(cond ((constant-exp? exp) 
{let ((c (constant-exp-value exp) )) 
(lambda () c))) 
((label-exp? exp) _ 
(let ((insts 
{lookup-label labels 
({label-exp-label exp)))) 
(lambda () insts))) 
((register-exp? exp) 
(let ((r (get-register machine 
(register-exp-reg exp)))) 
{lambda () (get-contents r)))) 
{else 
(error "Unknown expression type -- ASSEMBLE" exp)))) 


reg、1Labe1L 和 const 表 达 式 的 语 靶 形式 由 下 面 过 程 确定 : 

(define (register-exp? exp) (tagged-list? exp reg)) 

(define (register-exp-reg exp) (cadr exp)) 

(define (constant-exp? exp) (tagged-list? exp ‘const)) 

(define (constant-exp-value exp) (cadr exp) ) 

(define (label-exp? exp) (tagged-list? exp ‘label) ) 

(define (label-exp-label exp) (cadr exp)) 

在 assign、perform 和 test 指 令 里 , 可 能 需要 将 一 个 机 器 操作 (由 一 个 op 表达 式 描 述 ) 
的 应 用 到 某 些 操作 对 象 (由 reg 和 const 表 达 式 描述 )。 下 面 过 程 为 一 个 “操作 表达 式 ”( 一 
个 包含 着 一 条 指令 里 的 操作 和 操作 对 象 表达 式 的 表 ) 生成 一 个 执行 过 程 ; 

(define (make-operation-exp exp machine labels operations) 

(let ((op (lookup-prim (operation-exp-op exp) operations) ) 
(aprocs 
(map (lambda (e) 
(make-primitive-exp e machine labels) ) 
(operation-exp-operands exp)))) 


(lambda {) 
(apply op (map (lambda (p) (p)) aprocs))))) 


操作 表达 式 的 语法 由 下 面 过 程 确 定 : 
(define (operation-exp? exp) 
(and (pair? exp) (tagged-list? (car exp) ‘op))) 


(define (operation-exp-op operation-exp) 
(cadr (car operation-exp) ) ) 


(define (operation-exp-operands operation-exp) 
(cdr operation-exp) ) 


可 以 看 到 ， 这 里 对 于 操作 表达 式 的 处 理 很 像 4.1.7 节 的 求 值 器 里 的 analyze~application 过 各 
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里 对 过 程 应 用 的 处 理 。 我 们 要 为 每 个 操作 对 象 生成 一 个 执行 过 程 。 模 拟 时 将 调用 这 些 对 应 于 操 
作对 象 的 过 程 ， 得 到 它们 的 值 ， 而 后 将 模拟 有 关 操 作 的 Scheme 过 程 应 用 于 这 些 值 。 找 出 模拟 过 
程 的 方式 ， 就 是 用 操作 的 名 字 到 机 器 的 操作 表格 里 查找 : 
(define (lookup-prim symbol operations) 
(let ((val (assoc symbol operations) )) 
{if val 
(cadr val) 
(error "Unknown operation -- ASSEMBLE" symbol) ) ) ) 


练习 5.9 在 上 面 对 于 机 器 操作 的 处 理 中 ， 除 了 允许 它们 对 常量 和 寄存 器 的 内 容 进 行 操 作 
外 ， 还 允许 它们 处 理 标 号 。 请 修改 上 述 表 达 式 处 理 过 程 ， 加 上 一 个 条 件 ， 要 求 这 些 操作 只 能 
用 于 寄存 器 和 常量。 

练习 5.10 ”请 为 寄存 器 机 器 指令 设计 一 种 新 的 语法 形式 ， 而 后 修改 这 个 模拟 器 ， 使 模拟 
器 能 采用 你 的 新 语法 。 你 能 实现 你 的 新 语法 ， 而 且 在 修改 中 除了 语法 过 程 之 外 不 修改 本 十 的 
模拟 器 里 的 任何 部 分 吗 ? 

练习 5.11 ”我们 在 5.1.4 节 引入 save 和 restore 时 ， 并 没有 说 明 如 果 试 图 恢复 一 个 并 不 是 
以 前 最 后 保存 的 寄存 器 ， 那 会 出 现 什么 情况 。 例 如 下 面 的 序列 : 


(save y) 
(save xX) 
(restore y) 


对 于 这 里 zestore 的 意义 有 几 种 合理 的 可 能 性 : 

a) (restore y) 把 最 后 存 入 堆栈 里 的 值 放 入 y， 无 论 这 个 值 原来 来 自 哪 个 寄存 器。 这 
也 是 上 面 模拟 器 中 的 行为 方式 。 请 说 明 如 何 利 用 这 种 方式 的 优点 ， 从 5.1.4 节 (参见 图 5-12) 
的 斐 波 那 契机 器 中 删 去 一 条 指令 。 

b) (restore y) 把 最 后 存 人 堆栈 里 的 值 放 入 Y， 但 只 是 在 这 个 值 原 来 确实 来 自 y 的 情况 
下 ， 否 则 就 发 出 一 个 错误 销 息 。 请 修改 模拟 器 ， 使 之 按 这 种 方式 活动 。 你 需要 修改 save ， 使 
它 不 但 把 值 存 人 堆栈 ， 还 要 存 入 寄存 器 的 名 字 。 

c) (restore y) 把 来 自 y 的 最 后 存 人 堆栈 里 的 值 放 入 Yy ， 而 不 管 在 保存 yY 之 后 又 有 了 哪些 
寄存 器 的 值 存 人 或 者 恢复 。 请 修改 模拟 器 ， 使 它 能 按照 这 种 方式 活动 。 你 将 需要 为 每 个 寄存 
器 关联 一 个 堆栈 ， 还 需要 修改 initialize-stack 操 作 ， 让 它 初 始 化 所 有 的 寄 仔 兹 堆栈 。 

练习 5.12 ”这 个 模拟 器 可 用 于 帮助 我 们 确定 为 实现 一 个 采用 给 定 控制 器 的 机 器 所 需要 的 
数据 通路 。 请 扩充 这 个 汇编 程序 ， 将 下 面 信息 存储 到 机 器 模型 里 ; 

。 一 个 指令 的 表 ， 其 中 删除 了 所 有 的 重复 ， 并 按照 指令 的 类 型 保存 (assign、goto 等 

等 ) ， 

。 一 个 用 于 保存 入 口 点 的 寄存 器 的 表 (其 中 没有 重复 )， 这 些 入 口 点 都 有 9oto 指 令 引 用 ， 

。 一 个 使 用 了 save 或 者 restore 的 寄存 器 的 表 (其 中 没有 重复 ) ， 

。 对 于 每 个 寄存 器 ， 一 个 对 它 的 赋值 来 源 的 表 (其 中 没有 重复 )。 例 如 ， 对 于 图 5-11 的 阶 
乘机 器 ,寄存 器 val 的 赋值 来 源 包括 (const 1) 和 ((op *) (reg n) (reg 
val)). 

请 扩充 有 关机 器 的 消息 传递 界面 ， 提 供 对 这 些 新 信息 的 访问 机 制 。 为 了 测试 你 的 分 析 器 ， 请 
定义 图 $-12 的 斐 波 那 契 机 器 ， 并 检查 所 列 出 的 各 个 表 。 
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练习 5.13 ”请 修改 上 面 的 模拟 器 ， 使 它 可 以 直接 利用 控制 器 序列 去 确定 机 器 里 需要 哪些 
寄存 器 ， 不 必 另 将 一 个 寄存 器 表 作 为 nake-machine 的 参数 ， 不 采用 在 make-machine 里 预 
先 分 配 这 些 寄存 器 的 方式 ， 你 可 以 在 汇编 指令 的 过 程 中 ， 第 一 次 遇 到 一 个 寄存 器 时 完成 它 的 
分 配 。 | 


5.2.4 监视 机 器 执行 


模拟 的 用 途 不 仅 在 于 可 用 于 验证 所 提出 的 机 器 的 正确 性 ， 还 能 帮助 度量 机 器 的 性 能 。 举 
例 说 ， 我 们 可 以 在 自己 的 模拟 程序 里 安装 一 个 “测量 仪器 ”， 记 录 在 计算 中 使 用 堆栈 操作 的 次 
数 。 要 做 好 这 件 事 ， 我 们 应 该 修改 被 模拟 的 堆栈 ， 记 录 将 寄存 器 保存 到 堆栈 里 的 次 数 和 堆栈 
达到 的 最 大 深度 的 轨迹 ， 如 下 面 所 示 。 我 们 还 需要 在 基本 机 器 模型 里 增加 一 个 操作 ， 用 于 对 
应 对 于 堆栈 的 统计 数据 ， 并 在 make-new-machine 里 将 the-ops 初 始 化 为 : 


(list (list ’initialize-stack 
(lambda () (stack “initialize) )) 
(list ’print-stack-statistics 
(lambda () (stack ’print-statistics)))) 


这 里 是 make-Sstackx 的 新 定义 : 
(define (make-stack) 
(let ((s °()) 
(number-pushes 0) 
(max-depth 0) 
(current-—depth 0) ) 
(define (push x) 
(set! s (cons x s)) 
(set! number-pushes (+ 1 number-pushes) ) 
(set! current-depth (+ 1 current-depth) ) 
(set! max-depth (max current-depth max-depth) ) ) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
(set! current-depth (- current-depth 1)) 


top))) 
(define (initialize) 
(set! s ()) 


(set! number-pushes 0) 
(set! max-depth 0) 
(set! current-depth 0) 
*done ) 
(define (print-statistics) 
(newline) 
(display (list ’total-pushes “= number-pushes 
‘maximum-depth °= max-depth) )) 
(define (dispatch message) 
(cond ((eq? message ’push) push) 
( (eq? message ‘pop) (pop)) 
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( (eq? message ‘initialize) (initialize) ) 
( (eq? message ‘print-statistics) 
(print-statistics) ) 
(else 
(error "Unknown request -- STACK" message) ))) 
dispatch) ) 
练习 5.15 到 5.19 描 述 了 其 他 一 些 在 监视 和 排除 程序 错误 方面 很 有 用 的 特征 ， 可 以 考虑 将 它们 加 
入 寄存 器 机 器 模拟 器 中 。 
练习 >.14 请 度量 由 图 5-11 所 示 的 阶乘 机 器 对 各 种 小 的 n 值 计算 nr! 时， 所 执行 的 堆栈 压 入 
次 数 和 最 大 这 度 。 根 据 你 得 到 的 数据 确定 有 关 的 公式 ， 对 于 任何 上 >1， 基 于 ?描述 压 人 操作 的 
次 数 和 在 计算 n! 时 的 最 大 堆栈 深 度 。 请 注意 ， 这 两 个 公式 都 是 n 的 线性 函数 ， 因 此 请 设法 确定 
其 中 的 两 个 常数 。 为 了 打印 统计 数据 ， 你 将 需要 扩充 这 一 阶乘 机 器 ， 增 加 初始 化 堆栈 和 打 EEh 
统计 结果 的 指令 。 你 还 可 能 想 修改 有 关机 器 ， 使 它 能 反复 地 将 值 谈 和 人 4， 计算 其 阶乘 并 打印 结 
果 (就 像 我 们 在 图 $-4 里 对 GCD 机 器 所 做 的 那样 ) ， 使 你 以 后 再 也 不 必 反 复 去 调用 get- 
register-contents, set-register-contents! ffstart, 
练习 5.15 给 寄存 器 机 器 模拟 器 增加 指令 计数 功能 。 也 就 是 说 ， 让 这 一 机 器 模型 维持 所 
执行 指令 的 数目 。 扩 充 这 一 机 器 模型 ， 使 它 能 接受 一 个 新 消息 ， 打 印 出 当时 的 指令 计数 值 并 
将 计数 器 重新 设置 为 0。 | 
练习 5.16 ”扩充 上 述 模拟 器 ， 提 供 指 令 追 踪 功 能 。 也 就 是 说 ， 在 每 条 指令 被 执行 之 前 ， 
让 模拟 器 打印 出 这 一 指令 的 正文 。 让 扩充 后 的 机 咒 模 型 能 接受 trace-on 和 trace-off 消 电 ， 
并 能 相应 地 打开 或 者 关闭 进 踪 功 能 。 
练习 5.17 ”扩充 练习 5.16 的 指令 追踪 功能 ， 使 得 在 打印 一 条 指令 之 前 ， 模 拟 器 先 打印 出 在 
控制 序列 里 正好 位 于 这 条 指令 之 前 的 标号 。 在 做 这 件 事情 时 ， 请 小 心地 保证 它 不 会 干扰 了 指 
令 计数 功能 (练习 3.15 )。 你 需要 让 模拟 器 保存 必要 的 标号 信忠。 
练习 5.18 ”请 修改 第 53.2.1 节 里 的 make-register 过 程 ， 使 寄存 右 可 以 被 追 足 AIT a 
应 该 能 接受 打开 和 关闭 追踪 的 消息 。 当 一 个 寄存 器 被 追踪 时 ， 一 旦 给 这 个 寄存 器 赋值 BS 
打印 出 寄存 器 的 名 字 ， 寄 存 器 原来 的 内 容 和 当时 将 要 赋值 的 新 内 容 。 请 扩充 机 器 模型 的 务 面 ， 
以 允许 你 打开 或 者 关闭 对 任何 特定 寄存 器 的 但 踪 。 
练习 5.19 Alyssa P. Hacker 希 望 在 模拟 器 里 有 断 点 功能 ， 以 帮助 她 排除 机 如 设计 中 的 错 
误 。 你 现在 被 雇佣 来 为 她 安装 这 种 特征 。 她 希 里 能 够 描述 控制 序列 里 的 任何 位 于 ， 使 模拟 大 
能 停止 在 那里 ， 并 使 她 能 够 检测 机 器 的 状态 。 你 需要 实现 一 个 过 程 : 
(set-breakpoint <machine> <label> <n>) 
它 将 在 第 "条 指令 之 前 的 给 定 标号 后 面 设置 一 个 断 点 。 例 如 ， 
(set-breakpoint gcd-machine ‘test-b 4) 
将 在 9cd-machine 里 给 寄存 器 3 赋值 前 安装 一 个 断 点 。 当 模拟 器 到 达 这 个 断 点 时 ， 它 应 打印 
那个 标号 和 断 点 的 偏 移 量 ， 并 停止 指令 的 执行 。 这 样 Alyssa 就 可 以 用 get-register- 
contents 和 set-register-contents! 去 操作 被 模拟 机 器 的 状态 。 此 后 她 应 该 能 让 机 将 
继续 执行 


(proceed-machine <machine>) 


她 还 应 该 可 以 用 下 面 方式 删除 某 个 特定 断 所 
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(cancel-breakpoint <machine> <label> <n>) 


Be FAP 5 ABR Ba PBT 


(cancel-all-breakpoints <machine>) 


5.3 存储 分 配 和 废料 收集 


在 5.4 节 里 ， 我 们 将 要 说 明 如 何 把 一 个 Scheme 求 值 器 实现 为 一 部 寄存 器 机 器 。 为 了 简化 这 
一 讨论 ， 下 面 将 假定 在 我 们 的 寄存 器 机 器 里 可 以 安装 好 一 个 表 结 构 存 储 器 ， 其 中 对 于 表 结 构 
数据 的 基本 操作 都 是 机 器 的 基本 过 程 。 当 我 们 需要 集中 精力 考虑 Scheme 解释 器 里 的 控制 机 制 
时 ， 假 定 存 在 这 样 一 个 存储 器 是 一 种 很 有 用 的 抽象 ， 但 这 并 没有 反应 当前 计算 机 中 实际 的 基 
本 数据 操作 的 情况 。 为 了 得 到 有 关 一 个 Lisp 系 统 如 何 工 作 的 一 种 更 完整 的 认识 ， 我 们 还 必须 
去 考察 表 结 构 可 以 怎样 以 一 种 与 常规 的 计算 机 存储 器 相 容 的 方式 表示 。 

有 关 表 结构 的 实现 需要 考虑 两 方面 问题 。 首 先是 一 个 纯粹 的 表示 问题 ， 如 何 去 表 示 Lisp 
序 对 的 “盒子 和 指针 ”结构 ， 其 中 只 使 用 到 典型 计算 机 存储 器 的 存储 单元 和 寻 址 能 力 。 第 二 
个 问题 ， 是 需要 关心 如 何 将 对 存储 的 管理 作为 一 个 计算 过 程 。Lisp 系 统 的 操作 强烈 地 依赖 于 
连续 创建 新 数据 对 象 的 能 力 ， 包 括 那些 被 解释 的 Lisp 过 程 里 显 式 创建 的 各 种 对 象 ， 以 及 由 解 
释 器 本 身 创建 的 对 象 ， 例 如 环境 和 参数 表 等 等 。 如 果 计 算 机 里 有 数量 无 穷 的 可 以 快速 寻 址 的 
存储 器 ， 那 么 连续 不 断 地 创建 新 对 象 就 不 会 有 问题 。 但 是 ， 实 际 的 计算 机 存储 器 只 有 有 穷 的 
HK (实在 可 惜 )。 因 此 Lisp 系统 需要 提供 一 种 自动 存储 分 配 功 能 ， 以 支撑 一 种 无 穷 存 储 器 的 
假象 。 当 一 个 数据 对 象 不 再 需要 时 ， 分 配给 它 的 存储 就 自动 回收 ， 并 可 用 于 构造 新 的 数据 对 
农 。 存 在 着 多 种 能 提供 这 样 的 自动 存储 分 配 的 技术 。 我 们 将 要 在 这 一 节 里 讨论 的 方法 称 为 度 
料 收集 。 


5.3.1 将 存储 看 作 同 量 


常规 计算 机 的 存储 器 可 以 看 作 是 一 串 排 列 整齐 的 小 隔 间 ， 每 个 小 隔 间 里 可 以 保存 一 点 信 
息 。 这 里 的 每 个 小 隔 间 有 一 个 具有 了 唯一 性 的 名 字 ， 称 为 它 的 地 址 或 者 位 置 。 典 型 的 存储 共 系 
统 提 供 了 两 个 基本 操作 ， 一 个 能 取出 保存 在 一 个 特定 位 置 的 数据 ， 另 一 个 能 将 新 的 数据 赋 给 
指定 的 位 置 。 我 们 可 以 做 存储 器 地 址 的 增 量 操作 ， 以 支持 对 某 一 组 小 隔 间 的 顺序 访问 。 更 一 
般 的 情况 是 ， 许 多 重要 的 数据 操作 都 要 求 将 存储 器 地 址 也 作为 数据 来 看 待 和 处 理 ， 以 便 可 以 
将 地 址 保存 到 存储 位 置 里 ， 并 能 在 机 器 的 寄存 器 里 对 它们 做 各 种 操作 。 表 结构 的 表示 就 是 这 
种 地 址 算术 的 一 个 具体 应 用 。 
为 了 模拟 计算 机 的 存储 器 ， 我 们 采用 一 种 新 的 数据 结构 ， 称 为 向 量 。 抽 象 地 看 ， 一 个 辣 
量 也 是 一 个 复合 数据 对 象 ， 其 中 各 个 元 素 都 可 以 通过 一 个 整数 下 标 访问 ， 这 种 访问 所 需 的 时 
间 量 与 具体 下 标 无 关 ”。 为 描述 存储 器 操作 ， 我 们 用 Scheme FAPI AIER KER i 过 程 : 
。 (vector-ref <vector> <n>) i (Gl fa] Be BRP ICH. 
e (vector-set! <vector> <n> <value>) 将 向 量 里 的 第 n 个 元 素 设 置 为 指定 值 。 
举例 说 ， 如 果 V 是 一 个 向 量 ， 那 么 ，(Vector-ref v 5) 将 取得 向 量 v 里 的 第 ?个 元 素 ， 而 


290 我 们 也 可 以 将 存储 器 表示 为 数据 项 的 表 。 但 是 这 样 做 时 ， 访 问 时 间 就 不 会 与 下 标 无 关 了 ， 因 为 要 访问 其 中 的 
第 "个 元 素 需 要 做 ?一 1 次 cdr 操作 。 
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(vector-set! v 5 7) 把 向 量 v 里 的 第 5 个 元 素 修 改 为 7。”! 对 于 计算 机 存储 器 而 言 ， 这 种 
访问 可 以 通过 地 址 算术 实现 ， 其 中 采用 描述 一 个 向 量 在 存储 器 里 的 开始 位 置 的 基 址 加 上 一 个 
下 标 ， 这 种 下 标 描述 的 是 向 量 里 某 个 特定 元 素 的 偏 移 量 。 


Lisp 数 据 的 表示 

我 们 可 以 用 向 量 实现 表 结 构 存 储 器 所 需 的 基本 序 对 结构 。 让 我 们 设想 计算 机 的 存储 器 被 
分 成 了 两 个 向 量 , the-cars 和 the-cdrs 。 这 时 我 们 就 可 以 采用 下 面 方式 表示 表 结 构 了: 
指向 序 对 的 指针 就 是 到 这 两 个 向 量 的 下 标 ， 一 个 序 对 的 car 就 是 向 量 the~cars 里 共有 指定 
下 标的 项 ， 该 序 对 的 cdr 部 分 就 是 向 量 the-cdrs 里 具有 指定 下 标的 项 。 我 们 还 需要 为 那些 
不 是 序 对 的 对 象 ( 例 如 数 和 符号 ) 确定 表示 方式 ， 需 要 有 一 种 方式 来 区 分 是 这 种 数据 还 是 那 
种 数据 。 完 成 这 些 事 情 的 方法 很 多 ， 但 它们 都 可 以 归结 为 采用 某 种 带 类 型 的 指针 ， 也 就 是 说 ， 
现在 需要 扩充 指针 的 概念 ， 使 之 包含 有 关 数 据 类 型 的 信息 ”。 数 据 类 型 使 系统 能 辨别 是 指 问 
序 对 的 指针 ( 它 包括 “ 序 对 ”数据 类 型 和 一 个 到 存储 器 向 量 的 下 标 )， 还 是 指向 其 他 种 类 的 数 
所 的 指针 ( 它 包 含有 关 某 种 数据 类 型 的 信息 和 某 些 用 于 表示 该 类 型 的 数据 的 其 他 东西 )。 认 为 
两 个 数据 对 象 是 同一 个 东西 (eq?) 的 条 件 就 是 它们 的 指针 相同 汪 。 图 5-14 显 示 的 是 采用 这 种 
方法 表示 表 ((1 2) 3 4) 的 情况 ， 这 个 表 的 盒子 和 指针 表示 也 显示 在 图 中 。 图 中 用 字母 前 
组 标明 类 型 信息 。 这 样 ， 指 向 下 标 为 5 的 序 对 的 指针 标的 是 pP5 ， 空 表 用 指针 e0 表 示 ， 指 站 数 4 
的 指针 标的 是 用 n4 。 在 盒子 和 指针 图 里 ， 我 们 在 每 个 序 对 的 左下 方 标 了 一 个 向 量 下 标 ， 表 示 
这 个 序 对 的 car 和 ”cdr 存储 的 地 方 。 在 the-cars 和 the-cdrs 里 空白 的 地 方 可 能 保存 了 其 
他 数据 结构 的 序 对 (在 这 里 不 关心 它们 )。 


(1 2) 3 4 — o| e Eiken eli 
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Index 0 1 2 3 4 5 6 7 8 


the-cars 





the-cdrs 


图 $-14 # ((1 2) 3 4) MHRA MMF ia RAM 


21 为 完整 起 见 ， 我 们 还 要 描述 一 个 构造 向 量 的 make-vector ME, HEARN AB, Ri 只 是 使 用 向 量 去 
模拟 计算 机 存储 器 的 固定 划分 情况 。 | 

292 这 与 我 们 在 第 2 章 为 处 理 通 用 操作 而 引进 的 “ 带 标志 数据 ”的 思想 完全 一 样 。 当 然 ， 在 这 里 的 数 据 类 型 位 于 
基本 的 机 器 层面 上 ， 而 不 是 在 表 的 基础 上 构造 出 来 的 。 

293 类 型 信息 可 以 采用 各 种 方式 编码 ， 具 体 做 法 依赖 于 Lisp 系统 的 实现 所 在 的 机 器 细 市 。 Lisp 程 序 执行 的 效率 在 
很 大 程度 上 依赖 于 所 做 出 的 这 种 选择 有 多 么 聪明 ， 但 是 ， 想 把 好 的 选择 形式 化 为 一 般 性 的 设计 原则 却 非常 困 
难 。 实 现 带 类 型 指针 的 最 直接 方式 是 在 每 个 指针 里 都 分 配 固定 的 一 组 二 进 制 位 作为 类 一 MR, 用 于 做 类 型 的 编 
码 。 在 设计 这 样 的 表示 上 时， 必须 处 理 的 重要 问题 包括 下 面 这 些 : 表示 类 型 需要 多少 个 二 进 制 位 ? 向 量 的 下 标 
必须 有 多 大 ?用 于 对 指针 的 类 型 域 操作 的 基本 机 器 指令 的 效率 如 何 ? 有 些 机 器 为 有 效 操作 类 型 域 提 供 了 特殊 
的 硬件 ， 这 种 机 器 也 被 称 为 是 带 标志 体系 结构 的 机 器 。 


fale] 一 个 数值 的 指针 ， 例 如 n4 ， 也 完全 可 能 同时 包含 着 指明 数值 对 象 的 类 型 信息 以 及 数 4 
的 表示 本 身 “。 如 果 需 要 处 理 的 数值 太 大 ， 无 法 在 固定 大 小 的 指针 空间 里 表示 ， 可 以 用 一 个 
大 数 数据 类 型 ， 此 时 就 是 让 指针 指向 一 个 表 ， 在 其 中 存储 这 个 大 数 里 的 各 个 部 分 ”。 

一 个 符号 也 可 以 表示 为 一 个 带 类 型 的 指针 ， 它 指 问 一 个 字符 序列 ， 这 个 字符 序列 形成 了 
该 人 符 己 的 输出 表示 形式 。 这 一 序列 是 由 Lisp 读 入 程序 在 输入 时 第 一 次 遇 到 这 一 字符 序列 时 构 
造 起 来 的 。 因 为 我 们 名 望 间 一 个 符号 的 两 个 实例 被 eq? 认 定 为 “同一 个 ”符号 ， 而 希望 eq? 只 
是 简单 地 检测 指针 相等 ， 因 此 我 们 就 必须 保证 ， 当 读 和 程序 两 次 看 到 同一 个 符号 时 ， 它 一 定 
能 用 同一 个 指针 〈 指 同 相 应 的 字符 序列 ) 表示 这 两 个 出 现 。 为 了 做 到 这 一 上 扣 ， 读 入 程序 一 直 
维护 着 它 所 过 到 的 所 有 符号 的 一 个 表格 ， 按 照 传统 ， 这 称 为 对 象 表 (obarray), Mik AAA 
到 了 一 个 字符 串 ， 并 考 虚 据 此 构造 一 个 符号 时 ， 它 就 会 去 检查 对 象 表 ， 看 看 前 面 是 否 已 经 看 
到 过 同样 的 字符 串 。 如 果 前 面 没 看 到 过 ， 它 就 用 这 一 字符 串 构 造 出 一 个 新 符号 〈 指 回 新 的 字 
符 序 列 的 带 类 型 指针 ) ， 并 将 这 个 指针 加 入 对 象 表 里 。 如 果 读 入 程序 已 经 看 到 过 这 个 字符 串 ， 
它 就 直接 返回 保存 在 对 象 表 里 的 符号 指针 。 将 字符 串 用 这 种 唯一 指针 取代 的 过 程 称 为 加 入 
(interning) 一 个 他 号 。 


AR PRE RISE 

有 了 上 面 的 表示 方式 ， 我 们 就 可 以 将 寄存 器 机 器 里 的 各 个 “基本 ” 表 操 作 代 换 为 一 个 或 
者 几 个 基本 向 量 操 作 了 。 下 面 将 使 用 两 个 寄存 器 the~cars 和 the-cdrs， 用 它们 标识 与 之 
对 应 的 内 存 向 量 ， 假 定 vector-ref 和 vector-set! 是 可 以 使 用 的 林 本 向量 操作 。 我 们 还 


要 假定 有 对 指针 的 算术 操作 (增加 一 个 指针 的 值 ， 用 一 个 序 对 的 指针 作为 同 量 的 下 标 ， 或 者 
加 起 两 个 数 }， 它 们 都 将 自动 地 应 用 到 带 类 型 指针 的 下 标 部 分 。 

举例 说 ， 我 们 可 以 让 寄存 器 机 器 支持 下 面 的 指令 : 

(assign <reg,> (op car) (reg <reg,>)) 

(assign <reg,> (op cdr) (reg <reg.>)) 
如 果 我 们 分 别 将 它们 实现 为 : 

(assign <reg,> (op vector-ref) (reg the-cars) (reg <reg,>)) 


(assign <reg,> (op vector-ref) (reg the-cdrs) (reg <reg>)) 


(perform (op set-car!)} (reg <reg,;>) (reg <reg2>)) 

(perform (op set-cdr!) (reg <reg,>) (reg <reg,>)) 
将 实现 为 

(perform 


(op vector-set!) (reg the-cars) (reg <reg,>) (reg <reg.>)) 


204 有 关 数 值 如 何 表 示 的 决定 ， 也 确定 了 我 们 能 否 用 eq? ( 它 检 测 指针 的 相等 ) 检测 两 个 数值 的 相等 SE. MR 
指针 里 包含 的 是 数值 本 身 ， 那 么 相等 的 数值 就 会 有 相同 的 指针 值 。 但 是 如 果 指 针 里 包含 的 是 保存 数 的 位 置 的 
下 标 ， 那 么 ， 要 想 保 证 相等 的 数 也 具有 相同 的 指针 ， 我 们 就 需要 小 心安 排 ， 不 能 让 同一 个 数 存 人 多 个 位 置 
里 。 

295 这 就 像 是 将 一 个 数 写成 一 个 数字 的 序列 ， 除 了 这 里 的 每 个 “数字 ”有 所 不 同 之 外 ， 它 的 取 值 可 以 是 位 于 0 到 
某 个 可 能 保存 在 一 个 指针 里 的 最 大 的 数 之 间 的 一 个 值 。 


SS ARR RR 


(perform 
(op vector-~set!) (reg the-cdrs) (reg <reg,>) (reg <reg,>)) 


执行 cons 时 需要 分 配 一 个 朵 置 未 用 的 下 标 ， 将 cons 的 参数 存 人 向 量 the-cars 和 the- 
cdrs 里 由 这 个 下 标 确 定 的 位 置 。 我 们 还 要 假定 有 一 个 特殊 的 寄存 器 Ezee， 它 保存 着 一 个 序 
对 指针 ， 总 是 指 回 下 一 个 可 用 下 标 ， 而 且 我 们 可 以 增加 这 一 指针 的 下 标 部 分 ， 以 便 找 到 下 一 
个 自由 的 位 置 “”。 举 例 说 ， 指 令 : 


(assign <reg,> (op cons) (reg <reg,>)} (reg <reg,;>)) 


cP Ta AY [al Br a PE Se BY’ : 
(perform 
(op vector-set!) (reg the-cars) (reg free) (reg <reg,>)) 
(perform 
(op vector-set!) (reg the-cdrs) {reg free) (reg <reg;>)) 


(assign <reg,> (reg free) ) 
{assign free (op +) (reg free) (const 1)) 


操作 eg ? 


(op eq?) (reg <re8gli>) (reg <reg2> ) 


简单 检测 寄存 器 的 所 有 域 是 否 相 等 ， 而 像 pair? 、nu11? 、symbo1? 和 number? 一 类 谓词 都 
只 检测 指针 的 类 型 域 。 i 


堆栈 的 实现 

虽然 我 们 的 寄存 器 机 器 里 使 用 了 堆栈 ,但 在 这 里 却 不 需要 做 任何 特殊 事情 ， 因 为 堆栈 可 
以 用 表 来 模拟 。 堆 栈 可 以 是 一 个 用 于 保存 值 的 表 ， 由 一 个 特定 寄存 器 the-stack 指 向 。 这 样 ， 
(save <reg>) 就 可 以 实现 为 : 

(assign the~stack (op cons) (reg <reg>) (reg the-stack) ) ) 
类 似 地 ，(restore <reg>) 可 以 实现 为 : 

{assign <reg> (op car) (reg the-stack)) 

(assign the~-stack (op cdr) (reg the-stack) ) 
而 (perform (op initialize-stack)) 可 以 实现 为 : 


{assign the~stack (const ())) 


这 些 操作 都 可 以 进一步 基于 上 面 给 出 的 向 量 操作 给 出 解释 。 在 常规 计算 机 体系 结构 里 ， 堆 栈 
另行 分 配 为 一 个 单独 的 向 量 常 有 很 大 优越 性 。 采 用 这 种 做 法 ， 对 于 堆栈 的 压 人 和 弹出 操作 都 
可 以 通过 增加 或 者 减少 向 量 下 标的 方式 实现 。 

练习 5.20 ”请 画 出 由 下 面 表达 式 产生 的 表 结 构 的 盒子 和 指针 表示 ， 以 及 对 应 的 存储 蓓 四 
量 表示 的 图 形 (就 像 图 5-4 里 那样 )。 


(define x (cons 1 2)) 
(define y (list x x)) 


296 也 有 找 自 由 存储 的 其 他 方式 。 举 例 说 ， 我 们 也 可 以 将 所 有 未 用 的 序 对 链接 起 来 ， 形 成 一 个 自由 表 。 在 这 里 的 
自由 位 置 是 连续 的 (并 因此 可 以 通过 增加 指针 值 的 方式 访问 )， 是 因为 这 里 采用 了 一 种 紧缩 式 的 废料 收集 程 
序 ， 我 们 将 在 5.3.2 节 看 到 有 关 的 情况 。 

97 从 本 质 上 说 ， 这 就 是 基于 set-car! 和 set-cdr! 的 cons 实 现 ， 如 3.3.1 节 所 述 。 在 那里 的 实现 中 所 用 的 
get-new-pair ,现在 通过 free 指 针 实 现 了 。 
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假定 free 指 针 开始 时 的 值 是 pl1。 表 示 x 和 y 的 值 的 是 哪些 指针 ? 

练习 9.21 为 下 面 过 程 实现 寄存 器 机 器 。 假 定 表 结 构 存 储 操 作 可 以 作为 机 器 的 基本 操作 
使 用 : 

a) 递归 的 count-leaves. 


(define (count-leaves tree) 
(cond ((null? tree) 0) 
({not (pair? tree)) 1) 
(else (+ (count-leaves (car tree) ) 


(count-leaves (cdr tree)))))) 


b) #ahycount-leaves, #A—A EAR 1 Bas : 


{define (count-leaves tree) 
(define (count-iter tree n) 
(cond ((null? tree) n) 
((not (pair? tree)) (+ n 1)) 
{else (count-iter (cdr tree) 
(count-iter (car tree) n))))) 


{count-iter tree 0)) 
练习 5.22 ”练习 3.12 和 3.3.1 节 给 出 了 一 个 append 过 程 ， 它 连接 起 两 个 表 ， 构 成 一 个 新 
表 ， 还 有 另 一 个 过 程 append! ， 它 直接 将 两 个 表 粘 连 到 一 起 。 请 为 实现 这 两 个 操作 各 设计 一 
个 寄存 器 机 器 ， 假 定 表 结构 存储 操作 是 可 用 的 基本 操作 。 


5.3.2 维持 一 种 无 穷 存 储 的 假象 


在 5.3.1 节 所 勾画 的 表示 方式 能 够 解决 表 结构 的 问题 ， 当 然 这 里 还 需要 有 一 个 前 提 ， 那 就 
是 需要 有 无 穷 数量 的 存储 。 如 果 采 用 实际 的 计算 机 ， 我 们 最 终 总 会 用 光 所 有 用 于 构造 新 序 对 
的 自由 空间 %。 然 而 ， 典 型 计算 中 产生 的 大 部 分 序 对 只 是 用 于 保存 计算 的 中 间 结 果 ， 在 这 些 
结果 被 访问 之 后 ， 有 关 的 序 对 就 不 再 有 用 了 一 一 它们 变 成 了 废料 。 例 如 ， 计 算 

{accumulate + 0 (filter odd? (enumerate-interval 0 n))) 

将 构造 起 两 个 表 ; 枚 举 出 的 表 和 对 榴 举 进行 过 滤 的 结果 表 。 在 这 里 的 累计 工作 完成 之 后 ， 这 
两 个 表 就 都 不 需要 了， 为 它们 分 配 的 存储 可 以 回收 。 如 果 我 们 能 做 出 一 种 安排 ， 周 期 性 地 收 
集 起 所 有 的 废料 ,而 且 对 存储 的 这 种 重复 使 用 的 速度 与 构造 新 序 对 的 速率 大 臻 差不多， 那么 
我 们 就 能 维持 一 种 假象 ， 好 像 这 里 存在 着 无 穷 数量 的 存储 器 。 

为 了 回收 这 些 序 对 ， 我们 必须 有 一 种 方式 来 确定 原先 分 配 的 哪些 序 对 已 经 不 再 需要 了 
(这 一 说 法 实际 上 意味 着 它们 的 内 容 对 今后 的 计算 不 再 有 影响 了 )。 我 们 下 面 要 考察 的 方法 称 
为 庆 料 收集 。 广 料 收 集 是 基于 如 下 的 认识 ， 在 Lisp 解 释 过 程 中 的 任何 时 刻 ， 有 可 能 影响 未 来 
的 计算 过 程 的 对 象 ， 也 就 是 从 当前 机 器 寄存 器 里 的 指针 出 发 ， 经 过 一 系列 car 和 cdr 操 作 能 够 


298 这 句 话 将 来 也 可 能 不 成 立 ， 因 为 存储 器 有 可 能 变 得 足够 大 ， 以 至 在 一 部 计算 机 的 存在 期 间 不 可 能 用 完 它 。 举 
例 说 ， 一 年 里 大 约 有 3 x 1053 微 种 ， 因 此 如 果 我 们 每 个 微 秒 做 一 次 cons ， 大 约 需要 有 10 个 存储 单元 就 可 以 构 
造 出 一 台 机 器 ， 它 可 以 运行 30 年 而 不 会 用 光 所 有 的 存储 器 。 按 照 今天 的 标准 ， 这 样 的 存储 器 似 平 太 大 了 ， 但 
在 物理 上 这 并 不 是 不 可 能 的 。 而 在 另 一 方面 ， 处 理 器 的 速度 也 在 变 得 更 快 ， 明 天 的 一 台 计 算 机 可 能 有 着 一 大 
批 处 理 器 ， 在 一 个 内 存 上 并 行 操作 ， 因 此 使 用 存储 的 速度 也 可 能 远 远 快 于 上 面 的 假定 。 
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达到 的 那些 对 象 ”。 所 有 不 能 以 这 种 方式 访问 的 对 象 都 可 以 回收 了 。 

执行 废料 收集 的 方法 也 很 多 。 我 们 将 要 在 这 里 考察 的 方法 称 为 停止 并 复制 ， 其 基本 思想 
就 是 将 存储 器 分 成 两 半 , 分 为 “工作 存储 区 ”和 “自由 存储 区 ”。 当 cons 需 要 构造 序 对 时 ， 
它 就 在 工作 存储 区 里 分 配 它 们 。 当 工作 存储 区 满 的 时 候 就 执行 废料 收集 ， 确 定位 于 工作 和 存储 
器 里 的 所 有 有 用 序 对 的 位 置 ， 并 将 它们 复制 到 自由 存储 区 里 的 一 些 连续 位 置 去 。 确 定 有 用 序 
对 的 方式 是 从 机 器 的 寄存 器 出 发 ， 追 踪 所 有 的 car 和 cdz 指 针 。 由 于 我 们 不 复制 废料 ， 因 此 可 
以 预期 还 会 剩 下 一 些 自由 存储 ， 可 供 分 配给 新 的 序 对 。 此 外 ， 原 来 工作 存储 区 里 也 不 再 有 有 
用 的 东西 了 ， 因 为 其 中 有 用 的 序 对 都 已 复制 。 这 样 ， 如 果 我 们 交换 工作 存储 区 和 目 由 存储 区 
的 角色 ， 计 算 就 可 以 继续 进行 下 去 ， 在 新 的 工作 存储 区 ( 它 也 就 是 原来 的 自由 存储 区 ) 里 分 
配 新 的 序 对 。 当 这 一 存储 区 满 时 ， 我 们 又 可 以 将 其 中 有 用 的 序 对 复制 到 新 的 自由 存储 区 ( 它 
也 就 是 原来 的 工作 存储 区 )  ，。 


停止 并 复制 废料 收集 的 实现 

现在 我 们 要 用 自己 的 寄存 器 机 器 语言 ， 给 出 这 种 停止 并 复制 算法 的 更 多 细节 。 现 在 假定 
存在 着 一 个 称 为 root 的 寄存 器 ， 其 中 包含 一 个 指针 ， 它 指向 了 一 个 结构 ， 该 结构 最 终 能 够 指 
向 所 有 可 以 访问 的 数据 。 这 件 事 情 很 容易 安排 ， 我 们 只 需 在 废料 收集 即将 开始 时 将 机 器 里 所 
有 寄存 器 的 内 容 保存 到 一 个 预先 分 配 好 的 表 里 ， 并 让 root 指向 这 个 表 ”。 我 们 还 假定 ， 除 了 
当前 的 工作 存储 区 外 ， 还 存在 着 一 个 自由 存储 区 ， 可 以 把 有 用 的 数据 复制 进去 。 当 前 工作 存 
储 区 由 两 个 向 量 组 成 ， 其 基 址 分 别 存放 在 称 为 the-cars 和 the-cdrs 的 寄存 器 里 ， 自 由 存 
储 区 的 基 址 存放 在 寄存 器 new-cars 和 new-cdrs 里 。 

当 计算 耗 尽 了 当前 工作 存储 区 里 的 所 有 自由 单元 时 ， 就 触发 了 废料 收集 。 也 就 是 说 ， 事 
情 发 生 在 某 次 cons 操 作 企 图 去 增加 free 指 针 ， 使 它 超出 当前 工作 存储 向 量 殉 围 的 时 候 。 当 
废料 收集 完成 时 ，root 指针 将 指向 新 的 存储 区 ， 从 root 出 发 可 以 访问 的 所 有 对 象 都 已 经 移 
入 新 的 存储 区 。 而 Eree 指 针 指 向 新 存储 区 里 的 下 一 个 位 置 ， 新 的 序 对 将 从 那里 分 配 。 此 外 ， 
工作 存储 区 和 自由 存储 区 的 角色 也 交换 了 一 一 新 的 序 对 将 在 新 的 存储 区 里 分 配 ， 从 free 指 针 
所 指 的 位 置 开 始 。( 原 先 的 ) 工作 存储 区 现在 已 经 变 成 可 用 的 新 存储 区 ， 它 将 用 于 下 一 次 废料 


299 假定 这 里 的 堆栈 按照 5.3.1 节 的 描述 用 表 的 形式 表示 ， 因 此 位 于 堆栈 里 的 数据 项 都 可 以 通过 堆栈 寄存 器 访问 。 
300 这 一 思想 是 Minsky 发 明 并 最 早 实现 的 ， 作 为 MIT 电子 学 实验 室 里 着 DP-1 所 做 的 Lisp 系统 的 一 部 分 。Fenichel 
和 Yochelson (1969) 进一步 发 展 了 这 一 思想 ， 并 将 它 用 于 Multics 分 时 系统 中 的 Lisp 实现 。 后 来 Baker (1978) 
开发 出 这 一 思想 的 一 个 “实时 ”版 本 ， 其 中 不 需要 在 废料 收集 时 将 计算 停 下 来 。Baker 的 思想 又 得 到 Hewitt、 
Lieberman 和 Moon 的 进一步 发 展 ( 和 参见 Lieberman and Hewitt 1983), LAFF 实际 中 的 一 种 情况 ， 计算 中 得 到 
的 一 些 结构 更 具 变 动 性 ， 而 另 一 些 结构 则 更 持久 些 。 
马 一 种 常用 的 废料 收集 技术 是 标记 一 清 殷 方法。 其 工作 过 程 包括 追踪 从 机 器 寄存 器 出 发 可 以 访问 的 所 有 
疆 构 ， 在 遇 到 每 个 结构 时 做 好 标记 。 而 后 扫描 整个 存储 区 ， 将 所 有 没有 标记 的 位 置 作为 废料 “ 扫 入 ”自由 空 
间 ， 使 其 可 以 重新 使 用 。 有 关 标 记 一 清扫 方法 的 更 完整 讨论 可 参见 Allen 1978, 
Minsky-Fenichel-Yochelson 的 算法 已 经 成 为 实用 的 大 型 存储 系统 的 主导 算法 ， 因 为 它 只 需要 检查 存储 器 
里 的 有 用 部 分 。 标 记 一 清扫 方法 的 情况 与 此 不 同 ， 那 里 的 清扫 阶段 必须 检查 存储 区 的 所 有 部 分 。 停 止 并 复制 
方法 的 另 一 优势 在 于 它 是 一 种 紧缩 型 废料 收集 算法 。 也 就 是 说 ， 在 废料 收集 阶段 结束 时 ， 有 用 数据 都 被 移 到 
一 片 连续 存储 位 置 中 ， 所 有 的 废料 都 被 挤 了 出来。 对 于 使 用 虚拟 存储 器 的 机 器 而 言 ， 这 样 可 能 得 到 很 可 观 的 
性 能 提升 ， 因 为 在 这 种 系统 里 ， 访 问 非常 分 散 的 存储 地 址 可 能 需要 更 多 的 换 页 操作 。 
w 这 -寄存 器 表 里 并 不 包含 用 于 存储 分 配 系 统 的 寄存 器 -一 root 、the-cars、the-cdrs， 以 及 过 一 节 里 5 
进 的 其 Ae SF 4 a8 o 
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收集 。 图 5-15 显 示 的 是 在 一 次 废料 收集 之 前 和 之 后 的 存储 安排 情况 。 


废料 收集 之 前 


the-cars 


有 用 数据 与 废料 混合 工作 存储 区 


the-cdrs 





free 


new-cars Doe 
空闲 存储 区 aS FF 
new-cars 
废料 收集 之 后 

new-cars Be FETE REC 新 空 亲 
new-cars 存储 区 
the- | 

— 有 用 数据 空闲 区 新 工作 
the-cdrs 存储 区 


free 


图 5-15 ”废料 收集 过 程 完 成 存储 区 的 重新 配置 


废料 收集 过 程 中 的 状态 控制 也 就 是 维持 两 个 指针 ，free 和 scan。 它 们 被 初始 化 到 新 存 
储 区 的 开始 位 置 。 在 算法 开始 时 ， 我们 把 root 所 指向 的 序 对 ( 根 ) 重新 分 配 到 新 存储 区 的 开 
始 位 置 。 在 复制 了 这 个 序 对 之 后 ，reot 指 针 也 将 被 调整 为 指向 这 一 新 位 置 ，free 指 针 的 值 
被 增加 。 此 外 ， 还 要 在 这 一 序 对 原来 的 位 置 加 上 标记 ， 说明 这 个 位 置 的 内 容 已 经 移 走 了 。 标 
记 方 法 如 下 在 原 序 对 的 car 位 置 里 放 一 个 特殊 标记 ， 表 示 这 是 一 个 已 经 移 走 的 对 象 〔( 按 照 
传统 ， 这 种 对 象 称 为 破碎 的 心 ) ”， 在 其 cdr 位 置 里 放 一 个 前 向 指针 ， 指 同 这 个 对 象 移动 后 
的 新 位 置 。 

在 为 根 重 新 分 配 之 后 ， 废 料 收集 程序 就 进入 了 它 的 基本 循环 。 在 这 个 算法 的 每 一 步 ， 扫 
描 指 针 scan (初始 时 指向 重新 分 配 的 根 ) 指向 的 是 一 个 本 身 已 经 移入 新 存储 区 的 对 象 ， 但 它 
的 car 和 cdr 指 针 仍然 指 着 老 存 储 区 里 的 对 象 。 现 在 要 重新 分 配 这 样 的 被 指 对 象 ， 并 相应 增加 


302 术语 破碎 的 心 是 David Cressey 创 造 的 ， 他 写 出 了 MDL 的 废料 收集 系统 。MDL 是 20 世纪 170 年 代 早 期 在 MLI 开 
发 的 一 种 Lisp 方 言 。 
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scan 指 针 的 值 。 为 了 重新 分 配 一 个 对 象 ( 例 如 由 我 们 正在 扫描 的 那个 序 对 的 car 指 针 指 向 的 
对 象 ) ， 我 们 需要 检查 它 ， 看 看 这 一 对 象 是 否 已 经 移 走 (看 这 个 对 象 的 car 位 章 是 否 存 放 着 一 
个 破碎 的 心 标记 )。 如 果 该 对 象 还 没有 移 走 ， 我 们 就 将 它 复制 到 由 free 所 指 的 位 置 ， 更 新 
free, 在 这 个 对 象 的 老 位 置 里 设置 破碎 的 心 标志 和 前 向 指针 ， 并 更 新 指向 这 个 对 象 的 指针 
(在 现在 的 假设 里 ， 也 就 是 正 被 扫描 的 序 对 里 的 car 指针 )， 使 之 指向 刚刚 确定 的 新 位 置 。 如 
果 这 一 对 象 已 经 移 走 ， 那 么 就 利用 它 的 前 向 指针 (可 以 从 破碎 的 心中 的 cdr 位置 找到 ) 替换 
正 被 扫描 的 序 对 里 的 指针 。 最 终 所 有 可 访问 的 对 象 都 完成 了 移动 和 扫描 ， 此 时 scan 指 针 将 超 
过 free 指 针 ， 这 一 过 程 束 结束 ST. 

我 们 可 以 用 一 部 寄存 器 机 器 的 指令 序列 描述 这 种 停止 并 复制 算法 。 重 新 分 配 一 个 对 象 的 
基本 步骤 由 一 个 称 为 relocate-old-result-in-new 的 子 程序 完成 。 这 个 子 程序 的 参数 
是 指向 需要 移动 的 对 象 的 指针 ， 它 来 自 一 个 称 为 o1Q 的 寄存 器 。 子 程序 为 指定 对 象 重 新 分 配 
存储 (在 这 一 过 程 中 ， 也 就 是 增 大 free 的 值 ) ， 将 重新 分 配 后 的 对 象 的 地 址 放 入 另 一 个 称 为 
new 的 寄存 器 ， 最 后 利用 分 支 指令 ， 按 照 保存 在 寄存 器 relocate-continue 里 的 入 口 点 返 
回 。 在 开始 进行 废料 收集 时 ， 我 们 在 初始 化 free 和 scan 之 后 调用 这 个 子 程序 ， 为 root 指 针 
做 重新 分 配 。 在 完成 了 root 的 重新 分 配 后 ， 我 们 就 将 root 指 针 设 置 到 新 的 根 位 置 ， 而 后 进 
入 废料 收集 程序 的 主 循环 。 | 

begin-garbage-collection 

(assign free (const 0)) 

(assign scan (const 0)) 

(assign old (reg root)) 

(assign relocate-continue (label reassign-root)) 

(goto (label relocate-old-result—in-new) ) 
reassign-root 


(assign root (reg new)) 
(goto (label gc-loop) ) 


在 废料 收集 程序 的 主 循环 里 ， 我 们 必须 检查 是 否 还 存在 着 需要 扫描 的 对 象 。 完 成 此 事 的 
方式 就 是 检查 scan 指 针 是 否 已 经 与 free 指针 重合 。 如 果 这 两 个 指针 相等 ， 那 么 所 有 可 以 访 
问 对 象 都 已 完成 了 重新 分 配 ， 现 在 就 可 以 分 支 到 gc-f1ip 去 了 。 在 那里 需要 做 一 些 清理 工作 ， 
使 我 们 能 继续 进行 前 面 中 断 下 来 的 计算 。 如 果 还 有 需要 扫描 的 序 对 ， 我 们 就 调用 子 程序 ， 为 
下 一 个 序 对 的 car 做 重新 分 配 (将 那个 指针 car 放 入 01d )， 并 设置 relocate-continue 寄 
存 器 ， 使 子 程序 能 够 返回 到 更 新 car 指 针 的 位 置 。 


gc-loop 
(test (op =) (reg scan) (reg free)) 
{branch (label gc-flip) ) 
(assign old (op vector-ref) (reg new-cars) (reg scan) ) 
(assign relocate-continue (label update-car) ) 
(goto (label relocate-old-result-—in-new) ) 


在 update-cazr 之 后 ,我们 修改 被 扫描 的 这 个 序 对 的 ca 指针 ， 而 后 去 处 理 这 个 序 对 的 
cdr 指 针 。 这 次 完成 重新 分 配 之 后 返回 到 update-cdr。 在 对 cdr 的 重新 分 配 和 更 新 之 后 ， 
对 于 这 一 序 对 的 扫描 已 经 完成 ， 此 时 就 可 以 继续 进行 主 循环 了 。 


update-car 


~ 
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(perform 

(Op veetor-set!) (reg new-cars) (reg scan) (reg new)) 
(assign old (op vector-ref) (reg new-cdrs) (reg scan) ) 
(assign relocate-continue (label update-cdr)) 

(goto (label relocate-old-result-—-in-new) ) 


update-cdr 
(perform 
(op vector-set!) (reg new-cdrs) (reg scan) (reg new) ) 
(assign scan (op +) (reg scan) (const 1)) 
(goto (label gc-loop) ) 


子 程序 relocate-old-result-in-new 按 如 下 方式 重新 分 配对 象 : 如 果 要 求 重新 分 
配 的 对 象 ( 由 old 指 向 ) 不 是 序 对 ， 那 么 子 程序 就 返回 指向 该 对 象 的 同一 个 指针 ， 并 不 做 任 
何 修改 (在 new 里 )。 举 例 说 ， 如 果 现 在 扫描 到 一 个 序 对 ， 其 car 部 分 是 数 4。 如 果 我 们 像 
5.3.1 节 所 言 ， 将 这 个 car 部 分 表示 为 h4 ， 那 么 我 们 当然 希望 “重新 分 配 ” 后 的 car 指针 仍然 
是 n4。 如 果 情 况 不 是 这 样 〈 遇 到 的 是 序 对 ) ， 那 么 就 必须 执行 重新 分 配 操作 。 如 果 要 求 重 新 分 
配 的 位 置 里 包含 着 一 个 破碎 的 心 标 记 ， 那 就 说 明 该 序 对 已 经 移 走 了 ， 因 此 需要 提取 出 其 中 的 
前 向 地 址 (从 破碎 的 心里 的 cdqr 位 置 )， 并 在 new 里 返回 这 个 地 址 。 如 果 指 针 o1Q 指 向 的 是 一 
个 尚未 移动 的 序 对 ， 那 就 把 这 个 序 对 移 到 新 存储 区 里 的 第 一 个 自由 位 置 〈《 由 frzee 指 癌 ) ， 将 
破碎 的 心 标 志和 前 向 指针 存 和 这 一 序 对 的 老 位 置 ， 设 置 好 这 个 破碎 的 心 。relocate~old- 
result-in-new 用 寄存 器 oldcr 保 存 由 01d 指 向 的 对 象 的 car 或 者 cdr”™，。 


relocate-old-result-in-new 
(test (op pointer-to-pair?) (reg old)) 
(branch (label pair)) 
{assign new (reg old)) 
{goto (reg relocate-continue) ) 
pair 
(assign older (op vector-ref) (reg the-cars) (reg old)) 
(test (op broken-heart?) (reg oldcr)) 
(branch (label already-moved) ) 
(assign new (reg free)) ; new location for pair 
;; Update free pointer. 
(assign free (op +) (reg free) (const 1)) 
;; Copythe car and cdr to new memory. 
(perform (op vector-set! ) 
(reg new-cars) (reg new) (reg oldcr)) 
(assign older (op vector-ref) (reg the-cdrs) (reg old) ) 
(perform (op vector-set!) 
(reg new-cdrs) (reg new) (reg oldcr)) 
»» Construct the broken heart. 
(perform (op vector-set!) 
(reg the-cars) (reg old) (const broken-heart) ) 


303 这 一 废料 收集 程序 使 用 了 一 个 低级 谓词 pointer-to-pair?， 而 设 有 用 表 结 构 操 fpaiz? ， 这 是 因为 在 真 
实 的 系统 里 ， 有 许多 不 同 的 东西 都 需要 为 了 废料 收集 而 当 作 序 对 来 处 理 。 举 例 说 ， 在 一 个 符合 LEEE 标 准 的 
Scheme 系统 里， 一 个 过 程 对 象 也 可 能 被 实现 为 一 类 特别 的 “ 序 对 ”， 它 们 就 不 会 满足 Pair? 谓 词 。 如 朵 只 是 
为 了 模拟 ， 那 么 我 们 就 可 以 用 pair? 实 现 Pointer-to-pair?. 
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(perform 
(op vector-set!) (reg the-cdrs) (reg old) (reg new)) 
(goto (reg relocate-continue) ) 
already-moved — 
(assign new (op vector-ref) (reg the-cdrs) (reg old)) 
(goto (reg relocate-continue) ) 
在 这 一 废料 收集 过 程 的 最 后 ， 我 们 还 需要 区 换 老 存储 区 和 新 存储 区 的 角色 ， 为 此 只 需 交 
换 指 针 的 值 ， 将 the-cars 与 new-carSs 交 换 ,，the-cdrs Snew-cdrs 交换。 这 样 就 已 经 做 
好 了 准备 ， 可 以 在 下 次 存储 区 耗 尽 时 执行 下 一 次 废料 收集 了 。 


gc-flip 
(assign temp (reg the-cdrs) ) 
(assign the-cdrs (reg new-cdrs) ) 
(assign new-cdrs (reg temp) ) 
(assign temp (reg the-~cars) ) 
(assign the-cars (reg new-cars)) 
(assign new-cars (reg temp) ) 


5.4 PRAKA 


在 5.1 节 里 ， 我 们 看 到 如 何 将 简单 的 Scheme 程序 变换 为 寄存 器 机 器 的 描述 。 下 面 将 要 对 一 
个 更 复杂 的 程序 做 这 种 变换 。 这 里 将 要 处 理 的 就 是 4.1.1 节 到 4.1.4 节 讨论 的 元 循环 求 值 器 ， 该 
程序 说 明了 一 个 Scheme 解释 器 的 行为 可 以 怎样 用 一 对 过 程 eval 和 apP1yY 描 述 。 在 本 节 里 ， 
我 们 将 要 开发 一 个 显 式 控制 求 值 器 ， 用 以 说 明 求 值 过 程 中 所 用 的 过 程 调用 的 参数 传递 的 基础 
机 制 ， 说 明 如 何 基于 寄存 器 和 堆栈 操作 描述 这 种 机 制 。 除 此 之 外 ， 显 式 控制 求 值 器 还 可 以 作 
为 Scheme 解释 器 的 一 种 实现 ， 而 且 ， 描 述 这 一 实现 时 所 用 的 语言 也 非常 接近 常规 计算 机 的 本 
机 机 器 语言 。 这 个 求 值 器 可 以 在 5.2 节 的 寄存 器 机 器 模拟 器 上 执行 。 换 一 个 看 法 ， 它 也 可 以 用 
作 构 造 一 个 机 器 语言 的 Scheme 求 值 器 实现 的 出 发 点 ， 或 者 甚至 是 作为 一 个 求 值 Scheme 表达 式 
的 特殊 机 器 的 出 发 点 。 图 5-16 显 示 的 就 是 这 样 一 个 硬件 实现 : 一 片 作为 Scheme 求 值 器 的 硅 芯 
片 。 这 一 芯片 的 设计 者 就 是 从 描述 一 部 寄存 器 机 器 的 数据 通路 和 控制 器 规范 开始 ， 类 似 于 我 
们 将 要 在 本 节 里 描述 的 求 值 器 ， 而 后 利用 设计 自动 化 工具 程序 ， 构 造 出 集成 电路 的 布线 ”。 


寄存 器 和 操作 
在 设计 显 式 控 制 求 值 器 时 ， 我 们 必须 描述 用 于 这 部 寄存 器 机 器 的 各 种 操作 。 在 采用 抽象 
语法 的 方式 描述 元 循环 求 值 器 时 使 用 了 一 些 过 程 ， 例 如 guoted? Flmake-procedure, 4 
了 实现 相应 的 寄存 器 机 器 ， 我 们 就 需要 将 这 些 过 程 展开 为 基本 的 表 结 构 操作 序列 ， 在 我 们 的 
寄存 器 机 器 上 实现 这 些 操作 。 当 然 ， 这 样 做 会 使 这 个 求 值 器 变 得 非常 长 ， 使 它 的 基本 结构 被 
许多 细节 弄 得 很 不 清楚 。 为 使 这 一 展示 更 清晰 一 些 ， 我 们 将 把 4.1.2 节 中 给 出 的 语法 过 程 A 
及 在 4.1.3 和 4.1.4 节 给 出 的 表示 环境 和 其 他 运行 时 数据 的 过 程 ， 都 作为 这 一 寄存 器 机 器 的 基本 
操作 。 如 果 要 完整 地 描述 这 一 求 值 器 ， 使 它 能 用 低级 的 机 器 语言 编程 实现 ， 或 者 在 硬件 中 实 
现 ， 我 们 就 需要 用 更 基本 的 操作 取代 这 些 操作 ， 还 要 用 到 5.3 节 所 解释 的 表 结 构 实现 。 
| 我 们 的 Scheme 求 值 器 寄存 器 机 器 里 包含 了 一 个 堆栈 和 七 个 寄存 器 : exp. env, val, 
continue. proc, arglffunev, expH+F#RBERKEAN RAK, env fA Aa ix—x* 


w 有 关 这 个 芯片 及 其 设计 方法 的 更 多 信息 ， 可 以 参见 Batali, et al. 1982, 


de 


值 的 进行 所 在 的 环境 。 在 求 值 结束 时 ，val 里 包含 着 通过 在 指定 环境 里 求 值 表达 式 得 到 的 结 
果 。continue 寄 存 器 用 于 实现 递归 ， 就 像 5.1.4 节 里 所 解释 的 那样 〈 这 一 求 值 器 需要 调用 其 
自身 ， 因 为 对 一 个 表达 式 的 求 值 将 要 求 对 其 中 的 子 表达 式 求 值 )。 寄 存疑 Proc、argl 和 
unev 用 在 求 值 组 合式 的 时 候 。 
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图 5-16 ”实现 了 一 个 Scheme 求 值 器 的 心 


我 们 将 不 再 画 数据 通路 图 去 说 明 求 值 器 里 的 寄存 器 与 操作 如 何 连 接 ， 也 不 准备 罗列 出 这 
一 机 器 中 所 有 操作 。 这 些 都 隐 含 在 求 值 器 的 控制 器 里 ， 下 面 要 介绍 它 的 各 方面 细 市 。 


5.4.1 显 式 控制 求 值 器 的 内 核 


这 一 求 值 器 的 核心 部 分 是 从 eval-dispatch 开 始 的 指令 序列 ， 它 对 应 于 4.1.1 市 中 摘 述 
的 元 循环 求 值 器 里 的 eval 过 程 。 当 控制 器 从 eval-dispatch 开 始 工 作 时 ， 它 将 在 由 env 确 
定 的 环境 里 对 由 exp 确 定 的 表达 式 求 值 。 当 这 一 求 值 完成 时 ,控制 器 将 进入 保存 在 寄存 帮 
continue 里 的 入 口 点 , 而 Val 寄 存 器 里 保存 着 表达 式 的 值 。 就 像 元 循环 求 值 絮 里 的 eVal 一 
样 ，eval-dispatch 的 结构 也 是 一 个 基于 被 求 值 表达 式 的 类 型 的 分 情况 分 析 ”。 
eval-dispatch 
(test (op self-evaluating?) (reg exp)) 
(branch (label ev-self-eval) ) 
(test (op variable?) (reg exp) ) 
(branch (label ev-variable) ) 
(test (op quoted?) (reg exp) ) 
(branch (label ev-quoted) ) 
(test (op assignment?) (reg exp) ) 
(branch (label ev-assignment) ) 
(test (op definition?) (reg exp) ) 
(branch (label ev-definition) ) 
(test (op if?) (reg exp)) 


30 在 这 个 求 值 器 里 ， 分 派 采 用 一 系列 test 和 branch 指 令 描 述 。 也 可 以 换 一 种 方式 ， 采 用 一 种 数据 导向 的 风格 
写 出 它 来 (在 真实 的 系统 里 常常 是 这 样 )， 以 避免 执行 一 系列 检测 的 需要 ， 并 能 有 利于 定义 新 的 表达 式 类 型 。 
一 台 特 别 为 运行 Lisp 而 设计 的 机 器 中 很 可 能 包含 一 条 dispatch-on-type 指 令 ， 它 能 有 效 地 执行 这 种 数据 
导向 的 分 派 工 作 。 


{branch {label ev-if) ) 

(test (op lambda?) (reg exp)) 

(branch (label ev-lambda) ) 

(test {op begin?) (reg exp) ) 

(branch (label ev-begin)) 

(test (op application?) (reg exp) ) 
(branch (label ev-application) ) 

(goto (label unknown-expression-type) ) 


简单 表达 式 的 求 值 
数 和 字符 串 (它们 都 是 自 求 值 的 )、 变 量 、 引 号 式 和 lambda 表 达 式 中 都 设 有 需要 进一步 
求 值 的 子 表 达 式 ， 对 于 它们 ， 求 值 器 简单 地 将 正确 的 值 放 入 val 寄 存 器 里 ， 并 从 continue 
所 描述 的 入 口 点 继续 执行 下 去 。 对 简单 表达 式 的 求 值 由 下 面 的 控制 器 代码 完成 : 
ev-self-eval 
(assign val (reg exp) ) 
(goto (reg continue) ) 
ev-variable 
(assign val (op lookup-variable-value) (reg exp) (reg env) ) 
{goto (reg continue) ) 
ev-quoted è 
(assign val (op text-of-quotation) (reg exp)) 
(goto (reg continue)) | 
ev-lambda 
(assign unev (op lambda-parameters) (reg exp) ) 
(assign exp (op lambda-body) (reg exp)) 
(assign val (op make-procedure) 
(reg unev) (reg exp) (reg env)) 
(goto (reg continue) ) 


请 注意 ev-lambda 怎 样 利用 unev 和 exp 寄 存 器 保存 参数 和 lambda 表 达 式 的 体 ， 使 它们 可 以 
作为 参数 ， 与 env 里 的 环境 一 起 传递 给 make-procedure 操 作 。 


过 程 应 用 的 求 值 

过 程 应 用 由 组 合式 描述 ， 其 中 包含 了 运算 符 和 运算 对 象 。 这 个 运算 符 是 一 个 子 表 达 式 ， 
其 值 是 一 个 过 程 ， 而 运算 对 象 是 一 些 子 表 达 式 ， 它 们 的 值 就 是 这 个 过 程 应 该 作用 于 的 实际 参 
数 。 在 元 循环 求 值 器 里 ，eval 处 理 过 程 应 用 的 方式 是 递归 地 调用 自己 ， 去 求 值 组 合式 里 的 每 
个 元 素 ， 而 后 将 结果 送 给 apply， 由 它 去 执行 实际 过 程 应 用 。 显 式 控制 求 值 器 也 需要 做 同样 
的 事情 ， 那 些 递 归 调 用 都 通过 goto 指 令 实 现 ， 还 需要 用 堆栈 保存 起 一 些 寄存 器 ， 以 便 在 递归 
调用 返回 之 后 恢复 它们 。 在 每 个 调用 之 前 ， 我 们 都 需要 仔细 辩 明 哪些 寄存 器 必须 保存 《因为 。 
后 面 还 需要 它们 的 值 ) “ 

在 对 过 程 应 用 求 值 时 ， 我 们 首先 求 值 运算 符 以 产生 出 一 个 过 程 ， 这 个 过 程 后 来 要 被 应 用 
于 求 值得 到 的 那些 实际 参数 。 为 了 完成 运算 符 的 求 值 ， 我 们 需要 将 它 移入 exP 寄 存 器 并 转 回 


06 在 把 用 过 程 性 语言 (例如 Lisp) 描述 的 算法 翻译 为 害 存 器 机 器 语言 时 ， 这 个 问题 特别 重要 ， 其 中 的 细 枝 末 市 
很 多 。 如 果 不 采 用 只 保存 必须 保存 的 东西 的 方式 ， 我们 也 可 以 在 每 次 递归 调用 之 前 保存 所 有 寄存 器 《除了 
val 之 外 )。 这 种 方式 称 为 框架 堆栈 方式 ， 它 当然 能 工作 ， 但 是 却 可 能 保存 了 一 些 并 不 必须 保存 的 寄存 器 。 
对 那 种 堆栈 操作 代价 踢 贵 的 系统 ， 这 样 做 可 能 对 系统 性 能 产生 很 大 影响 。 将 那些 后 面 不 再 需要 的 检查 保存 起 

“来 ， 还 可 能 维持 了 一 些 原 本 可 以 经 过 废料 收集 ， 回 到 自 由 空间 重复 使 用 的 无 用 数据 。 


_386 和 罕 疗 姑 机 总 里 的 计 友 _ 


到 eval-dispatch 。 位 于 env 寄 存 器 里 的 环境 就 是 求 值 这 个 运算 符 时 所 需要 的 正确 环境 。 
但 是 我 们 还 是 需要 保存 起 这 一 环境 ， 以 便 将 来 用 于 运算 对 象 的 求 值 。 在 这 里 还 必须 把 运算 对 
象 提 到 出 来 存 人 unev， 并 将 它 保 存 到 堆栈 里 。 还 要 设 好 continue， 使 得 eval-dispatch 
能 在 运算 符 求 值 完 毕 之 后 回 到 ev-appl-did-operator 。 在 做 这 件 事 情 之 前 ， 必 须 先 把 
continue 的 原 值 存 人 堆栈 ， 这 个 值 告 诉 控制 器 在 完成 过 程 应 用 之 后 应 转 问 何 处。 
ev-application 
(save continue) 
(save env) 
(assign unev (op operands) (reg exp)) 
(save unev) 
(assign exp (op operator) (reg exp)) 
(assign continue (label ev-appl-did-operator) ) 
(goto {label eval-dispatch) ) 
在 对 于 运算 符 子 表达 式 的 求 值 返 回 后 ， 我 们 需要 继续 去 求 值 组 合式 里 的 各 个 运算 对 象 ， 
并 将 求 出 的 实际 参数 积累 到 一 个 表 里 ， 保 存 到 arg1L1 中 。 为 此 ， 我 们 需要 首先 恢复 未 求 值 的 运 
算 对 象 及 其 求 值 环境 ， 并 将 arg1l 初 始 化 为 一 个 空 表 。 而 后 将 Proc 寄存器 设置 为 求 值 运算 符 
产生 出 的 那个 过 程 。 如 果 当 时 没有 运算 对 象 ， 我 们 就 直接 转 到 apply-dispatch。 如 打 有 运 
算 对 象 ， 那 么 就 将 proc 保 存 到 堆栈 里 ， 并 开始 执行 参数 求 值 循环 ””。 


ev-appl-did-operator 
(restore unev) ; the operands 
(restore env) 
(assign argl (op empty-arglist)) 
(assign proc (reg val)) ; the operator 
(test (op no-operands?) (reg unev)) 
{branch (label apply-dispatch) ) 
(save proc) 


每 执行 一 次 参数 求 值 循环 ， 完 成 对 取 自 anev 里 的 表 里 的 一 个 参数 的 求 值 ， 并 把 结果 积累 
到 argl 里 。 在 求 值 一 个 运算 对 象 时 ， 我 们 也 把 它 放 入 exP 寄 存 器 ， 并 在 设置 continue 寄 存 
器 后 转 到 evalL-dispatch ， 以 便 这 个 积累 实际 参数 的 阶段 还 能 继续 下 去 。 在 转移 之 前 ， 还 
需要 保存 至 今 已 积累 起 来 的 实际 参数 (保存 在 azg1l 里 )， 求 值 环境 (保存 在 env)， 以 及 剩 下 
的 那些 尚未 求 值 的 参数 (保存 在 unev )。 对 于 最 后 一 个 参数 的 求 值 是 一 种 特别 情况 ， 由 下 面 
的 ev~appL-1Last-azrg 处 理 。 


ev~-appl-~operand-loop 
{save argi) 
(assign exp (op first-operand) (reg unev)) 


307 我 们 需要 为 4.1.3 节 里 求 值 器 的 数据 结构 过 程 增加 下 面 两 个 操作 参数 表 的 过 程 : 
(define (empty-arglist) '()) 


(define (adjoin-arg arg arglist) 
(append arglist {list arg)))} 
还 需要 增加 下 面 的 语法 过 程 ， 以 检查 组 合式 的 最 后 参数 : 


(define (last-operand? ops) 
(null? (cdr ops))}) 
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(test (op last-operand?) (reg unev)) 

(branch (label ev-appl-last-arg) ) 

(save env) 

(save unev) 

(assign continue (label ev-appl-accumulate-~arg) ) 
(goto (label eval-dispatch) ) 


在 完成 了 对 一 个 运算 对 象 的 求 值 后 ， 这 个 值 就 被 累积 到 arzgl1 的 表 里 ， 而 后 将 这 一 参数 从 
unev 里 尚未 求 值 的 运算 对 象 表 中 删除 ， 并 继续 对 下 面 的 参数 求 值 。 
ev-appl-accumulate-arg 
(restore unev) 
{restore env) 
(restore argl) 
(assign argl (op adjoin-arg). (reg val) (reg argl)) 
(assign unev (op rest~operands) (reg unev) ) 
(goto (label ev-appi-operand-loop) ) 


最 后 一 个 参数 的 求 值 需要 不 同 的 处 理 方式 。 这 次 在 转 入 eval-dispatch 之 前 ， 已 经 不 
再 需要 保存 环境 和 未 求 值 参数 的 表 了 ， 因 为 在 最 后 一 个 运算 对 象 求 值 之 后 ， 它 们 也 都 不 需要 
O 了。 这样， 我 们 将 从 这 一 求 值 返回 到 一 个 特殊 的 入 口 点 ev-appP1-accum-1ast-arg， 在 堵 
里 恢复 实际 参数 表 ， 并 将 新 的 实际 参数 放 进 去 ， 恢 复 前 面 保存 的 过 程 并 转 去 执行 过 程 应 用 ”。 


ev-appl-last-arg 
(assign continue (label ev-appl-accum-last-arg) ) 
(qoto (label eval-dispatch) ) 
ev-appl-accum-last-arg 
(restore argi) 
(assign argl (op adjoin-arg) (reg val) (reg argl)) 
(restore proc) 
(goto (label apply-dispatch) ) 


参数 求 值 循环 的 细节 情况 确定 了 解释 器 对 组 合式 中 各 个 运算 对 象 的 求 值 顺序 CBI, AE 
到 右 或 者 从 右 到 左 一 见 练习 3.8)。 元 循环 求 值 器 并 没有 明确 规定 这 一 顺序 ， 而 是 由 它 的 实现 
所 在 的 那个 基础 Scheme 继 承 得 到 自己 的 控制 结构 ”。 因为 first-operand 选 树 函 数 ( 用 在 
ev-appl-operand-loop 里 ， 用 于 从 unev 提 取 磊 序 的 各 个 运算 对 象 ) 用 car 实 现 ， 而 选择 
函数 rest-operands 用 cdr 实 现 , 现在 这 个 显 式 控制 求 值 器 将 采用 从 左 到 右 的 顺序 求 值 组 
合式 里 的 各 个 运算 对 象 。 

过 程 应 用 

入 口 点 apply-dispatch 对 应 于 元 循环 求 值 器 的 apP1Y 过 程 。 在 我 们 到 过 apPP1LY-~ 
daispatch 的 时 候 ， 寄 存 器 proc 里 包含 着 需要 应 用 的 过 程 ，azg1 里 包含 着 过 程 将 要 去 应 用 
的 已 经 求 出 值 的 实际 参数 表 。 保 存 起 的 continue 值 (最 开始 是 返回 到 evalLl-dispatcnh， 


308 对 最 后 参数 采用 这 种 特殊 的 优化 处 理 方式 ， 称 为 表 求 值 的 尾 遂 归 ( Wand 1980), 如 果 我 们 把 对 于 第 一 个 参 
数 的 求 值 也 作为 特殊 情况 对 待 ， 那 么 就 可 能 使 参数 表 的 求 值 更 加 高 效 。 因为 这 将 使 我 们 可 以 推迟 对 ar91 的 
初始 化 ， 直 到 做 完 第 一 个 参数 的 求 值 ， 因 此 也 避免 了 保存 arg1 的 工作 。 在 5.5 节 的 编译 器 执行 了 这 种 优化 
(请 与 5.5.3 节 的 construct-~argl ist 过 程 做 一 个 比较 )。 

30 在 元 循环 求 值 器 里， 运算 对 象 的 求 值 顺序 是 由 4.1.1 节 中 位 于 过 程 1ist-of~values 里 的 cons 对 参数 的 求 值 
顺序 确定 的 (参见 练 4.1 )。 
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在 ev-application 保 存 的 ) 在 堆栈 里 ， 它 告诉 我 们 在 得 到 了 过 程 应 用 的 结果 之 后 应 该 返回 
到 哪里 。 当 这 次 应 用 完成 后 ， 控 制 器 将 转移 到 由 保存 起 的 continue 值 所 确定 的 入 口 点 ， 过 
程 应 用 的 结果 存放 在 val 里 。 就 像 元 循环 求 值 絮 里 的 apply 一 样 ， 现 在 也 有 两 种 情况 需要 考 
虑 ， 因 为 被 应 用 的 过 程 可 能 是 基本 过 程 ， 也 可 能 是 组 合 过 程 。. 

apply-dispatch 

(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-apply) ) 

{test (op compound-procedure?) {reg proc)) 
(branch (label compound-apply) ) 

(goto (label unknown-procedure-type) ) 

我 们 假定 每 个 基本 过 程 的 实现 方式 都 保证 它 能 从 arg1 获 取 自 己 的 实际 参数 表 ， 并 将 结果 
存 人 val 里 。 为 了 描述 这 一 机 器 如 何 处 理 基本 过 程 ， 我 们 就 必须 提供 一 个 控制 器 的 指令 序列 ， 
实现 每 一 个 基本 过 程 ， 并 为 primitive-apply 做 好 一 种 安排 ,使 之 能 分 派 到 由 proc 的 内 容 
确定 的 基本 过 程 的 指令 序列 。 由 于 我 们 感 兴 趣 的 是 求 值 过 程 的 结构 ， 而 不 是 基本 过 程 的 细节 ， 
这 里 将 不 做 上 面 所 说 的 事情 ， 而 仅仅 用 一 个 apPpPly-primitive-procedure 操 作 ， 表 示 把 
proc 里 的 过 程 应 用 于 arg1 里 的 实际 参数 。 为 了 能 用 3.2 市 的 模拟 器 去 模拟 这 个 求全 器 ， 我 们 
用 了 一 个 过 程 apply-primitive-procedure， 它 基于 基础 的 Scheme 系统 去 执行 有 关 的 过 
程 应 用 ， 这 与 在 前 面 4.1.4 节 元 循环 求 值 器 里 的 做 法 一 样 。 在 计算 出 基本 过 程 应 用 的 值 之 后 ， 
我 们 恢复 寄存 器 continue ， 并 转 到 它 所 指定 的 入 口上 后 。 

primitive-apply 

(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 

(restore continue) 

(goto (reg continue) ) 


在 应 用 一 个 组 合 过 程 时 ， 这 里 采用 的 做 法 也 与 元 循环 求 值 器 里 相同 。 我 们 将 构造 起 一 个 
框架 ， 其 中 把 过 程 的 形式 参数 约束 于 对 应 的 实际 参数 ， 用 这 一 框架 扩充 过 程 所 携带 的 环境 ， 
并 在 这 一 扩充 后 的 环境 里 求 值 构成 过 程 体 的 表达 式 序 列 。 有 关 表 达 式 序列 的 求 值 问题 由 下 面 
5.4.2 节 描述 的 ev-seguence 处 理 。 | 


compound-apply 
(assign unev (op procedure-parameters) (reg proc) ) 
(assign env (op procedure-environment) (reg proc)) 
(assign env (op extend~-environment ) 
(reg unev) (reg argl) (reg env)) 
(assign unev (op procedure-body) (reg proc)) 
(goto (label ev-sequence) ) 


在 这 个 解释 器 里 ， 只 有 在 compound-apPp1y 处 需要 给 envV 寄 存 器 赋 一 个 新 值 。 正 如 在 元 
循环 求 值 器 里 一 样 ， 这 个 新 环境 是 在 过 程 所 携带 的 环境 的 基础 上 构造 起 来 的 ， 加 入 了 实际 参 
数 表 与 相应 的 变量 表 的 约束 。 


5.4.2 ”序列 的 求 值 和 尾 递 归 
在 显 式 控 制 求 值 器 里 fetev-sequencemi + S7c ts IE at 里 的 eval~sequence 
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过 程 类 似 。 它 处 理 过 程 体 里 或 者 显 式 的 begin 表 达 式 里 的 表达 式 序 列 。 
在 求 值 显 式 的 begin 表 达 式 时 ， 我 们 先 把 被 求 值 的 表达 式 序 列 放 入 unev, 将 continue 
保存 到 堆栈 里 ， 而 后 转 跳 到 ev~sequence。 
ev-begin +r 
(assign unev (op,pegin-actions) (reg exp) ) 
(save continue) 
{goto (label ev-sequence) ) 


对 于 过 程 体 里 的 隐 式 序列 的 处 理 ， 就 是 直接 从 compound-apP1LY 跳 到 ev-seguence 。 在 这 
一 点 ， 所 需 的 continue 已 经 保存 在 堆栈 里 ， 这 是 由 ev-appliication 保 存 的 。 

位 于 ev-sequence 的 入 口 和 ev-sequence-continue 形 成 了 一 个 循环 A 中 顺序 
地 求 值 序列 里 的 一 个 个 表达 式 。 尚 未 求 值 的 表达 式 表 保存 在 unev 。 在 对 一 个 表达 式 求 值 之 前 ， 
我 们 要 检查 这 个 序列 里 是 否 还 有 另外 的 表达 式 需 要 求 值 。 如 果 有 ， 那 么 就 把 剩 下 的 未 求 值 表 
达 式 (在 unev 里 ) 和 当时 的 环境 (在 env 里 ) 保存 到 堆栈 ， 因 为 在 求 值 那些 表达 式 时 还 需要 
用 这 个 环境 。 然 后 去 调用 evalL-dispatch 完 成 表达 式 的 求 值 。 从 这 一 求 值 返 回 后 ， 在 ev- 
sequence-continue 处 恢复 保存 起 来 的 两 个 寄存 器 。 

对 序列 里 最 后 一 个 表达 式 采 用 了 不 同 的 处 理 方式 ， 由 入 口上 尽 ev-sequence-last-exp 
处 理 。 因 为 到 这 时 ， 求 值 完 这 个 表达 式 后 已 经 没有 其 他 表达 式 了 ， 因 此 在 转 入 eval- 
dispatch 之 前 就 不 需要 保存 hnev 和 env。 整 个 序列 的 值 也 就 是 最 后 这 个 表达 式 的 值 ， 因 此 ， 
在 对 最 后 这 个 表达 式 的 求 值 完 成 后 已 经 不 必 再 做 其 他 事情 ， 只 需要 从 当时 堆栈 里 保存 的 入 口 
点 继续 下 去 (这 是 由 ev-application 或 者 ev-begin 保 存 的 )。 此 时 不 应 该 采用 准备 好 
continue 为 eval-dispatch 做 好 返回 这 里 的 安排 ， 而 后 从 堆栈 里 恢复 continue 并 从 这 
个 人 口 点 继续 的 方式 ， 而 是 在 转 到 eval-dispatch 前 ， 直 接 从 堆栈 里 恢复 continue。 这 
就 使 eval-dispatch 在 完成 了 这 里 的 表达 式 求 值 之 后 ， 能 够 从 continue 里 的 那个 入 口 A 
继续 下 去 。 


ev-sequence 
{assign exp (op first-exp) (reg unev)) 
{test (op last-exp?) (reg unev) ) 
(branch (label ev-sequence-last-exp) ) 
(save unev) 
(save env) 
(assign continue (label ev-sequence-continue) ) 
(goto (label eval-dispatch) ) 
ev-sequence-continue 
(restore env) 
(restore unev) 
(assign unev (op rest-exps) (reg unev) ) 
{goto (label ev-sequence) ) 
ev-sequence-last-exp 
(restore continue) 
(goto (label eval-dispatch) ) 


尾 递 归 
在 第 1 章 里 我 们 说 过 ， 由 例如 下 面 过 程 描述 的 计算 


(define (sqrt-iter guess x) 
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(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
© x))) 

实际 上 是 一 个 选 代 过 程 。 即 使 这 个 过 程 定义 在 语法 上 是 递归 的 〈 基 未 它 自身 定义 ) WEL 
说 ， 求 值 器 在 从 对 sqrt-iter 的 一 个 调用 转 到 下 一 个 调用 时 ， 完全 永 必 保存 信息 ?0。 如 果 一 
个 求 值 器 在 执行 像 sSqrt-iter 这 样 的 过 程 时 ， 采 用 的 方式 能 使 在 该 过 程 继续 调 用 自身 时 不 需 
要 增加 存储 ， 这 种 求 值 器 就 称 为 羡 递 为 求 值 器 。 在 第 4 章 里 求 值 器 的 元 循环 实现 中 ， 我 们 并 没 
有 描述 清楚 该 求 值 器 是 否 为 尾 递 归 的 ， 因 为 那个 求 值 器 从 基础 Scheme 系统 继承 了 保存 状态 的 
机 制 。 对 于 现在 的 显 式 控制 求 值 器 ， 我 们 当然 就 可 以 追踪 全 部 的 求 值 过 程 ， 仔 细 观 察 在 过 程 
调用 时 堆栈 里 的 信息 堆积 情况 。 

我 们 这 里 的 求 值 器 确实 是 尾 递 归 的 ， 因 为 在 求 值 一 个 序列 里 的 最 后 一 个 表达 式 时 ， 求 值 
器 是 直接 转 到 eval-~dispatch ， 并 没有 把 任何 信息 存 人 堆栈 。 这 样 ， 对 于 序列 里 最 后 一 个 
表达 式 的 求 值 一 一 即使 这 是 一 次 过 程 调用 (就 像 在 sqzt-itez 里 ， 过 程 体 里 的 最 后 表达 去 也 
就 是 那里 的 i1f£ 表 达 式 ， 该 表达 式 将 归结 到 一 个 对 sqrt~iter 的 调用 ) -一 也 不 会 导致 辣 堆 栈 
里 积累 任何 信息 ”'。 

如 果 我 们 不 想 利 用 这 一 情况 带 来 的 益处 (在 这 里 完全 不 必 保存 信息 )， 那 么 也 可 以 采用 如 
下 方式 实现 eval-sequence， 以 同样 方式 统一 处 理 序列 里 所 有 的 表达 式 一 一 将 寄存 器 内 容 
存 信 堆栈， 求 值 表 达 式 ， 返 回 时 恢复 寄存 器 。 重 复 地 这 样 做 ， 直 至 完成 所 有 表达 式 的 求 值 “。 

ev~-sequence 

(test (op no-more-exps?) (reg unev) ) 

(branch (label ev~sequence-end} ) 

(assign exp (op first-exp) (reg unev)) 

(save unev) 

(save env) 

{assign continue (label ev~sequence-continue) ) 

{goto (label eval-dispatch)} 
ev-sequence-continue 

(restore env) 

(restore unev) 

(assign unev (op rest-exps) (reg unev) ) 

(goto (label ev-sequence) ) 
ev-sequence-end 


{restore continue) 
(goto (reg continue) ) 


这 看 起 来 好 像 只 是 对 前 面 有 关 序 列 求 值 的 代码 做 了 -点 小 变动 ， 仅 有 的 不 同 点 就 是 对 序 


m0 在 5.1 节 里 ， 我 们 已 经 看 到 过 如 何在 一 个 寄存 器 机 器 里 实现 这 种 计算 过 程 ， 那 里 并 没有 堆栈 ， 计 算 过 程 的 状态 
都 保存 在 一 组 固定 的 寄存 器 里 。 : 

1 用 在 ev-sequence 里 的 尾 递归 实现 ， 是 许多 编译 程序 里 所 采用 的 一 种 有 名 的 优化 技术 的 变形 。 在 编译 一 个 
过 程 时 ， 如 果 这 一 过 程 的 最 后 是 一 个 过 程 调用 ， 那 么 就 可 以 用 直接 跳 到 该 过 程 入 口 点 来 取代 这 个 调用 。 像 我 
们 在 本 节 中 所 做 的 这 样 ， 将 这 一 策略 构筑 到 解释 器 里 ， 就 为 整个 语言 提供 了 统一 的 优化 。 

2 no-more-exps? 可 以 采用 下 面 的 定义 : 


(define (no-more-exps? seq) (null? seq)) 
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列 里 最 后 一 个 表达 式 也 像 对 其 他 表达 式 一 样 处 理 ， 使 之 穿 过 保存 和 恢复 循环 。 对 于 任何 表达 
式 ， 修 改 后 的 解释 器 仍 将 给 出 同样 的 值 。 但 是 ， 对 于 昆 递归 实现 而 言 ， 这 一 改动 却 是 致命 的 ， 
因为 如 果 现 在 要 返回 ， 那 就 必须 是 在 序列 里 的 最 后 一 个 表达 式 完 成 求 值 之 后 ， 因 为 这 时 才能 
恢复 所 保存 的 《无 用 的 ) 寄存 器 值 。 在 能 套 的 过 程 调用 中 ， 这 些 额 外 的 保存 值 就 会 积累 起 来 。 
由 于 这 种 情况 ， 像 sgrt-iter 一 类 的 过 程 所 需 的 空间 也 就 会 正比 于 迭代 的 次 数 ， 而 不 绸 是 稼 
量 空间 了 。 这 种 差异 可 能 变 得 非常 重要 ， 举 例 来 说 ， 在 采用 尾 递归 时 ， 一 个 无 穷 循 环 也 可 以 
只 通过 过 程 调 用 机 制 来 表述 : 
(define (count n) 

(newline) 

(display n) 

(count (+ n 1))) 
如 果 没 有 尾 递 归 ， 这 个 过 程 最 终 会 用 光 所 有 的 堆栈 空间 ， 而 要 想 表述 迭代 型 的 计算 ， 就 必须 
有 过 程 调 用 之 外 的 其 他 机 人 制 了 


5.4.3 条件、 三 值 和 定义 


与 元 循环 求 值 器 的 情况 一 样 ， 这 里 对 各 种 特殊 形式 的 处 理 ， 也 是 通过 有 选择 地 求 值 表 达 
式 里 的 一 些 部 分 。 对 于 if 表达 式 ， 我 们 必须 求 值 其 谓词 部 分 ， 并 基于 谓词 的 值 确定 是 求 值 它 
的 推论 部 分 呢 ， 还 是 求 值 它 的 替代 部 分 。 

在 求 值 其 谓词 部 分 之 前 ， 我 们 需要 把 i£f 表 达 式 本 身 保存 起 来 ， 以 便 后 来 可 以 从 中 提取 出 
推论 部 分 或 者 替代 部 分 。 我 们 也 要 保存 当时 的 环境 ， 后面 求 值 推论 部 分 或 者 替代 部 分 时 还 需 
要 用 它 。 还 要 保存 起 continue， 因 为 将 来 还 要 根据 它 返回 到 等 着 这 个 if£ 的 值 的 那个 表达 式 
去 ， 继 续 进行 该 表达 式 的 求 值 。 

ev-if 

(save exp) : save expression for later 
(save env) 

(save continue) 

(assign continue (label ev-if-decide) ) 

(assign exp (op if-predicate) (reg exp)) 

(goto (label eval-dispatch)) ; evaluate the predicate 


当 我 们 从 对 谓词 的 求 值 返回 时 ， 需 要 检查 得 到 的 值 是 真 还 是 假 ， 并 根据 这 一 检查 的 结 采 ， 
把 表达 式 的 推论 部 分 或 者 替代 部 分 放 和 人 exp 里 ， 而 后 转向 eval-dispatch。 请 注意 ， 在 这 
里 重新 恢复 了 env 和 continue ， 就 是 为 设置 好 eval-dispatch， 使 之 具有 正确 的 环境 以 及 
接受 if 表 达 式 值 的 正确 继续 位 置 。 
ev-if-decide 
(restore continue) 
{restore env} 
(restore exp) 
(test (op true?) (reg val)) 
(branch (label ev-if-consequent) ) 
ev-if-alternative 
{assign exp (op if-alternative) (reg exp)) 
(goto (label eval-dispatch) ) 
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ev-if-consequent 
(assign exp (op if-consequent) (reg exp)) 
(goto (label eval-dispatch) ) 


赋值 和 定义 

赋值 由 ev-assignment 处 理 ， 当 eval-dispatch 在 exp 里 遇 到 了 赋值 表达 式 ， 控 制 
就 会 转 到 这 里 。 位 于 ev-assignment 的 代码 首先 求 出 赋值 中 表达 式 部 分 的 值 ， 而 后 把 这 一 
新 值 粮 入 环境 里 。 这 里 假定 set~variable-value! 是 一 个 可 用 的 机 器 操作 。 


ev-assignment 

(assign unev (op assignment-variable) (reg exp) ) 

(save unev) ; save variable for later 

(assign exp (op assignment-value) (reg exp) ) 

(save env) 

(save continue) 

(assign continue (label ev-assignment-1) ) 

(goto (label eval-dispatch)) ; evaluate the assignment value 
ev-assignment-l 

(restore continue) 

(restore env) 

(restore unev) 

(perform 

(op set-variable-value!) (reg unev) (reg val) (reg env)) 
(assign val (const ok)) 
(goto (reg continue) ) 


定义 的 处 理 方式 与 此 类 似 : 
ev-definition 
(assign unev (op definition-variable) (reg exp) ) 
(save unev) ; save variable for later 
(assign exp (op definition-value) (reg exp) ) 
(save env) 
(save continue) 
(assign continue (label ev-definition-1)) 
(goto (label eval-dispatch)) ; evaluate the definition value 
ev-definition-l 
(restore continue) 
(restore env) 
(restore unev) 
(perform 
(op define-variable!) (reg unev) (reg val) (reg env)) 
(assign val (const ok) ) 
{goto (reg continue) ) 


练习 5.23 ”请 扩充 这 个 求 值 器 ， 以 处 理 cond、1et 等 等 的 派生 表达 式 (W412). mal 
以 假定 cond->if 等 等 语法 变换 都 是 可 用 的 机 器 操作 ， 以 “蒙混 过 关 ””。 

练习 5.24 ”请 将 cond 直接 实 现 为 一 个 新 的 特殊 形式 ， 而 不 是 将 它 归结 到 if 。 你 将 不 得 不 
构造 一 个 循环 ， 上 顷 序 检查 cond 里 各 个 子 句 的 谓词 ， 直 至 找到 一 个 真 的 ， 而 后 用 eV- 


M 这 并 不 真 的 就 是 “ 鞘 混 过关 ” 。 在 实际 从 空白 开始 实现 时 ， 我 们 很 可 能 在 用 这 种 显 式 控制 求 值 器 先 去 解释 一 
个 Scheme 程序 ， 完 成 例如 cond->i 这 样 的 源 代码 层次 的 变换 ， 在 实际 执行 前 先 运行 这 个 程序 。 
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Sequence 去 求 值 这 一 子 句 中 的 动作 序列 。 
练习 5.25 请 基于 4.2 节 的 惰性 求 值 器 修改 这 个 求 值 器 ， 使 它 能 采用 正则 顺序 去 求 值 。 


5.4.4 求 值 器 的 运行 


有 了 这 个 显 式 控制 求 值 器 之 后 ,我 们 从 第 1 音 开 始 的 一 个 开发 也 就 到 达 了 终 上 操 。 在 此 期 间 ， 
我 们 研究 了 求 值 过 程 的 一 系列 越 来 越 精确 的 模型 。 我 们 从 相对 非 形式 的 代 换 模型 开始 ， 而 后 
在 第 3 章 里 将 其 扩充 为 一 个 环境 模型 ， 使 我 们 能 够 处 理 状 态 和 变化 。 在 第 4 章 的 元 循环 求 值 右 
里 ， 我 们 用 Scheme 本 身 作为 语言 ， 以 便 把 表达 式 求 值 过程 中 环境 结构 的 构造 情况 显 式 地 表现 
出 来 。 现 在 有 了 寄存 器 机 器 ， 我 们 已 经 更 加 仔细 地 观看 了 求 值 器 里 有 关 存 储 管理 、 参 数 传递 
和 控制 的 机 制 。 在 每 一 个 新 的 描述 层次 上 ， 我 们 都 提出 了 一 些 问题 ， 并 解决 了 一 些 意义 含糊 
的 情况 ， 而 在 前 面 的 对 求 值 过 程 的 处 理 不 那么 精确 的 层次 上 ， 这 些 根本 就 不 会 出 现 。 为 了 理 
解 显 式 控 制 求 值 器 的 行为 ， 我 们 可 以 去 模拟 执行 它 ， 并 监视 其 执行 过 程 。 

现在 要 为 我 们 的 求 值 器 机 器 安装 一 个 驱动 循环 ， 它 扮演 着 4.1.4 节 里 driver-1loop 过 程 
的 角色 。 这 一 求 值 器 将 反复 打印 出 提示 ， 读 入 一 个 表达 式 ， 通过 转 到 eval-dispatch 去 求 
值 这 个 表达 式 ， 最 后 打印 出 结果 。 下 面 的 指令 序列 形成 了 这 一 显 式 控 制 求 值 器 中 控制 器 序列 
的 最 前 面 一 部 分 一 : 

read-eval-print-loop 

(perform (op initialize-stack)) 
(perform 

(op prompt-for-input) (const ";;; EC-Eval input:")) 
(assign exp (op read)) 
(assign env (op get-global-environment) ) 
(assign continue (label print-result) ) 

(goto (label eval-dispatch) ) 

print~result 
(perform 
(op announce-output) (const ";;; EC-Eval value:")) 


(perform (op user-print) (reg val)) 
(goto (label read-~eval-print-—loop) ) 


当 我 们 在 一 个 过 程 中 遇 到 了 错误 时 (例如 ， 由 apply-dispatch 指 明 的 “未 知 过 程 类 型 
错误 ”) ， 我 们 需要 打印 错误 信息 并 返回 到 驱动 循环 “。 
unknown-expression-type 


(assign val (const unknown-expression-type- error)} 
{goto (label signal-error) ) 


34 在 这 里， 我 们 假定 read 和 若干 打印 操作 都 可 以 作为 机 器 的 基本 操作 使 用 ,这样 的 假定 在 模拟 中 很 有 用 ， 但 
在 实践 中 却 是 不 实际 的 。 这 些 操 作 实际 上 都 是 非常 复杂 。 在 实践 中 ， 我 们 同样 需要 基于 低级 的 输入 输出 操作 
实现 它们 ， 这 种 低级 操作 的 例子 如 将 一 个 字符 送 到 某 设 备 ， 或 者 从 某 设备 取 一 个 字符 。 

为 了 支持 get-global-envitonment 操 作 ， 我 们 定义 : 


(define the-global-environment (setup-environment ) ) 


(define (get-global-environment ) 
the-global-environment ) 


315 也 存在 一 些 特殊 错误 ， 我 们 可 能 更 希望 由 解释 器 去 处 理 它们 。 但 这 种 事情 不 那么 简单 。 请 看 练习 5.30 。 


unknown-procedure-type 
{restore continue) ; clean up stack (from apply-dispatch) 
(assign val (const unknown-procedure-type-error ) ) 
(goto (label signal-error) ) 


signal-error 
(perform (op user-print) (reg val)) 
(goto (label read-eval-print-loop) ) 


为 了 模拟 的 需要 ， 我 们 在 每 次 穿 过 这 一 驱动 循环 时 都 做 一 次 堆栈 的 初始 化 ， 因 为 在 出 现 
错误 (例如 遇 到 未 定义 的 变量 ) 导致 循环 中 断 之 后 ， 堆 栈 有 可 能 不 空 “。 

如 果 把 从 5.4.1 节 到 5.4.4 节 的 代码 片段 组 合 到 一 起 ， 我 们 就 构造 出 了 一 个 求 值 夯 机 普 模 型 。 
现在 就 可 以 用 5.2 节 里 的 寄存 器 机 器 模拟 器 去 运行 它 了 。 


{define eceval 
(make~-machine 
"(exp env val proc argl continue unev) 
eceval-operations 
"( 
read-eval-print-loop 
< 如 上 给 出 的 完整 的 机 器 控制 器 > 
) ) ) 


我 们 还 必须 定义 一 些 Scheme 过 程 ， 去 模拟 这 个 求 值 器 里 使 用 的 所 有 基本 操作 。 这 些 也 就 十 我 
们 在 4.1 节 定义 元 循环 模拟 器 时 所 定义 的 那些 过 程 ， 还 有 在 5.4 节 的 各 个 脚注 里 定义 的 那些 过 
程 。 | 

(define eceval-operations 


(list (list *self-evaluating? self-evaluating) 


<eceval 机 器 操作 的 完整 列表 > ) ) 
现在 我 们 已 经 可 以 初始 化 有 关 的 全 局 环境 ， 并 运行 这 个 求 值 薄 了: 


(define the-global-environment (setup-environment) ) 
{start eceval) 


2s: EC-Eval input: 
(define (append x y) 
(if (null? x) 
Y 
(cons (car x) 
(append (cdr x) y)))) 

s1: EC-Eval value: 
ok 
¢:: EC-Eval input: 
(append ’(a b c) ‘(de £)) 
22: EC-Eval value: 
(abcde f) 


当然 ， 以 这 种 方式 求 值 表达 式 ， 所 需 的 时 间 将 远 远 长 于 我 们 直接 把 它们 送 给 >cheme ， 因 


16 我 们 也 可 以 仅仅 在 出 现 错误 之 后 才 去 初始 化 堆栈 。 但 是 ， 在 驱动 循环 里 完成 此 事 ， 能 使 我 们 更 方便 地 监视 求 
值 器 的 执行 ， 下 面 将 讨论 这 方面 的 问题 。 
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为 在 这 个 模拟 过 程 中 涉及 到 许多 层次 。 我 们 的 表达 式 由 显 式 控制 求 值 器 求 值 ， 这 个 求 值 器 是 
通过 一 个 Scheme 程序 模拟 的 ， 而 那个 程序 本 身 又 被 cheme 解 释 器 求 值 。 

监视 求 值 器 的 执行 性 能 

模拟 可 以 成 为 指导 求 值 器 的 实际 实现 的 一 种 有 力 工具 。 模 拟 不 仅 使 人 更 容易 去 探索 寄存 
器 机 器 设计 的 各 种 变形 ， 也 使 人 更 容易 监视 被 模拟 求 值 器 的 执行 性 能 。 举 例 说 ， 性 能 中 的 一 
个 重要 因素 就 是 求 值 器 对 于 堆栈 的 使 用 是 否 非常 有 效 。 我 们 只 需要 用 一 个 特殊 的 模拟 器 版 本 
定义 求 值 器 寄存 器 机 器 ， 在 其 中 收集 有 关 堆 栈 使 用 的 各 种 统计 信息 ( 见 5.2.4 市 )， 并 且 在 这 个 
求 值 器 的 print-result 入 口 点 增加 了 一 条 打印 统计 信息 的 指令 ， 就 可 以 观察 在 求 值 各 种 表 
达 式 时 堆栈 操作 的 执行 次 数 卫 : 


print-result 


(perform (op print-stack-statistics)),; added instruction 
(perform 
(Op announce-output) (const ";;; EC-Eval value:") ) 


。 ; same as before 


与 求 值 器 的 交互 ， 现 在 看 起 来 是 下 面 的 样子 : 


>.. EC-Eval input: 
(define (factorial n) 
(if (=n 1) 
1 
{* (factorial (- n 1)) n))) 
(total-pushes = 3 maximum-depth = 3) 
*:: EC-Eval value: 
ok 
s:: EC-Eval input: 
(factorial 5) 
(total-pushes = 144 maximum-depth = 28) 
s.. EC-Eval value: 
120 


注意 ， 求 值 器 的 驱动 循环 将 在 每 次 交互 开始 时 重新 初始 化 堆栈 ， 因 此 ， 这 样 打印 出 的 统计 信 
息 也 就 是 在 对 前 一 表达 式 求 值 中 所 用 的 堆栈 操作 次 数 。 

练习 5.26 ”请 利用 上 述 的 受 监视 堆栈 考察 求 值 器 的 尾 递归 性 质 〈 见 5.4.2 节 )。 局 动 求 值 器 
并 定义 下 面 取 自 1.2.1 节 的 迭代 型 factorial 过 程 : 


(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
{iter 1 1)) 


用 一 个 比较 小 的 n 值 运行 这 一 过 程 。 记 录 下 对 每 个 值 计算 n! 时 的 最 大 堆栈 深度 和 压 栈 次 数 。 
a) 你 会 发 现 求 值 A! 时 的 最 大 堆栈 深度 是 与 4 无 关 的 。 这 个 深度 是 什么 ? 
b 根据 你 得 到 的 数据 确定 一 个 公式 ， 对 于 任何 n >1， 它 都 基于 n 的 值 描述 了 在 求 值 rn: 中 所 
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用 的 总 的 压 栈 操作 次 数 。 请 和 注意， 这 里 的 次 数 应 该 是 "的 一 个 线性 国 数 ， 因 此 你 需要 确定 其 中 
的 两 个 常量 。 
练习 5.</ ”与 练习 5.26 做 一 个 比较 ， 研 究 下 面 这 个 采用 递归 方式 求 阶乘 的 过 程 的 行为 : 


(define (factorial n) 
{if (= n 1) 
1 
(* (factorial (- n 1)) n))) | 
通过 在 受 监视 的 堆栈 上 运行 这 一 过 程 ， 确 定 对 任何 hn 之 1， 在 求 值 n! 的 过 程 中 堆栈 的 最 大 深 度 
和 总 的 压 栈 次 数 ， 将 它们 描述 为 n 的 阔 数 (这 些 函 数 仍然 古 线性 的 ) 。 将 你 的 试验 结果 总 结 在 
下 面 表 里 ， 在 表 中 各 个 空格 里 填 入 基于 n 的 适当 表达 式 。 


最 大 深度 压 栈 次 数 
aoma | 


堆栈 的 最 大 深度 是 求 值 器 在 执行 计算 中 所 用 存储 空间 量 的 一 个 度量 ， 压 栈 次 数 则 对 应 于 求 值 
所 需 的 时 间 。 

练习 5.28 ”请 修改 上 面 求 值 器 的 定义 ， 像 5.4.2 布 所 说 的 那样 修改 eval-sequence, 使 
求 值 器 不 再 是 尾 递 归 的 。 重 新 运行 你 在 练习 3.20 和 练习 3.27 里 做 的 试验 ， 以 此 说 明 上 面 两 个 
factorial 过 程 版 本 现在 需要 的 空间 都 随 输入 线性 增长 。 

练习 5.29 请 监视 在 树 型 递归 的 韭 波 那 契 计算 中 堆栈 操作 的 情况 : 


(define (fib n) 
(if (< n 2) 
n 
(+ (fib (- n 1})) (fib (- n 2))))) 


a) 给 出 一 个 基于 n 的 公式 ， 描 述 对 rn >2 计 算 Fib(n) 时 所 需 的 最 大 堆栈 深度 。 提 示 : 在 1.2.2 
节 我 们 曾经 说 过 ， 这 一 过 程 所 需 的 空间 随 着 n 线 性 增长 。 

b) 给 出 一 个 基于 7 的 公式 ， 描 述 对 “>2 计 算 Fib(m) 时 所 需 的 全 部 压 栈 操作 次 数 。 你 将 发 
现 这 一 压 栈 次 数 (对 应 于 计算 所 需 的 时 间 ) 将 随 着 n 指 数 地 增长 。 提 示 : 令 3(n) 是 计算 Fib(n) 
中 所 用 的 压 栈 次 数 ， 你 应 能 论证 ， 存 在 着 某 个 与 x 无关 的 “开销 ”常数 k ， 可 以 基于 S(n 一 1)， 
Sin 一 2) 和 常数 k 写 出 一 个 表示 5(n) 的 公式 。 请 给 出 这 个 公式 ， 并 说 明 k 是 什么 。 而 后 说 明 3(n) 
可 以 表述 为 a Fib(n +1)+b， 并 请 给 出 a 和 5b 的 值 。 

练习 5.30 ”我 们 的 求 值 器 现在 只 能 捕捉 两 类 错误 并 发 出 信号 一 -未知 的 表达 式 类 型 ， 以 及 
未 知 的 过 程 类 型 。 其 他 错误 将 使 这 个 求 值 器 退出 读 入 一 求 值 一 打印 循环 。 当 我 们 用 寄存 器 机 
器 模拟 器 运行 这 个 求 值 器 时 ， 这 些 错误 都 只 能 由 基础 的 Scheme 系统 去 捕捉 。 这 种 情况 类 似 于 
当 用 户 程序 出 了 一 个 错时 计算 机 就 会 垮台 “。 做 好 一 个 真正 的 处 理 错误 的 系统 二 一 个 六 项 目 ， 
但 理解 在 这 里 会 遇 到 什么 问题 ， 却 很 值得 花 一 点 时 间 。 


37 非常 遗 做 ， 这 正 是 常规 的 基于 编译 的 语言 系统 (áC) 的 普遍 情况 。 在 UNIX 里 出 现 这 种 情况 时 系统 会 “内 
板 印 载 "， 在 DOS/Windows 里 它 将 变 成 大 灾难 。Macintosh 机 器 将 显示 出 一 个 爆炸 的 炸弹 图 画 ， 并 给 人 提供 重 
新 引导 计算 机 的 机 会 一 一 如 果 你 幸运 的 话 。 
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a) 出 现在 求 值 过 程 中 的 错误 ， 例 如 企图 访问 未 约束 的 变量 ， 可 以 通过 修改 查询 操作 的 
方式 捕捉 。 可 以 让 它 在 遇 到 这 种 情况 时 返回 一 个 可 辨认 的 条 件 码 ， 要 求 这 个 条 件 码 不 征 任 何 
用 户 变 量 的 可 能 值 。 这 样 ， 求 值 器 就 可 以 检查 这 一 条 件 码 ， 如 果 需 要 时 就 转 到 s1gnal- 
error 去 。 请 在 上 面 求 值 器 里 找 出 所 有 需要 修改 的 地 方 ， 并 设法 更 正之 。 为 此 需要 做 很 多 
工作 。 

b) 更 糟糕 的 是 处 理由 基本 操作 的 应 用 产生 出 错误 信号 的 问题 ， 例 如 要 用 0 去 除 ， 或 者 企图 
去 求 一 个 符号 的 car 。 在 专业 水 平 的 高 质量 系统 里 ， 系 统 将 检查 每 个 基本 操作 的 应 用 ， 因 为 
安全 性 也 是 这 些 基 本 操作 的 一 部 分 。 举 个 例子 ， 在 每 次 调用 car 之 前 都 需要 确认 其 参数 确实 
是 序 对 。 如 果 参 数 不 是 序 对 ， 那 么 这 一 应 用 就 会 将 一 个 可 辨认 的 条 件 码 返 回 给 求 值 带 ， 叶 致 
求 值 器 报告 一 个 错误 。 我 们 也 可 以 在 寄存 器 机 器 模拟 器 中 安排 好 这 些 事情 ， 在 那里 让 每 个 基 
本 过 程 检查 自己 的 参数 的 可 用 性 ， 在 出 问题 时 返回 适当 的 可 辨认 的 条 件 码 。 这 样 ORI a E 
的 primitive-apply 代 码 就 可 以 检查 这 里 的 条 件 码 ， 在 需要 时 转 到 signal-~error 。 请 构 
造 起 这 一 结构 并 使 之 能 够 工作 。 这 是 一 个 很 大 的 工作 诬 题 。 


5.5 编译 
5.4 节 的 显 式 控制 求 值 器 是 一 部 寄存 器 机 器 ， 它 的 控制 器 能 解释 Scheme 程 序 。 在 这 一 市 里 ， 


我 们 将 要 看 到 的 是 如 何在 一 部 控制 器 不 是 Scheme 解 释 器 的 寄存 器 机 器 上 运行 3Scheme 程 序 。 

显 式 控制 求 值 器 是 一 部 通用 机 器 一 一 它 可 以 执行 用 Scheme 语 言 描述 的 任何 计算 过 程 。 该 
求 值 器 的 控制 器 与 它 的 数据 通路 和 谐 地 相互 配合 ， 以 执行 所 需要 的 计算 过 程 。 也 就 契 说 ， 这 
一 求 值 器 的 数据 通路 也 是 通用 的 ， REST MAW a, 它们 就 足以 执行 我 们 所 需要 
的 任何 计算 ”。 | 

作为 商品 的 通用 计算 机 也 是 寄存 器 机 器 ， 它 们 的 组 织 形 式 也 是 围绕 着 一 组 寄存 器 和 一 组 
操作 ， 这 些 东 西 构成 了 一 个 高 效 而 又 方便 的 数据 通路 集合 。 通用 计算 机 的 控制 器 也 是 一 个 寄 
存 器 机 器 语言 的 解释 器 ， 该 语言 与 我 们 前 面 看 到 的 东西 类 似 。 这 样 的 一 个 语 Stk PAIS Gt 
算 机 的 本 机 语言 ， 或 称 为 机 器 语言 。 用 这 种 机 器 语言 写 出 的 程序 就 是 指令 的 序列 ， 它 们 使 用 
这 部 机 器 的 数据 通路 。 例 如 ， 我 们 完全 可 以 将 显 式 控制 求 值 器 的 指令 序列 看 作 是 某 台 通用 计 
算 机 的 一 个 机 器 语言 程序 ， 而 不 是 看 作 一 部 特定 的 解释 器 机 器 的 控制 大 。 

为 了 在 高 级 语言 和 寄存 器 机 器 语言 之 间 的 礼 沟 上 架设 起 一 座 桥 梁 ， 存在 着 两 种 常见 有 的 环 
略 。 显 式 挖 制 求 值 器 展示 的 是 一 种 称 为 解释 的 策略 。 此 时 我 们 用 有 关机 器 的 本 机 语言 写 出 一 
个 解释 器 ， 它 设法 配置 好 这 部 机 器 ， 使 它 能 够 执行 某 个 语言 ( 称 为 源 语言 ) 的 程序 ， 而 这 一 
源 语 言 可 能 与 执行 求 值 的 机 器 的 本 机 语言 完全 不 同 。 这 种 源 语言 的 基本 过 程 被 实现 为 一 个 村 
程序 库 ， 用 给 定 机 器 的 本 机 语言 写 出 。 被 解释 的 程序 ( 称 为 源 程 序 ) 用 一 个 数据 结构 表示 。 
解释 器 遍历 这 种 数据 结构 ， 分 析 源 程序 的 情况 。 在 这 样 做 的 过 程 中 ， 它 需要 调用 取 自 库 的 返 
当 的 基本 子 程序 ， 以 模拟 源 程序 所 要 求 的 行为 。 

在 这 一 节 里 ， 我 们 将 要 探讨 另 一 种 称 为 编译 的 策略 。 一 个 针对 某 种 给 定 源 语言 和 茶 种 给 


si 这 只 是 一 个 理论 性 的 结论 。 我 们 并 不 想 断 言说， 对 于 作为 一 种 通用 计算 机 而 言 ， 这 一 求 值 器 的 数据 通路 是 特 
中 方 便 的 或 者 特别 有 效 的 数据 通路 集合 。 举 例 说 ， 对 于 实现 高 性 能 的 浮 点 计算 ， 或 者 其 中 包含 大 量 对 二 进 制 
序列 操作 的 计算 ， 这 组 数据 通路 就 不 是 很 好 。 
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定 机 器 的 编译 器 ， 能够 将 源 程 序 翻 译 为 用 这 部 机 器 的 本 机 语言 写 出 的 等 价 程 序 ( 称 为 目标 程 
序 )。 我 们 在 这 一 节 里 将 要 实现 的 编译 器 ， 能 够 将 用 scheme 写 出 的 程序 ， 翻 译 为 可 以 用 显 式 控 
制 求 值 器 的 数据 通路 执行 的 指令 序列 “。 

与 解释 方式 相 比 ， 采 用 编译 方式 可 以 大 大 提高 程序 执行 的 效率 ， 我 们 将 在 下 面 有 关 编 
译 器 的 综述 里 解释 有 关 情 况 。 在 另 一 方面 ,解释 器 则 为 程序 开发 和 排除 错误 提供 了 一 个 更 
强大 的 环境 ， 因 为 被 执行 的 源 代码 在 运行 期 间 都 是 可 用 的 ， 可 用 去 检查 和 修改 。 此 外 ， 由 
于 整个 基本 操作 的 库 都 在 那里 ， 我 们 可 以 在 排除 错误 的 过 程 中 构造 新 程序 ， 随 时 把 它们 加 
和 系统 中 。 

由 于 看 到 了 编译 和 解释 的 互补 优势 ， 现 代 程 序 开发 环境 很 推崇 一 种 混合 的 策略 。Lisp 解 
释 器 通常 都 采用 一 种 组 织 方 式 ， 使 得 解释 性 程序 和 编译 性 程序 可 以 相互 调用 。 这 如 使 程序 员 
可 以 编译 那些 自己 认为 已 经 排除 了 错误 的 程序 部 分 ， 从 而 取得 编译 方式 的 效率 优势 ， 而 让 那 
些 正在 进行 交互 式 开发 和 排 错 的 ， 还 在 不 断 变 化 的 程序 部 分 的 执行 仍然 维持 在 解释 模式 之 中 。 
在 下 面 的 编译 器 实现 完成 之 后 ， 在 3$.$.7 节 里 ， 我 们 将 要 说 明 如 何 将 它 与 解释 器 连接 ， 产 生出 
一 个 集成 的 编译 器 一 解释 器 开发 环境 。 

有 关 编 译 器 的 综述 

从 结构 和 所 执行 的 功能 上 看 ， 我 们 的 编译 器 都 很 像 前 面 的 解释 器 。 正 因为 此 ， 在 这 个 编 
译 器 里 分 析 表 达 式 的 机 制 将 与 解释 器 中 使 用 的 东西 类 似 。 进 一 步 说 ,为 了 使 编译 代码 与 解释 
代码 方便 地 互 连 ， 我 们 将 按照 下 面 方式 设计 这 一 编译 器 ， 使 它 产 生 的 代码 遵循 与 解释 器 相同 
的 寄存 器 使 用 规则 ， 热 行 环境 仍 保存 在 env 寄 存 器 里 ， 实 际 参数 表 在 arg1 寄存器 里 积累 ， 被 
应 用 的 过 程 存在 proc 寄 存 器 里 ， 过 程 通 过 val 返 回 它 们 的 值 ， 过 程 将 要 使 用 的 返回 地 址 保存 
在 continue 里 。 一 般 而 言 ， 这 个 编译 器 将 把 一 个 源 程序 翻译 为 一 个 目标 程序 ， 该 目标 程序 
所 执行 的 寄存 器 操作 ， 从 本 质 上 说 ， 也 就 是 解释 器 求 值 同 一 个 源 程序 时 所 执行 的 操作 。 

这 一 描述 提出 了 一 种 实现 基本 编译 器 的 策略 : 我 们 应 该 以 与 解释 器 同样 的 方式 去 过 历 表 
达 式 。 当 遇 到 解释 器 在 求 值 表达 式 时 应 该 执行 一 条 寄存 器 指令 时 ， 我 们 不 是 去 执行 这 条 指令 ， 
而 是 将 它 收 集 到 一 个 序列 里 。 这 样 得 到 的 指令 序列 就 是 我 们 所 需要 的 目标 代码 。 现 在 就 可 以 
看 到 编译 器 优 于 解释 器 的 地 方 了 。 解 释 器 在 每 次 求 值 一 个 表达 式 时 一 一 例如 ，(f 84 96), 
都 需要 去 做 对 这 个 表达 式 的 分 类 工作 (发 现 这 是 一 个 过 程 应 用 )， 需 要 检查 表达 式 的 表 是 否 结 
束 (发 现 这 里 存在 两 个 运算 对 象 )。 而 在 采用 编译 器 的 情况 下 ， 对 这 一 表达 式 的 分 析 只 需要 做 
一 次 ， 也 就 是 在 编译 期 间 生 成 指令 序列 的 时 候 。 在 由 编译 器 产生 出 的 目标 代码 里 ， 只 包含 了 
那些 对 运算 符 和 两 个 运算 对 象 求 值 的 指令 ， 以 及 将 有 关 的 过 程 (在 proc 里 ) 应 用 于 实际 参数 
(在 argl 里 ) 的 指令 。 

这 里 所 看 到 的 ， 实 际 上 也 就 是 我 们 在 4.1.7 节 实现 分 析 型 求 值 器 时 所 采用 的 同一 类 优化 技 
术 。 但 是 ， 在 编译 性 的 代码 里 还 存在 进一步 获得 效率 的 可 能 性 。 在 解释 器 运行 时 ， 它 需要 按 
照 一 种 能 够 适用 于 该 语言 里 的 所 有 表达 式 的 方式 工作 。 一 段 给 定 的 编译 代码 的 情况 则 与 此 完 


ne h 
se 实际 上， 运行 这 种 编译 产生 的 代码 的 机 器 可 以 比 相应 的 解释 器 机 器 更 简单 ， 因 为 我 们 并 没有 使 用 其 中 的 exB 
和 unev 寄 存 器 ， 解 释 器 里 用 这 些 寄存 器 保存 未 求 值 的 表达 式 。 采 用 了 编译 器 之 后 ， 这 些 表达 式 都 被 构造 到 
守 存 器 机 器 需要 去 执行 的 编译 结果 代码 里 了 。 由 于 同样 的 原因 ， 我 们 也 不 再 需要 处 理 表达 式 语法 的 机 器 操作 。 
但 是 编译 结果 代码 里 将 使 用 另外 几 个 机 器 操作 (用 于 表示 编译 后 的 过 程 对 象 )， 它 们 没有 出 现在 显 式 控制 求 
值 器 机 故里 。 


全 不 同 ， 因 为 它 的 目标 就 是 执行 某 个 特定 的 表达 式 。 这 种 差异 可 能 产生 极 大 的 影响 ， 例 如 在 
用 堆栈 保存 寄存 器 方面 。 当 解释 器 求 值 一 个 表达 式 时 ， 它 必须 为 所 有 偶然 可 能 发 生 的 情况 做 
好 准备 。 因 此 ， 在 求 值 一 个 子 表达 式 之 前 ， 解 释 器 就 必须 将 所 有 后 来 可 能 需要 的 寄存 器 存 人 
堆栈 ， 因 为 在 子 表达 式 里 可 能 做 任何 求 值 工作 。 而 在 另 一 面 ， 编 译 器 就 可 以 去 萎 察 它 所 处 理 
的 特定 表达 式 ， 在 产生 出 的 代码 里 避免 所 有 并 不 必要 的 堆栈 操作 。 

作为 这 方面 情况 的 一 个 例子 ， 现 在 考虑 组 合式 (£ 84 96)。 在 解释 强求 值 这 个 组 合式 的 
运算 符 之 前 ， 它 需要 为 这 个 求 值 做 好 准备 ， 将 保存 着 运算 对 象 和 环境 的 寄存 器 都 存 和 人 堆栈， 
因为 这 些 值 后 来 还 要 使 用 。 而 后 解释 器 去 做 运算 符 的 求 值 ， 在 Val 里 得 到 求 值 的 结果 ， 恢 复 
所 有 保存 在 堆栈 里 的 寄存 器 值 ， 最 后 把 val 里 的 结果 移 到 proc。 然 而 ， 在 需要 处 理 的 这 个 特 
定 表达 式 里 ， 运 算 符 也 就 是 符号 f ， 对 于 它 的 求 值 由 机 器 操作 lookup-variable-value 元 
成 ， 在 此 过 程 中 根本 不 会 修改 任何 寄存 器 。 我 们 将 要 在 本 节 里 实现 的 编译 器 就 能 利用 这 一 事 
实 ， 在 产生 出 的 代码 里 ， 它 将 用 下 面 指令 完成 对 这 个 运算 符 的 求 值 工作 : 

(assign proc (op lookup-variable-value) (const f) (reg env)) 
这 一 代码 不 仅 避 免 了 原本 就 没有 必要 的 保存 和 恢复 工作 ， 而 且 直 接 将 找 出 的 值 赋 给 proc。 而 
解释 器 是 先 在 val 里 得 到 这 个 值 ， 而 后 又 把 它 移 到 Poc 。 

编译 器 还 能 优化 对 环境 的 访问 。 通 过 对 代码 的 分 析 ， 在 许多 情况 下 ， 编 译 器 可 以 确定 在 
哪个 框架 保存 着 某 个 特定 值 ， 并 直接 访问 这 一 框架 ， 而 不 需要 去 执行 1ooKupP-~variable- 
value 搜 索 。 我 们 将 在 5.5.6 节 讨论 如 何 实现 这 种 变量 访问 。 当 然 ， 在 那 之 前 ， 我 们 还 是 准备 
集中 精力 ， 讨 论 如 何 完成 上 面 所 描述 的 寄存 器 和 堆栈 优化 。 编 译 器 还 可 以 执行 许多 其 他 优化 
工作 ， 例 如 将 某 些 基 本 操作 “在 线 处 理 ”， 而 不 是 使 用 一 次 通用 的 apP1LY 机 制 〈《 见 练习 3.38 ) 。 
但 我 们 将 不 在 这 里 强调 这 些 东 西 。 这 一 节 里 的 主要 目标 ， 就 是 在 一 个 经 过 简化 《但 仍然 很 有 
意思 ) 的 上 下 文中 展示 编译 过 程 里 的 各 种 情况 。 


5.5.1 编译 器 的 结构 


在 4.1.7 节 里 ， 我 们 修改 了 原来 的 元 循环 解释 器 ， 将 分 析 过 程 与 实际 执行 分 离开 。 在 分 析 
每 个 表达 式 后 产生 出 一 个 执行 过 程 ， 它 以 一 个 环境 作为 参数 ， 执 行 所 需 的 操作 。 在 我 们 的 编 
译 器 里 ， 也 要 做 本 质 上 与 那里 相同 的 分 析 。 但 现在 不 是 要 产生 出 一 个 执行 过 程 ， 而 是 要 生成 
出 一 些 能 够 在 我 们 的 寄存 器 机 器 上 运行 的 指令 序列 。 

这 个 编译 器 里 的 过 程 compile 完 成 最 高 层 的 分 派 ， 它 对 应 于 4.4.1 节 里 的 eval 过 程 ， 
4.1.7 池 里 的 analyze 过 程 , 以 及 在 5.4.1 节 里 的 显 式 控制 求 值 器 里 的 eval-dispatch 入 口 后 。 
这 个 编译 器 很 像 一 个 解释 器 ， 它 也 要 使 用 4.1.2 节 里 定义 的 各 种 表达 式 语 法 过 程 ”。compile 
执行 一 个 基于 被 编译 的 表达 式 语法 类 型 的 分 情况 分 析 ， 对 于 每 种 表达 式 类 型 ， 都 将 它们 分 折 
到 一 个 特定 的 代码 生成 器 : 


(define (compile exp target linkage) 
(cond ((self-evaluating? exp) 


20 请 注意 ， 我 们 的 编译 器 是 一 个 Scheme 程序 ， 而 那些 用 于 操作 表达 式 的 语法 过 程 ， 也 是 在 元 循环 求 值 器 里 使 用 
的 真正 的 cheme 过 程 。 在 另 一 方面 ， 对 于 显 式 控制 求 值 带 ， 我 们 则 假定 了 同样 的 一 组 等 价 的 语法 过 程 可 用 作 
寄存 器 机 器 的 操作 。( 当然 ， 在 Scheme 里 模拟 寄存 器 机 如 时 ， 在 我 们 的 寄存 器 机 器 模拟 器 里 使 用 的 确实 是 这 
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(compile-~self-evaluating exp target linkage) ) 
( (quoted? exp) (compile-quoted exp target linkage) ) 
( (variable? exp) 
(compile-variable exp target linkage) ) 
( (assignment? exp) 
(compile-assignment exp target linkage)) 
( (definition? exp) 
(compile-definition exp target linkage)) 
( (if? exp) (compile-if exp target linkage)) 
( (lambda? exp) (compile-lambda exp target linkage) ) 
( (begin? exp) 
 (compile-sequence (begin-actions exp) 
target 
linkage)) 
( (cond? exp) (compile (cond->if exp) target linkage)) 
( (application? exp) | 
(compile-application exp target linkage) ) 
(else 
(error "Unknown expression type -~ COMPILE" exp)))) 


目标 和 连接 

除了 被 编译 表达 式 之 外 ，compile 和 它 所 调用 的 代码 生成 器 还 有 另外 两 个 参数 。 一 个 是 
目标 (target) ， 它 描述 的 是 一 个 寄存 器 ， 被 编译 出 的 代码 段 应 该 将 表达 式 的 值 傈 存 到 这 里 。 
还 有 一 个 称 为 连接 描述 符 (linkage )， 它 描述 的 是 相关 表达 式 的 编译 结果 代码 在 完成 目 己 的 执 
行 之 后 ， 应 该 如 何 继续 下 去 。 这 一 连接 描述 符 可 以 要 求 代码 做 下 面 三 件 事情 之 一 : 

*。 继续 序列 里 的 下 一 条 指令 (采用 连接 描述 符 next 表示)。 

。 从 被 编译 的 过 程 返回 (采用 连接 描述 符 return 表 示 )。 

。 跳 到 一 个 命名 的 入 口 点 (描述 这 种 情况 的 方式 就 是 以 指定 标号 作为 连接 描述 符 ) 。 

举例 来 说 ， 以 val 寄 存 器 作为 目标 ， 以 next 作 为 连接 描述 符 编 译 表 达 式 3 (这 是 一 个 自 求 
值 表达 式 )， 将 产生 出 下 面 的 指令 

(assign val (const 5)) 
而 用 连接 return 编 译 同一 表达 式 ， 将 产生 下 面 的 指令 序列 


(assign val (const 5)) 
(goto (reg continue) } 


对 于 第 一 种 情况 ， 执 行将 继续 去 做 序列 里 的 下 一 指令 。 对 于 第 二 种 情况 ， 我 们 将 从 一 个 过 程 
调用 里 返回 。 在 这 两 种 情况 中 ， 表 达 式 的 值 都 被 存放 在 目标 寄存 器 Val 里 。 


指令 序列 和 堆栈 的 使 用 

每 个 代码 生成 器 都 返回 一 个 指令 序列 ， 其 中 包含 的 是 由 被 编译 表达 式 生 成 出 的 目标 代码 。 
由 复合 表达 式 生 成 的 代码 ， 是 通过 组 合 起 针对 其 中 的 成 分 表达 式 的 代码 生成 器 的 输出 而 建立 
起 来 的 ， 就 像 前 面 对 复 合 表 达 式 的 求 值 ， 是 通过 求 值 其 中 的 成 分 表达 式 而 完成 一 样 。 

组 合 指令 序列 的 最 简单 方式 就 是 调用 一 个 名 为 append-instruction-sequences 的 
过 程 。 这 个 过 程 以 任意 数目 的 指令 序列 作为 参数 ， 假 定 这 些 序列 应 该 顺序 执行 。 这 一 过 程 将 
这 些 序列 拼接 起 来 ， 返 回 这 样 组 合 而 成 的 指令 序列 。 也 就 是 说 ， 如 果 <seq1> 和 <seq2> 都 万 指 
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(append-instruction-sequences <seqi> <seq:>) 


产生 出 的 指令 序列 就 是 

<S€q\> 

<S€q>> 

如 果 某 个 时 候 需 要 保存 一 些 寄存 器 的 值 ， 编 译 器 的 代码 生成 器 就 会 使 用 preserving,，， 
它 实 现 了 一 种 更 加 精细 的 组 合 指令 序列 的 方式 。preserving 有 二 个 参数 ,一 个 寄存 器 集合 
和 两 个 需要 上 顺序 执行 的 指令 序列 。preserving 组 合 这 两 个 序列 的 方式 能 够 保证 ， 如 末 其 参 
数 集合 中 的 某 个 寄存 器 的 值 在 第 二 个 指令 序列 里 需要 用 的 话 ， 这 个 值 就 不 会 受到 第 一 个 指令 
序列 执行 的 影响 。 这 也 就 是 说 ， 如 果 第 一 个 序列 里 修改 某 个 寄存 器 ， 而 第 二 个 序列 里 实际 需 
要 这 个 寄存 器 的 原 值 ， 那 么 preserving 就 会 在 把 第 一 个 序列 归并 进来 之 前 ， 在 这 个 序列 的 
外 面包 上 对 这 个 寄存 器 的 一 个 save 和 一 个 restore。 如 果 情 况 不 是 这 样 ，Preserving 就 
返回 简单 连接 起 来 的 序列 。 这 样 ， 举 例 来 说 ， 对 于 : 


(preserving (list <reg\> <reg:>) <seq;> <seq:>) 


根据 <seq1> 和 <seq2> 里 如 何 使 用 <reg1> 和 <reg2>， 有 可 能 产生 下 面 四 种 序列 之 一 


<seq\> (save <reg\>) (save <reg.>) (save <reg,>) 
<S€q2> <S€q\> <seqi> | (save <reg\>) 
(restore <regz)\>) (restore <reg2>, <seq>) 
<S€q2>) <S€q2> (restore <reg\>) 


(restore <reg,>) 
<SE€qQ2> 

通过 采用 preserving 组 合 指令 序列 ， 编 译 器 就 可 以 避免 各 种 不 必要 做 的 堆栈 操作 S 
这 一 做 法 也 把 是 否 需 要 生成 save 和 restore 指 令 的 细节 全 部 隔离 在 presezVing 过 程 里 ， 
把 这 件 事情 与 写 各 个 代码 生成 器 时 所 需要 关心 的 问题 分 离开 来 。 事 实 上 ， 各 个 代码 生成 器 都 
不 会 显 式 地 产生 save 和 restore 指 令 

从 原则 上 说 ， 我 们 完全 可 以 用 一 个 简单 的 指令 的 表 去 表示 一 个 指令 序列 。 如 果 采 用 这 种 
形式 , append-instruction-sequences 组 合 指令 序列 的 工作 也 就 是 执行 一 次 常规 的 表 
append。 但 是 如 果真 的 那样 做 ，preserving 就 会 变 成 一 个 非常 复杂 的 操作 ， 因 为 它 将 不 
得 不 去 分 析 每 个 指令 序列 ， 设 法 确定 指令 序列 里 使 用 它 的 寄存 器 (参数 ) 的 情况 。 这 不 单 会 
使 preserving 变 得 异常 复杂 ， 也 使 它 非常 低 效 ， 因 为 它 将 必须 去 分 析 自 己 的 每 个 指令 序 
列 参数 ， 即 使 这 些 参 数 本 身 也 是 通过 调用 preserving 而 构造 起 来 的 ， 此 时 它们 里 的 各 个 
部 分 都 曾经 分 析 过 。 为 了 避免 这 种 重复 分 析 ， 我 们 将 为 每 个 指令 序列 关联 上 上 有关 其 中 寄存 
器 使 用 的 信息 。 当 我 们 构造 起 一 个 简单 的 指令 序列 时 ， 就 会 显 式 地 提供 有 关 的 信息 ， 而 那 
些 组 合 指令 的 过 程 ， 也 会 从 各 个 成 分 序列 的 相关 信息 中 推导 出 组 合 后 产生 的 序列 的 寄存 器 
使 用 信息 。 
一 个 指令 序列 将 包含 三 部 分 信息 : 
。 它 在 序列 中 的 指令 执行 之 前 必须 初始 化 的 那些 寄存 器 的 集合 (我 们 称 这 些 寄存 器 为 这 个 
序列 所 需要 的 )。 
。 在 这 一 序列 中 ， 其 值 会 被 修改 的 那些 寄存 器 的 集合 。 
。 序列 里 的 实际 指令 (也 称 为 语 身 )。 
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我 们 将 把 指令 序列 表示 为 一 个 包含 这 三 个 部 分 的 表 。 这 样 ， 指 令 序列 的 构造 函数 就 是 : 
(define (make-instruction-sequence needs modifies statements) 
(list needs modifies statements) ) 


举 个 例子 ， 设 想 一 个 包含 了 两 条 指令 的 序列 ， 它 在 当前 环境 里 查看 变量 x 的 值 并 将 这 个 值 
赋 给 val ， 而 后 返回 。 这 个 指令 序列 要 求 寄 存 器 env 和 continue 已 经 过 初始 化 ， 并 要 修改 寄 
存 器 val 。 因 此 这 个 序列 可 以 如 下 构 霹 : 


(make-instruction-sequence '(env continue) (val) 
"(({assign val 
(op lookup-variable-value) (const x) (reg env) ) 
(goto (reg continue) ))) 


我 们 有 时 也 可 能 需要 构造 不 含 语句 的 指令 序列 
(define (empty-instruction-sequence) 
(make-instruction-sequence °() () ‘())) 


5.5.4 节 将 给 出 各 种 组 合 指令 序列 的 过 程 。 

练习 5.31 ”在 求 值 一 个 过 程 应 用 时 ， 显 式 控 制 求 值 器 总 要 在 运算 符 求 值 的 前 后 保存 和 灸 
复 env 寄 存 器 ， 在 对 每 个 运算 对 象 (除了 最 后 一 个 之 外 ) 求 值 的 前 后 保存 和 恢复 enV， 在 对 每 
个 运算 对 象 求 值 的 前 后 保存 和 恢复 arzg1， 在 求 值 运算 对 象 序 列 的 前 后 保存 和 恢复 PTOC 。 对 
于 下 面 的 每 个 组 合式 ， 请 说 明 这 其 中 的 那些 save 和 restore 操 作 是 多 余 的 ， 因 此 可 以 由 编 
译 器 里 的 Preserving 机 制 删除 : 

(£ x ‘y) 

( (£) x Y) 

(£ (g °x) Y) 

(£ (g °x) ‘y) | 

练习 5.32 “采用 了 preserving 机 制 之 后 ， 在 一 个 组 合式 的 运算 符 是 简单 符号 的 情况 下 ， 
编译 器 就 可 以 避免 在 求 值 运算 符 的 前 后 保存 和 恢复 env 寄 存 器 。 我 们 也 可 以 将 这 种 优化 构筑 
到 求 值 器 里 。 实 际 上 ，5.4 节 的 显 式 控 制 求 值 器 已 经 做 了 一 种 类 似 的 优化 ， 其 中 将 没有 运算 对 
象 的 组 合式 作为 一 种 特殊 情况 处 理 。 

a) 请 扩充 显 式 控制 求 值 器 ， 使 之 能 识别 出 运算 符 是 符号 的 组 合式 ， 作 为 一 类 特殊 的 表达 
式 ， 并 在 求 值 这 种 表达 式 时 利用 这 一 特殊 事实 。 

b) Alyssa P. Hacker 建 议 ， 求 值 器 应 该 识别 出 更 多 的 我 们 可 能 结合 到 编译 器 里 的 特殊 情况 ， 
并 据 此 完全 剔除 编译 器 的 所 有 优势 。 你 觉得 这 种 想法 怎么 样 ? 


5.5.2 表达 式 的 编译 


在 本 节 和 下 一 节 里 ， 我 们 要 实现 compi1Le 过 程 分 派 的 那些 代码 生成 屁 。 


连接 代码 的 编译 

一 般 而 言 ， 每 个 代码 生成 器 的 输出 最 后 都 将 是 一 些 指令 一 一 由 过 程 Ccompile-1linkage 
生成 ， 实 现 所 需要 的 连接 。 如 果 这 一 连接 是 return， 那 么 我 们 就 必须 生成 指令 (goto 
(reg continue) )。 这 条 指令 需要 continue 寄 存 器 ， 而 且 不 修改 任何 寄存 器 。 如 朱 这 一 
连接 是 next ， 那 么 我 们 就 不 需要 包括 任何 指令 进来 。 否 则 相应 的 连接 就 是 一 个 标号 ， 需 要 六 
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生 一 条 转向 那个 标号 的 goto 指 令 。 这 条 指令 既 不 需要 也 不 修改 任何 寄存 器 ”。 


(define (compile-linkage linkage) 
(cond ((eq? linkage ‘return) 

(make-instruction-sequence ‘(continue) ‘() 
"((goto (reg continue))))) 

({eq? linkage ‘next) 
(empty-instruction-sequence) ) 

(else 

(make-instruction-sequence °() ‘() 
‘((goto (label ,linkage))))))) 


连接 代码 将 被 preserving 用 保留 continue 寄 存 器 的 方式 ， 附 加 到 相应 的 指令 序列 之 后 ， 
因为 return 连 接 将 需要 continue 寄 存 器 。 这 样 ， 如 果 这 一 指令 序列 修改 了 continue 寄 存 
器 ， 而 连接 代码 又 需要 它 ，continue 的 内 容 就 会 被 保存 和 恢复 。 


(define (end-with-linkage linkage instruction-sequence) 
(preserving ‘(continue) 
instruction-sequence 
(compile-linkage linkage) )) 


简单 表达 式 的 编译 
对 于 自 求 值 表达 式 、3 引 号 表达 式 和 变量 ， fA LH A A 


值 赋 给 指定 的 目标 寄存 器 ， 而 后 根据 连接 描述 符 继续 下 去 : 


(define (compile-self-evaluating exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence  () (list target) 
‘(({assign ,target (const ,exp)))))) 


(define (compile-quoted exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence ‘() (list target) 
‘((assign ,target (const ,(text-of-quotation exp))))))) 


(define (compile-variable exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence ‘(env) (list target) 
‘((assign ,target 
(op lookup-variable-value) 
(const ,exp) 
(reg env)))))) 


MAR HRA SME ARSE, EREEREER NVA Hat. 

赋值 和 定义 的 处 理 方 式 很 像 在 解释 器 里 的 做 法 。 我 们 要 递归 地 生成 出 那些 用 于 计算 所 需 
值 (准备 赋 给 变量 ) 的 代码 ， 并 在 它 后 面 附加 一 个 包含 两 条 指令 的 序列 ， 实 际 完 成 对 变量 的 
赋值 ， 并 将 整个 表达 式 的 值 (符号 ok) 赋 给 目标 寄存 器 。 这 种 递归 编译 使 用 目标 Val 和 连接 


321 这 个 过 程 里 使 用 了 Lisp 的 一 种 称 为 反 引 号 (或 者 拟 引 号 ) 的 特征 ， 这 种 特征 在 构造 表 的 时 候 非 常 方便 。 在 表 
的 前 面 放 一 个 反 引 号 很 像 是 为 它 加 了 引号 ， 但 是 这 个 表 里 所 有 加 了 逗号 标记 的 东西 都 将 被 求 值 。 

举 个 例子 ， 如 果 1inkage 的 值 是 符号 pranch25， 那 么 对 “((9oto (label ,linkage))) 求 值 就 

会 得 到 表 ((goto (label branch25)))。 与 此 类 似 ， 如 果 x 的 值 是 表 (a b c), 那么 “(1 2 , (car 


x)) 求 出 的 值 就 是 (1 2 a), 


IA o WE et 


next ， 所 以 由 此 生成 的 代码 将 把 值 放 和 人 val ， 并 继续 去 执行 跟随 其 后 的 代码 。 这 里 采用 的 拼 
接 方 式 是 保留 env， 因 为 在 设置 或 者 定义 变量 都 需要 当时 的 环境 ， 而 产生 变量 值 的 代码 可 能 
是 任何 复杂 表达 式 的 编译 结果 ， 其 中 完全 可 能 以 任何 方式 修改 envV 寄 存 器 。 
(define (compile-assignment exp target linkage) 
(let ((var (assignment-variable exp)) 
(get-value-code 
(compile (assignment-value exp) ‘val ‘next))) 
(end-with-linkage linkage 
(preserving (env) 
get-value-code 
(make-instruction-sequence ‘(env val) (list target) 
‘((perform (op set-variable-value! ) 
(const ,var) 
(reg val) 
(reg env) ) 
{assign ,target (const ok)}))))))) 


(define (compile-definition exp target linkage) 
(let ((var (definition-variable exp) ) 
(get-value-code 
(compile (definition-value exp) ‘val ‘next))) 
(end-with~-linkage linkage 
(preserving (envV) 
get-value-code 
(make-instruction-sequence ‘(env val) (list target) 
‘((perform (op define-variable! ) 
(const ,var) 
(reg val) 
(reg env)) 
(assign ,target (const ok)))))))) 


在 拼接 两 个 指令 序列 时 需要 env 和 val ， 并 要 修改 目标 寄存 器 。 请 注意 ， 虽 然 我 们 为 这 个 序列 
保留 了 env ， 但 是 却 没 有 保留 val ， 因 为 get-value-code 的 设计 将 会 显 式 地 把 它 的 返回 值 
放 入 val ， 供 这 一 序列 使 用 。( 事 实 上 ， 如 果 我 们 真 去 保留 val 的 值 ， 反 而 会 引进 一 个 错误 ， 
因为 这 将 导致 在 get-value-code 运 行 之 后 又 恢复 了 val 原 来 的 内 容 。) 


条 件 表 达 式 的 编译 

对 给 定 的 目标 和 连接 ， 编 译 一 个 i£f 表 达 式 而 产生 出 的 指令 序列 将 具有 下 面 形式 : 
< 谓词 的 编译 ， 目 标 为 Val， 连 接 为 next> 

(test (op false?) (reg val)) 
(branch (label false-branch) ) 

true-branch 

< 以 给 定 和 目标 及 连接 或 after-if 对 推论 部 分 的 编译 结果 > 

false-branch 

< 以 给 定 目标 及 连接 对 替代 部 分 的 编译 结果 > 


after-if 


为 了 生成 这 样 的 代码 ， 我 们 需要 编译 其 中 的 谓词 、 推 论 和 替代 部 分 。 为 了 将 得 到 的 代码 
与 检测 谓词 结果 的 代码 组 合 起 来 ， 这 里 还 需要 生成 几 个 新 标号 ， 用 于 标识 出 检测 的 真 假 分 文 
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和 条 件 表达 式 计 算 的 结束 位 置 “。 在 安排 这 些 代码 时 ， 我 们 必须 在 谓词 检测 为 假 时 跳 过 真 分 
支 。 稍 微 复 杂 一 些 的 情况 出 现在 对 于 真 分 支 的 连接 处 理 的 位 置 。 如 果 这 个 条 件 表 达 式 的 连接 
是 return 或 是 标号 ， 真 分 支 和 假 分 支 都 应 该 使 用 这 个 连接 。 如 果 当时 的 连接 是 next ， 真 分 
支 的 最 后 就 需要 一 个 跳 过 假 分 支 的 指令 ， 跳 到 标明 这 一 条 件 结束 的 标号 位 置 。 
(define (compile-if exp target linkage) 
(let ((t-branch (make-label *true-branch) ) 
(f-branch (make-label *false-branch) ) 
(after-if (make-label ’after-if))) 
(let ((consequent-linkage 
(if (eq? linkage ‘next) after-if linkage) )) 
(let ((p-code (compile (if-predicate exp) ‘val next)) 
(c-code 
(compile 
(if-consequent exp) target consequent-linkage) ) 
(a-code 
| (compile (if-alternative exp) target linkage))) 
(preserving (env continue) 
p-code 
(append-instruction-sequences 
(make-instruction-sequence ’(val) ‘() 
‘((test (op false?) (reg val)) 
(branch (label ,f-branch)))) 
(parallel-instruction-sequences 
(append-instruction-sequences t-branch c-code) 
(append-instruction-sequences f-branch a-code)}) 
after-if)))))) 


在 谓词 的 前 后 需要 保留 env, 因为 在 真 分 支 和 假 分 支 中 都 可 能 需要 它 ， 还 需要 保留 Continue ， 
因为 这 些 分 支 的 连接 代码 可 能 需要 它 。 由 真 分 支 和 假 分 支 生 成 的 代码 〈 它 们 绝 不 会 顺序 执行 ) 
用 另 一 个 特殊 组 合 操作 Paralle1-instruction-segquences 拼接 起 来 ， 这 一 操作 将 在 


5.5.4 市 里 搓 述 。 
请 注意 ，cond 是 一 个 派生 表达 式 。 因 此 ， 为 了 处 理 它 ， 编 译 器 需要 做 的 全 部 事情 就 是 应 


用 cond->if 变 换 过 程 ( 取 自 4.1.2 节 )， 而 后 编译 得 到 的 1f 表 达 式 。 


322 我 们 不 能 像 上 面 所 示 的 那样 直接 采用 标号 true-branch、 false-branch 和 after-~if,， 因为 在 一 个 程序 

完全 可 能 有 不 止 一 个 if 。 因 此 编译 器 需要 用 make-1abel 过 程 生成 新 标号 。 过 程 make-1abel 以 一 个 符 

号 作为 参数 ， 它 将 返回 一 个 新 符号 ， 这 一 标号 以 给 定 的 符号 作为 开始 部 分 。 例如， 连续 地 反复 调用 (make- 

label ’a) 将 返回 al、a2 等 等 。 过 程 make-~1label 的 实现 可 以 采用 与 查询 语言 中 生成 唯一 变量 名 类 似 的 方 
式 ， 例 如 下 面 这 样 : 


(define label-counter 0) 


(define (new-label-number ) 
(set! label-counter (+ 1 label-counter) ) 


label-counter ) 


(define (make-label name) 
(string->symbol 
(string-append (symbol->string name) 
(number->string (new-labei-number))))) 
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RIAL F IRIRE | 
对 于 表达 式 序列 (来 自 过 程 体 或 者 显 式 的 begin 表达 式 ) 的 编译 与 对 它们 的 求 值 一 样 。 
首先 分 别 编译 序列 里 的 每 个 表达 式 一 一 最 后 一 个 表达 式 将 采用 整个 序列 的 连接 ， 其 他 表达 去 
都 用 next 连接 (表示 随后 应 该 执行 序列 里 剩 下 的 部 分 )。 将 各 个 表达 式 编 译 得 到 的 指令 序列 
拼接 起 来 ， 形 成 一 个 指令 序列 。 在 这 里 需要 保留 起 env (序列 的 其 余部 分 可 能 需要 它 ) 和 
continue (序列 最 后 的 连接 可 能 需要 它 )。 
(define (compile-sequence seq target linkage) 
(if (last-exp? seq) 
{compile (first-exp seq) target linkage) 
(preserving (env continue) 
(compile (first-exp seq) target ‘next) 
(compile-sequence (rest-exps seq) target linkage)))) 
lambda 表 达 式 的 编译 
lambda 表 达 式 构造 出 的 是 过 程 。 一 个 lambda 表 达 式 的 目标 代码 必须 具有 下 面 的 形式 : 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > | 
< 连接 > - 
在 编译 1ambda 表 达 式 时 ， 我 们 还 要 生成 出 过 程 体 的 代码 。 虽 然 这 个 体 在 过 程 构造 期 间 并 
不 执行 ， 但 是 ， 将 它 的 目标 代码 插入 到 紧 接 着 Iambda 的 代码 之 后 是 很 方便 的 。 如 采 对 于 
lambda 表 达 式 的 连接 是 一 个 标号 或 者 return ， 这 样 做 就 正好 合适 。 但 是 如 果 当 时 的 连接 是 
next ， 那 么 我 们 就 需要 跳 过 过 程 体 的 代码 ， 此 时 采用 一 个 转 跳 连 接 ， 将 相应 的 标号 放 在 过 程 
体 的 后 面 。 这 样 ， 目 标 代码 将 具有 下 面 形式 .: 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 
< 给 连接 的 代码 > 或 (goto (label after-lambda) ) 
< 过 程 体 的 编译 结果 > 
after-lambda 
compile-1lambda 生 成 出 构成 过 程 对 象 的 代码 ， 随 后 是 过 程 体 的 代码 。 这 种 过 程 对 象 将 
在 运行 时 构造 起 来 ， 构 造 的 方式 就 是 组 合 起 当时 的 环境 (定义 点 的 环境 ) 和 编译 后 的 过 程 体 
的 入 口 点 (一 个 新 生成 的 标号 ) “。 
(define (compile-lambda exp target linkage) 
(let ((proc~entry (make-label entry)) 
(after-lambda (make~label ‘after-lambda) ) ) 


(let ((lambda-linkage 
(if (eq? linkage ’next) after-lambda linkage) )) 


223 我 们 需要 几 个 机 器 操作 ， 以 便 实 现 表 示 编 译 后 的 过 程 的 数据 结构 ， 类 似 于 在 4.1.3 节 里 所 描述 的 复合 过 程 的 结 
Rey : 
(define (make-compiled-procedure entry env) 


(list ’compiled-procedure entry env) ) 


(define (compiled-procedure? proc) 


(tagged-list? proc 'compiled-procedure) } 


(define (compiled-procedure-entry c-proc) (cadr c-proc)) 


(define (compiled-procedure-env c~proc) (caddr c-proc)) 
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(append-instruction-sequences 
(tack-on-instruction-sequence 
(end-with-linkage lambda-linkage 
(make-instruction-sequence ‘(env) (list target) 
‘((assign ,target 
{op make-compiled~procedure) 
(label ,proc~-entry) 
(reg env))))) 
(compile-lambda-body exp proc-entry) ) 
after-lambda)))) 


compile~lambda 采 用 特殊 的 组 合 操 作 tack-on-instruction-sequence (05.5.4435), 
将 过 程 体 代码 拼接 到 1ambda 表 达 式 的 代码 后 面 。 这 里 没有 用 apPpend-instruction- 
sequences， 因 为 当 执 行进 入 被 组 合 的 序列 时 ， 过 程 体 并 不 是 相应 指令 序列 的 一 部 分 。 将 它 
放 在 这 里 ， 只 不 过 因为 这 是 安放 它 的 一 个 方便 位 置 。 
compile-lambda-~body 构 造 出 过 程 体 的 代码 。 这 段 代 码 的 开始 是 一 个 入 口 点 标号 。 
随后 是 一 些 指令 ， 这 些 指 令 完 成 的 工作 是 将 运行 时 的 执行 环境 转换 到 求 值 过 程 体 的 正确 环 
境 一 一 也 就 是 说 ， 转 换 到 过 程 的 定义 环境 ， 还 要 完成 用 形式 参数 与 这 一 过 程 被 调用 时 的 实际 
参数 约束 的 扩充 。 在 此 之 后 就 是 构成 过 程 体 的 表达 式 序列 的 编译 结果 代码 。 这 个 序列 用 连 
接 return 和 目标 Val 进行 编 译 ， 因 此 它 的 结束 是 从 过 程 里 返回 ， 过 程 的 结果 放 人 在 val 里 。 
(define (compile-lambda-body exp proc~entry) 
(let ((formals (lambda-parameters exp))) 
(append-instruction-sequences 
(make-instruction-sequence (env proc argl) (env) 
‘(,proc-entry 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment ) 
(const ,formals) 
(reg argl) 
(reg env)))) 
(compile-sequence (lambda-body exp) ‘val ‘return)))) 


9.9.3 组 合式 的 编译 


编译 过 程 中 最 本 质 的 东西 就 是 过 程 应 用 的 编译 。 一 个 组 合式 对 给 定 目标 和 连接 的 编译 结 
果 代 码 具 有 下 面 形式 : 

< 运算 符 的 编译 结果 ， 目 标 为 PrOC ， 连 接 为 hext> 

< 求 值 运算 对 象 并 构造 实际 参数 表 ， 放 人 arg1l> 

< 用 给 定 的 目标 和 连接 编译 过 程 调用 的 结果 > 
在 求 值 运算 符 和 运算 对 象 期 间 ， 我 们 可 能 需要 保留 与 恢复 寄存 器 enV、PIoc 和 argl 。 请 注 
意 ， 在 这 个 编译 器 中 ， 仅 有 这 一 个 地 方 使 用 的 目标 描述 不 是 val。 

这 里 所 需要 的 代码 由 compiLe-app1lication 生 成 。 compile-applications4/)5 
编译 运算 符 ， 生 成 出 的 代码 把 需要 应 用 的 过 程 放 人 Proc， 而 后 去 编译 各 个 运算 对 象 ， 生 成 出 
对 过 程 应 用 所 需 的 各 个 运算 对 象 求 值 的 代码 。 针 对 各 个 运算 对 象 的 指令 序列 还 要 与 在 arg1l 里 
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构造 实际 参数 表 的 代码 组 合 起 来 (通过 construct-arglist)， 得 到 的 实际 参数 表 代 码 再 
与 过 程 的 代码 和 执行 过 程 调 用 的 代码 (Hcompile-procedure-call4 x) 组 合 到 一 起 。 
在 拼接 这 一 代码 序列 的 过 程 中 ， 在 运算 符 求 值 的 前 后 必须 保留 和 局 复 env 《因为 运算 符 的 求 
值 可 能 修改 env ， 而 在 运算 对 象 求 值 时 还 需要 它 ) ， 在 构造 实际 参数 表 的 前 后 必须 保留 起 寄存 
器 proc (因为 对 运算 对 象 的 求 值 中 可 能 修改 proc， 在 实际 过 程 应 用 时 还 需要 它 ) 。 在 整个 这 
一 段 的 前 后 需要 保留 continue ， 因 为 过 程 调 用 的 连接 需要 CE. 
(define (compile-application exp target linkage) 
(let ((proc-code (compile (operator exp) ‘proc ‘next)) 
(operand-codes | 
(map (lambda (operand) (compile operand ‘val next)) 
(operands exp)))) : 
(preserving ‘(env continue) 
proc-code 
(preserving ‘(proc continue) 
(construct-arglist operand-codes) 
(compile-procedure-call target linkage) )))) 


构造 实 参 表 的 代码 将 对 每 个 运算 对 象 求 值 ， 结 果 放 入 val， 而 后 把 这 个 值 cons 到 在 arg1 
里 积累 起 来 的 实 参 表 中 。 因 为 这 里 是 顺序 地 将 实 参 cons 到 argl1 上 ， 因 此 我 们 就 必须 从 最 后 
一 个 参数 开始 ， 第 一 个 参数 最 后 做 ， 这 样 才能 使 实际 参数 在 结果 表 里 出 现 的 期 序 是 众 第 一 个 
到 最 后 一 个 。 为 了 不 浪费 一 条 指令 去 做 将 argl 初始化 为 空 表 ， 准 备 好 这 一 系列 求 值 的 工作 ， 
我 们 让 第 一 个 代码 序列 构造 出 初始 的 arg1l。 这 样 ， 实 际 产 生 表 构造 的 一 般 形 式 就 是 : 


< 最 后 运算 对 象 的 编译 结果 ， 目 标 为 val> 
(assign argl (op list) (reg val) ) 


< 下 一 运算 对 象 的 编译 结果 ， 目 标 为 val> 


(assign argl (op cons) (reg val) (reg argl)) 


< 第 一 个 运算 对 象 的 编译 结果 ， 目 标 为 val> 

(assign argl (op cons) (reg val) (reg argl)) 
除了 第 一 个 运算 对 象 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 必须 保留 和 恢复 argl (以 保证 至 今 
已 经 积累 起 的 实际 参数 不 会 丢失 ) ， 除了 最 后 一 个 参数 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 
必须 保留 和 恢复 env (以 便 后 续 的 运算 对 象 求 值 中 使 用 )。 

由 于 对 第 一 个 参数 需要 特殊 处 理 ， 并 需要 在 不 同 的 地 方 保留 azg1 和 env， 编 译 这 段 实 参 
代码 中 有 些小 麻烦 。construct-arglist 过 程 以 求 值 各 个 运算 对 象 的 代码 段 为 参数 。 如 本 
根本 就 没有 运算 对 象 ， 它 就 直接 送出 下 面 指令 : 

(assign argl (const ())) 
否则 ，construct-arglist 就 用 最 后 一 个 实际 参数 创建 起 初始 化 arg1 的 代码 ， 并 拼接 起 
求 值 其 他 参数 得 到 的 代码 ， 并 将 它们 顺序 结合 到 arg1l 里 。 为 了 从 后 向 前 处 理 各 个 实际 参数 ， 
我 们 必须 把 compile-application 提 供 的 运算 对 象 代码 序列 的 表 反 转 过 来 。 

(define (construct-arglist operand-codes) 

{let ((operand-codes (reverse operand-codes ) ) ) 


(if (null? operand-codes) 
(make-instruction-sequence ’() ‘(argl) 
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*((assign argl (const ())))) 
(let ((code-to-get-last-arg 
(append-instruction-sequences 
(car operand-codes) 
{make-instruction-sequence (val) ‘(argl) 
'( (assign argl (op list) (reg val))))))) 
(if (null? (cdr operand-codes) ) 
code-to-get-last-arg 
(preserving (env) 
code-to-get-last-arg 
(code-to-get-rest-args 
(cdr operand-codes)))))))) 
(define (code-to-get-rest-args operand-codes ) 
(let ((code-for-next-arg 
(preserving ‘(argl) 
(car operand-codes) 
(make-instruction-sequence ‘(val argl) ‘(argl) 
"( (assign argl 
(op cons) (reg val) (reg argl))))))) 
(if (null? (cdr operand-codes) ) 
code-for-next-arg 
(preserving (env) 


code-for-next-arg 


(code-to-get-rest-args (cdr operand-codes)))))) 
过 程 应 用 


在 完成 了 组 合式 里 的 各 个 元 素 的 求 值 之 后 ， 得 到 的 编译 结果 代码 需要 把 位 于 proc 里 的 过 程 
应 用 于 arg1l 里 的 实际 参数 。 从 本 质 上 看 ， 这 段 代码 执行 就 是 分 派 动作 ， 与 4.1.1 节 里 元 循环 求 值 器 
里 的 apply 过 程 ,或 者 5.4.1 节 里 显 式 控制 求 值 器 里 apply~dispatch 入 口 点 所 完成 的 动作 差不多 ，。 
它 检 查 被 应 用 的 过 程 是 基本 过 程 还 是 编译 出 的 过 程 。 对 于 基本 过 程 使 用 appPly-primitive- 
procedure。 下 面 马上 会 看 到 对 于 编译 出 的 过 程 的 处 理 方式 。 过 程 应 用 的 代码 具有 如 下 形式 : 
(test (op primitive-procedure?) (reg proc)) 


(branch (label primitive-branch) ) 
compiled-branch 


< 对 给 定 目标 及 适当 连接 应 用 编译 好 的 过 程 的 代码 > 
primitive-branch 
(assign < 目标 > 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
< 连接 > 
after-call 


应 注意 ， 这 里 有 关 编 译 后 过 程 的 分 支 必 须 跳 过 处 理 基本 过 程 的 分 支 。 这 样 ， 如 果 原 过 程 调用 


的 连接 是 next ， 复 合 分 支 就 必须 使 用 另 一 个 连接 ， 以 便 能 跳 到 插入 在 基本 分 支 后 面 的 那个 标 
号 处 。( 这 类 似 于 在 compile-iE 里 真 分 支 所 用 的 连接 。) 


(define (compile-procedure-call target linkage) 


(let ((primitive-branch (make-label ’primitive-branch) ) 


(compiled-branch {make-label ‘compiled-branch) ) 
(after-call (make-label ‘after-call))) 
(let ((compiled-linkage 
(if (eq? linkage ‘next) after-call linkage) )) 
(append-instruction-sequences 
(make-instruction-sequence (Proc) ‘() 
‘((test (op primitive-procedure?) (reg proc) ) 
(branch {label ,primitive-branch) )) ) 
(parallel-instruction-sequences 
(append-instruction-sequences 
compiled-branch 
(compile-proc-appl target compiled-linkage) ) 
(append-instruction-sequences 
primitive-branch | 
(end-with-linkage linkage 4 
(make-instruction-sequence ‘(proc argl) 
(list target) 
‘(({assign ,target 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl))))))) 
after-call)))) 


这 里 的 基本 分 支 和 复合 分 支 很 像 compi1le-ifE 里 的 真 分 支 和 假 分 支 ， 它 们 也 征用 过 程 
parallel-instruction-sequences 拼 接 的 ， 而 没有 用 常规 的 append-instruction- 


sequences ， 因 为 它们 不 会 顺序 执行 。 

编译 出 的 过 程 的 应 用 

处 理 过 程 调用 的 代码 是 这 个 编译 器 里 最 难处 理 的 部 分 ， 虽 然 它 所 生成 的 指令 序列 实际 上 
很 短 。 一 个 编译 出 的 过 程 (由 compile-1Lambda 构 造 出 来 ) 有 一 个 和 人口 点 ， 就 是 一 个 标号 ， 
它 标 明了 这 个 过 程 的 开始 位 置 。 位 于 这 一 入 口 点 的 代码 能 够 计算 出 一 个 结果 ， 并 将 它 放 入 
val ， 而 后 通过 执行 指令 (goto (reg continue)) 返回 。 由 于 这 些 情况 ， 我 们 可 能 认为 ， 
如 果 连 接 是 一 个 标号 ,针对 给 定 的 目标 和 连接 应 用 一 个 编译 过 程 的 代码 (由 compile- 
proc-appl 生 成 ) 看 起 来 会 是 下 面 的 形式 : | 


(assign continue (label proc-return) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 

proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
{goto (label <j£#>)) ; linkage code 


“jE Breturnk}, EAR PMH TF: 
(save continue) 
(assign continue (label proc-return) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
(restore continue) 
(goto (reg continue) ) ; linkage code _ 
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这 里 的 代码 将 设置 好 continue (以 便 使 过 程 能 返回 标号 proc-return)， 而 后 就 跳 到 过 程 
的 入 口 点 ,位 于 proc~return 的 代码 把 过 程 产生 的 结果 从 val 传送 到 Bose ab (RE). 
而 后 跳 到 由 连接 描述 的 特定 位 置 (这 一 连接 一 定 是 一 个 return 或 者 是 一 个 标号 ， 因 为 
compile-procedure-call 已 把 对 复合 过 程 分 支 的 next 连接 换 成 为 一 个 after-call 标 
ST). 

事实 上 ， 如 果 这 里 的 目标 不 是 Val， 那 么 它 正 好 就 是 我 们 的 编译 器 将 要 生成 的 代码 “。 当 
然 ， 有 关 的 目标 通常 都 是 val (编译 器 里 以 另 一 个 寄存 器 作为 求 值 目标 的 地 方 仅 有 一 处 ， 那 
就 是 将 求 值 运 算 符 的 目标 定 在 Proc )， 所 以 过 程 的 结果 将 直接 放 人 目标 寄存 各 ， 而 不 需要 将 
结果 先 放 入 特定 位 置 ， 而 后 再 去 复制 它 。 还 有 ， 我 们 还 要 简化 这 里 的 代码 ， 通 过 设置 好 
continue， 使 得 过 程 能 直接 “返回 ”到 调用 者 描述 的 连接 所 指定 的 位 置 : 

< 为 连接 设置 continue> 


(assign val (op compiled-procedure-entry) (reg proc) ) 

(goto (reg val)) 
如 果 连 接 是 一 个 标号 ， 我 们 就 设置 好 continue ， 使 过 程 直接 返回 到 那个 标号 (也 就 是 说 ， 
作为 过 程 结 束 的 (goto (reg _ continue ))， 此 时 将 变 得 等 价 于 上 面 的 proc-zeturn 处 的 
(goto (label < 连接 > )).) 


(assign continue (label <j£#>)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 


(goto (reg val)) 
如 果 连 接 是 return ， 我 们 将 根本 不 需要 设置 continue : 它 里 面 已 经 保存 着 所 需 的 地 址 。 
(也 就 是 说 ， 作 为 这 一 过 程 结束 的 (goto (reg continue) )， 将 能 直接 跳 到 上 面 的 proc- 
return 处 的 (goto (reg continue)) 应 该 跳 到 的 地 方 .) 

(assign val (op compiled-procedure-entry) (reg proc) ) 

(goto (reg val)) 
采用 这 样 的 return 连 接 实 现 后 ， 编 译 器 就 能 生成 尾 递归 代码 了 。 在 调用 一 个 过 程 时 ， 作 为 过 
程 体 的 最 后 一 个 步骤 将 完成 一 次 直接 转移 ， 无 需 向 堆栈 里 保存 任何 信息 。 

假如 我 们 不 采取 这 种 做 法 ， 对 于 具有 return 连 接 和 val 目 标的 过 程 调用 ， 也 采用 上 面 所 
示 的 那 种 对 非 val 目标 的 代码 的 处 理 方式 ， 那 么 就 会 破坏 尾 递 归 。 虽 然 这 样 得 到 的 系统 对 任 
何 表达 式 都 将 给 出 同样 结果 ， 但 在 每 次 调用 过 程 时 ， 它 都 要 保存 起 continue， 并 在 相应 调 
用 最 后 返回 时 撤销 这 种 (无 用 ) 保存 的 效果 。 这 一 额外 的 保存 将 会 在 嵌 套 的 过 程 调 用 中 祝 索 
起 来 325 


?4 在 实际 中 ， 当 目标 不 是 val 而 连接 是 zeturn 时 ， 我 们 将 发 出 一 个 错误 信号 ， 因 为 只 有 在 编译 过 程 时 才 需 要 
return 连接 ， 而 按照 我 们 的 约定 ， 过 程 总 是 在 Val 里 返回 它们 的 值 。 

325 这 样 看 起 来 ， 编 译 器 生成 尾 递 归 代 码 的 思想 是 非常 直截了当 的 。 但 是 ， 处 理 常 见 语言 (包括 C 和 Pascal ) 的 大 
部 分 编译 器 都 没有 做 这 件 事 ， 因 此 在 这 些 语 言 里 就 不 能 仅仅 用 过 程 调用 来 描述 迭代 。 在 那些 语言 里 处 理 尾 递 
归 的 困难 ， 在 于 它们 的 实现 中 不 但 在 堆栈 里 保存 返回 地 址 ， 还 要 保存 过 程 实际 参数 和 局 部 变量 。 在 本 GHIA 
述 的 Scheme 实现 里 ， 实 参 和 变量 都 保存 在 能 做 废料 收集 的 存储 区 里 。 采 用 堆栈 保存 实 参 和 局 部 变量 ， 是 因为 
那样 做 可 以 避免 在 语言 里 使 用 废料 收集 ( 如 果 不 那样 做 就 会 需要 它 ) , 一 般 认为 这 种 情况 有 利于 程序 执行 效率 。 
事实 上 ， 复 杂 了 的 Lisp 编 译 器 也 可 以 用 堆栈 保存 实 参 而 又 不 破坏 尾 递归 (参看 Hanson 1220 的 讨论 ) 。 在 更 基本 
的 问题 上 ， 有 关 堆 栈 分 配 是 否 确 实 能 得 到 高 于 废料 收集 的 效率 ， 也 存在 着 许多 争论 ， 其 中 的 细节 看 来 依赖 于 
计算 机 体 系 结构 的 某 些 细 微 要 点 (参见 Appel 1987 和 Miller and Rozas 1994 有 关 这 一 问题 的 对 立 观点 )。 


compile-proc-apPp1 生 成 上 面 所 述 的 过 程 调用 代码 ， 其 中 考虑 了 四 种 不 同情 况 ， 根 据 
一 个 调用 的 目标 是 否 为 Val ， 以 及 其 连接 是 否 为 etuzn 。 可 以 看 到 ， 这 里 的 代码 序列 都 说 明 
为 需要 修改 所 有 寄存 器 ， 因 为 执行 过 程 体 完全 可 能 以 任何 方式 修改 寄存 器 ”“。 还 请 注意 ， 有 
关 目 标 val 和 连接 return 情 况 的 代码 序列 说 明了 需要 continue: 即使 continue 并 没有 被 
用 在 其 中 的 两 个 指令 序列 里 ， 我 们 也 必须 保证 在 进入 编译 好 的 过 程 时 ，continue 将 有 正确 
的 值 。 | . 

(define (compile-proc-appl target linkage) 
(cond ((and (eq? target ’val) (not (eq? linkage ‘return) ) ) 
(make-instruction-sequence ‘(proc) all-regs 
‘((assign continue (label ,linkage) ) 
(assign val (op compiled-procedure-entry) 
(reg proc)) 
(goto (reg val))))) 
((and (not (eq? target ‘val)) 
(not (eq? linkage ‘return))) 
(let ((proc-return (make-label ‘proc-return) ) ) 
(make-instruction-sequence (proc) all-regs 
‘(({assign continue (label ,proc-return) ) 
(assign val (op compiled-procedure-entry ) 
(reg proc) ) 
(goto (reg val)) 
sproc-return 
(assign ,target (reg val)) 
(goto (label ,linkage)))))) 

((and (eq? target ‘val) (eq? linkage ‘return) ) 
(make-instruction-sequence ’ (proc continue) all-regs 
'( {assign val (op compiled-procedure-entry) 

(reg proc) ) 
(goto (reg val))))) 

((and (not (eq? target ’val)) (eq? linkage return) ) 
(error "return linkage, target not val -- COMPILE" 

target)))) 


5.5.4 指令 序列 的 组 合 


本 节 将 说 明 如 何 表 示 指 令 序列 ， 以 及 如 何 组 合 起 它们 的 细节 。 回 忆 一 下 5.5.1 节 ， 那 时 我 
们 说 明了 ， 指 令 序 列 用 一 个 表 来 表示 ， 其 中 包含 所 需要 的 寄存 器 集合 ， 所 修改 的 寄存 器 集合 ， 
以 及 一 串 实际 指令 。 我 们 还 要 把 标号 (一 个 符号 ) 看 作 是 指令 序列 里 的 一 种 退化 情况 ， 它 既 
不 需要 也 不 修改 任何 寄存 器 。 这样， 在 需要 确定 一 个 指令 序列 需要 哪些 寄存 器 ， 修 改 哪些 寄 
存 器 时 ， 我 们 将 使 用 下 面 的 选择 函数 : 

(define (registers-needed s) 


(if (symbol? s) () (car s))) 


(define (registers-modified s) 





26 变量 al1-zegs 将 约束 于 一 个 包含 所 有 寄存 器 名 字 的 表 : 


(define all-regs ‘(env proc val argl continue} ) 
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(if (symbol? s) *() (cadr s))) 


(define (statements s) 
(if (symbol? s) (list s) (caddr s))) 


要 确定 某 个 指令 序列 是 否 需 要 或 者 修改 某 个 特定 的 寄存 器 ， 我 们 使 用 下 面 的 谓 赣 : 
(define (needs-register? seq reg) 
(memq reg- (registers-needed seq))) 
(define (modifies-register? seq reg) | 
(memq reg (registers-modified seq) ) ) 
现在 我 们 就 可 以 基于 这 些 谓 词 和 选择 函数 ， 去 实现 用 在 这 个 编译 器 里 的 各 种 组 合 指令 序列 的 
过 程 了 。 

最 基本 的 组 合 过 程 是 append-instruction-sequences， 它 以 任意 多 个 意欲 顺序 执 
行 的 指令 序列 为 实际 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 由 所 有 参数 序列 里 的 语句 顺序 
拼接 而 形成 的 。 在 这 里 ， 更 复杂 的 问题 是 确定 结果 序列 所 需要 和 修改 的 寄存 器 集合 。 它 所 修 
改 的 寄存 器 就 是 被 其 中 的 任 一 个 序列 修改 的 寄存 器 ， 而 它 所 需要 的 寄存 器 就 是 在 其 中 的 第 一 
个 序列 可 以 运行 前 必须 初始 化 的 那些 寄存 器 (第 一 个 序列 所 需要 的 寄存 器 ) ， 再 加 上 其 他 序列 
里 的 某 一 个 所 需要 的 那些 寄存 器 ， 而 这 些 寄存 器 又 没有 被 它 前 面 的 序列 初始 化 (或 者 修改 )。 

这 些 序列 用 append-2-sequences 两 个 一 次 地 拼接 起 来 。 这 个 过 程 以 两 个 指令 序列 
seql 和 seq2 作 为 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 序列 seq1l 里 的 语句 后 跟着 序列 
seq2 里 的 语句 ， 它 所 修改 的 寄存 器 包括 所 有 被 seq1l 或 者 seq2 修改 的 寄存 器 ， 它 需要 的 寄存 
器 是 seql 所 需要 的 寄存 器 ， 再 加 上 那些 seq2 需 要 同时 又 没有 被 seq1 修 改 的 寄存 器 按照 集 
合 操作 的 描述 方式 ， 这 一 新 语句 序列 需要 的 寄存 器 ， 就 是 seq1 需要 的 寄存 器 集合 ， 与 seq2? 
需要 的 寄存 器 集合 与 Seq1l 修 改 的 寄存 器 集 的 差 集 之 并 集 ) 。 这 样 ，append-instruction- 
sequences 可 以 实现 如 下 : | | 


(define (append-instruction-sequences . seqs) 
(define (append-2-sequences seqi seq2) 
(make-instruction-sequence 
(list-union (registers-needed segi) 
(list-difference (registers-needed seq2) 
(registers-modified seql))) 
(list-union (registers-modified seql) 
(registers-modified seq?2)) 
(append (statements seql) (statements seq2)))) 
(define (append-seq-list seqs) 
(if (null? seqs) 
(empty-instruction-sequence ) 
(append-2-sequences (car seqs) 
(append-seq-list (cdr seqs))))) 
(append-seq-list seqs) ) 


这 个 过 程 里 使 用 了 一 些 简单 操作 ， 完 成 对 以 表 的 形式 表示 的 集合 的 各 种 运算 AHR 
2.3.3 节 里 描述 的 (无 序 ) 集合 表示 类 似 : 


(define (list-union si s2) 
(cond ((null? sl) s2) 


({memq (car sl) s2) (list-union (cdr sl) s2)) 
{else (cons (car sl) (list-union (cdr 81) s2)))})) 


(define (list-difference sl s2) 
(cond ((null? sl) °()) 
( (memg (car sl) s2) (list-difference (cdr sl) s2)) 
(else (cons (car s1) 
(list-difference {cdr sl) s2))))) 


preserving 是 第 二 个 主要 的 序列 组 合 过 程 ， 它 的 参数 是 一 个 寄存 器 表 regs 和 两 个 应 该 
顺序 执行 的 指令 序列 seql 和 seq2。 它 返回 一 个 指令 序列 ， 其 中 的 语句 是 seq1 的 语句 后 跟着 
seq2 的 语句 ， 再 加 上 围绕 在 seq1 的 语句 前 后 的 适当 的 save 和 restore 指 令 ， 以 便 休 护 
regs 里 的 那些 seq2 需要 的 而 又 将 被 seql 修 改 的 寄存 器 。 为 了 完成 这 一 工作 , preserving 
首先 创建 出 一 个 序列 ， 其 中 包含 了 所 需要 的 那些 save ， 后 面 跟着 seq1 里 的 语句 ， 而 后 是 所 
需 的 所 有 restore。 这 一 序列 所 需要 的 寄存 器 ， 除 了 segl 需 要 的 那些 寄存 器 外 ， 还 有 所 有 
在 这 里 保留 和 恢复 的 寄存 器 ， 它 修改 的 寄存 器 就 是 geq1 修 改 的 寄存 器 ， 但 要 除去 在 这 里 傈 留 
和 恢复 的 那些 寄存 器 。 最 后 将 这 一 扩充 序列 与 seg2 按 常规 方式 拼接 起 来 。 下 面 过 程 以 递归 方 
式 实 现 这 一 策略 ， 逐 一 处 理 需 要 保留 的 寄存 器 表 里 的 寄存 器 “; 


(define (preserving regs seql seq2) 
(if (null? regs) - 
(append-instruction-sequences seql seq2) 
(let ((first-reg (car regs))) 
(if (and ({needs-register? seq2 first-reg) 
(modifies-register? seqi first-reg) ) 
(preserving (cdr regs) 
(make-instruction-sequence 
{list-union (list first-reg) 
(registers-needed seqi)) 
{list-difference (registers-modified seql) 
(list first-reg) ) 
{append ‘((save ,first-reg) ) 
(statements seqi) 
‘((restore ,first-reg)))) 
seq?2 ) 
(preserving (cdr regs) seql seq2))))) 


另 一 个 序列 组 合 过 程 是 tack-on-instruction-sequence， 它 用 在 compile-lambda 
里 ， 用 于 将 过 程 与 男 一 个 序列 拼接 起 来 。 由 于 过 程 体 本 身 并 不 是 作为 组 合 序列 的 一 部 分 而 
“在 线 ” 执 行 的 ， 它 所 使 用 的 寄存 器 对 于 它 嵌 入 其 中 的 序列 的 寄存 器 使 用 并 没有 影响 。 这 样 ， 
我 们 在 将 过 程 体 纳入 其 他 序列 时 ， 就 应 该 忽略 它 所 需要 和 修改 的 寄存 器 集合 。 


(define (tack-on-instruction-sequence seq body-seq) 
(make-instruction-sequence 
(registers-needed seq) 
(registers-modified seq) 
(append (statements seq) (statements body-seq)))) 


27 请 注意 ， 这 里 preserving 用 三 个 参数 调用 append。 虽 然 本 书 里 介绍 的 append 定 义 只 接受 两 个 参数 Scheme 
标准 提供 的 append 过 程 可 以 接受 任意 多 个 参数 。 
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compile-if 和 compile-procedure-call 采 用 了 一 个 特殊 的 组 合 过 程 ， 完 成 条 件 表 
达 式 中 检测 之 后 的 两 个 分 支 的 拼接 ,这 个 过 程 名 为 parallel-instruction-sequences， 
这 里 的 两 个 分 支 决 不 会 顺序 执行 ， 对 于 任何 一 种 特定 的 检测 求 值 情况 ， 有 且 仅 有 两 全 分 支 之 
一 执行 。 正 因为 这 样 ， 第 二 个 分 支 所 需要 的 宥 存 妖 也 将 是 整个 组 合 序列 所 需要 的 ， 即 使 其 中 
的 一 些 被 第 一 个 分 支 修改 也 如 此 。 | 


(define (parallel-instruction-sequences seqi seq2) 
(make-instruction-sequence 
{list-union (registers-needed seql) 
(registers-needed seq2) ) 
(list-union (registers-modified seql) 
(registers-modified seq2)) 
(append (statements segi) (statements seq2)))) 


9.9.9 编译 代码 的 实例 


至 此 我 们 已 经 看 到 了 这 一 编译 器 的 所 有 元 素 ， 现 在 让 我 们 来 考察 一 个 编译 代码 的 实例 ， 
看 看 这 里 的 各 种 东西 如 何 相 互 配合 浑然 一 体 。 我 们 将 通过 下 面 形式 调用 compile， 编 译 其 中 
递归 定义 的 factorial 过 程 的 定义 : 
(compile 
"(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)) n))) 
‘val 


"next ) 
前 面 已 经 说 过 ，define 表 达 式 的 值 应 该 放 和 寄存 器 val ， 我们 也 不 关心 在 执行 define 之 后 
的 编译 代码 是 什么 。 因 此 在 这 里 就 随意 地 选择 next 作 为 连接 描述 符 。 
由 于 compile 确 定 了 被 处 理 的 表达 式 是 一 个 定义 ， 所 以 它 调 用 compile-definition 
去 编译 出 计算 被 赋 的 值 的 代码 (以 val 为 目标 )， 随 后 是 安装 这 一 定义 的 代码 ， 随 后 是 将 这 一 
define 的 值 (就 是 符号 ok) WA 目标 寄存 器 的 代码 ， 再 后 面 是 最 后 的 连接 代码 。env 被 保 
留 起 来 ， 绕 过 值 的 计算 部 分 ， 因 为 后 来 还 需要 用 它 去 安装 这 个 定义 。 由 于 连接 是 next ， 在 这 
种 情况 下 就 没有 连接 代码 。 这 样 ， 编 译 结果 代码 的 框架 如 下 : 
< 如 果 env 被 计算 值 的 代码 修改 就 保存 它 > 
< 定义 值 的 编译 结果 ， 目 标 为 Yal ， 连 接 next> 
< 如 果 env 在 前 面 保存 就 恢复 EC 
{perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env) ) 
{assign val (const ok)) 
在 这 里 ， 需 要 编译 并 产生 出 变量 factorial 的 值 的 表达 式 是 一 个 Lambda 表 达 式 ， 这 个 
值 是 一 个 计算 阶乘 的 过 程 。compile 处 理 这 种 表达 式 的 方式 是 调用 compile-lambda， 让 
这 个 过 程 去 编译 过 程 体 ， 用 新 标号 将 它 标记 为 一 个 入 日 点 ， 并 生成 出 一 些 指令 ， 将 位 于 这 个 


新 人口 点 的 过 程 体 组 合 到 运行 时 的 环境 中 ， 最 后 将 结果 赋 给 val 。 虽 然 编 译 好 的 过 程 代码 被 
插入 在 这 个 位 置 ， 整 个 序列 则 需要 跳 过 这 些 代 码 。 过 程 代码 在 它 开 始 的 地 方 去 扩充 过 程 的 定 
义 环境 ， 在 这 里 需要 增加 一 个 框架 ， 其 中 将 形式 参数 n 约 束 到 过 程 的 实际 参数 。 随 后 就 是 实际 
的 过 程 体 。 由 于 求 出 变量 值 的 这 段 代 码 并 不 修改 env 寄 存 器 ， 因 此 前 面 所 示 的 可 选 的 Save 和 
restore 就 不 会 产生 (位 于 entry2 的 过 程 代码 在 这 一 点 还 没有 执行 ， 因 此 它 对 env 的 使 用 
与 此 无 关 )。 这 样 ， 编 译 生 成 的 代码 框 染 变 成 了: 
(assign val (op make-compiled-procedure) 
(label entry2) 
{reg env)) 
(goto (label after-lambdal)) 
entry2 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env (op extend-environment) 
(const (n)) 
(reg argl) 
| (reg env)) 
< 过 程 体 的 编译 结果 > 
after-lambdal 
(perform (op define-variable! ) 
(const factorial) 
(reg val) 
(reg env) ) 
{assign val (const ok)) 


过 程 体 总 是 被 (用 compile-lambda-body ) 编译 为 一 个 序列 ， 用 val 作 为 目标 ， 用 的 
连接 是 return。 目前 这 个 序列 来 自 一 个 1 表达 式 : 
(if (=n 1) 
1 
(* (factorial (- n 1)) n)) 
compile-if 生 成 的 代码 首先 计算 谓词 部 分 〈 目 标 为 val) ， 而 后 检查 计算 结果 ， 在 谓词 为 候 
时 跳 过 真 分 支 。 在 谓词 代码 的 前 后 需要 保留 和 恢复 env、continue ， 因 为 1£ 表 达 式 的 其 他 
部 分 还 可 能 需要 它们 。 因 为 这 个 if 表 达 式 也 是 构成 这 个 过 程 体 的 序列 里 的 最 后 一 个 (也 起 仅 
有 的 一 个 ) RAR, 其 目标 是 val 而 且 连 接 是 return， 所 以 它 的 真 分支 和 假 分 支 都 用 目标 
val 和 连接 return 编 译 。( 也 就 是 说 ， 这 个 条 件 表达 式 的 值 ， 也 就 是 从 它 的 任何 分 支 计算 出 
的 值 ， 实 际 上 就 是 整个 过 程 的 值 . ) 
< 如 果 continue, env 被 谓词 部 分 修改 且 后 面 分 支 需 要 ， 就 保存 > 
< 谓词 部 分 的 编译 结果 ， 目 标 为 Val ， 连 接 为 Dext> 
< 如 果 continue, env 在 前 面 保存 ， 现 在 恢复 > 
(test (op false?) (reg val)) 
(branch (label false-branch4) ) 
true-branchd5 


< 真 分 支 的 编译 结果 ， 目 标 为 val ， 连 接 为 Teturn> 


false-branch4 
< 假 分 支 的 编译 结果 ， 目 标 为 Val ， 连 接 为 return> 
after-if3 


谓词 (= n 1) 是 一 个 过 程 调用 ， 这 时 需要 查找 运算 符 (符号 = ) ， 并 把 相应 的 值 放 和 人 
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proc。 而 后 把 实 参 1 和 7 的 值 装 进 arg1 里 。 这 时 需要 检查 proc 里 面包 含 的 是 基本 过 程 还 是 复 
合 过 程 ， 并 根据 情况 分 派 到 基本 分 支 或 者 复合 分 支 ， 这 两 个 分 支 都 结束 在 after-cal1 标 号 。 
有 关 在 求 值 运算 侍 和 运算 对 象 的 前 后 保留 和 恢复 寄存 器 的 要 求 ， 在 目前 这 一 情况 里 没有 导致 
任何 寄存 器 保留 动作 ， 因 为 这 里 的 求 值 都 不 会 修改 需要 考虑 的 那些 寄存 器 。 


(assign proc 
(op lookup-variable-value) (const =) (reg env) } 
(assign val (const 1)) 
(assign argl {op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl17}) 
compiled-branchl6 
(assign continue (label after-calll15) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchl?7 
(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 
after-calll5 


真 分 支 就 是 常数 1， 它 将 被 编译 为 (用 目标 Val 和 连接 return ) 


(assign val (const 1)) 
(goto (reg continue)) 


相对 于 假 分 支 的 代码 是 另 一 个 过 程 调 用 ， 其 中 的 过 程 是 符号 * 的 值 ， 参 数 是 n 和 另 一 过 程 调 用 
的 结果 (这 里 又 是 一 个 对 factorial 的 调用 )。 这 些 调用 中 有 的 每 一 个 都 要 设置 proc 和 arg1， 
以 及 它们 的 基本 分 支 和 复合 分 支 。 图 5-17 显 示 的 是 factorial 过 程 的 定义 的 完整 编译 结果 。 
请 注意 ， 在 那里 围绕 着 谓词 的 ， 还 有 对 于 continue 和 env 的 save 和 restore， 它 们 都 被 实 
际 生成 出 来 了 ， 这 是 因为 在 谓词 里 的 过 程 调用 要 修改 这 些 寄存 器 ， 而 两 个 分 支 里 的 过 程 调 用 
和 return 连 接 都 还 需要 它们 。 \ 


;; construct the procedure and skip over code for the procedure body 
(assign val 
(op make-compiled-procedure) (label entry2) (reg env)) 
{goto (label after-lambdal) ) 


entry2 ; calls to factorial will enter here 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment) (const (n)) (reg argl) (reg env)) 
n begin actual procedure body 
{save continue) 


(save env) 


‘; compute (= n 1) 


图 $-17 对 过 程 factorial 定 到 的 编译 结果 
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(assign proc (op lookup-variable-value) (const =} (reg env)) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive~procedure?) (reg proc)) 
(branch (label primitive-branchl7) ) 
compiled-branch16 
(assign continue (label after-calll15)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchl?7 
(assign val (op apply~-primitive-procedure) {reg proc) (reg argl)) 


after-calll15 ; val now contains result of (= n 1) 

{restore env) 

(restore continue) 

(test (op false?) (reg val)) 

{branch (label false-branché4) ) 
true-branch5 ; return] 

(assign val (const 1)) 

(goto (reg continue) ) 


false-branch4 

;; compute and return (* (factorial (- n 1)) n) 
(assign proc (op lookup-variable-value) (const *) (reg env)) 
(save continue) : 
(save proc) ; save * procedure | ， 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
{assign argl (op list) (reg val)) 
(save argl) ; save partial argument list for * 


; compute (factorial (~ n 1)), which is the other argument for * 
(assign proc | 
(op lookup-variable-value} (const factorial) (reg env)) 
(save proc) ; save factorial procedure 


+; compute (- n 1), whichis the argument for factorial 
{assign proc (op lookup-variable-value) (const -) (reg env) ) 
(assign val (const 1)) : 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc)) 
{branch (label primitive-branch8) ) 
compiled-branch?7 
(assign continue (label after-call6)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch8 


图 5-17 ( 续 ) 
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{assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call6 ; val now contains result of (~ n 1) 
{assign argl (op list) (reg val)) 
(restore proc) ; restore factorial 
;; apply factorial | 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchll) ) 
compiled-branchl0 
(assign continue (label after-call9)) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchll 
{assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-call9 ; wal now contains result of (factorial (- n 1)) 
{restore argl) ; restore partial argument list for * 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) ; restore * 
{restore continue) 
;; apply * and return its value 
(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branchl14) ) 
compiled-branchl13 
;; note that a compound procedure here is called tail-recursively 
{assign val (op compiled-procedure-entry) (reg proc)) 
{goto (reg val)) 
primitive-branchl4 | 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) | 
after-calll2 
after-if3 
after-lambdal | 
;; assign the procedure to the variable factorial 
(perform 
(op define-variable!) (const factorial) (reg val) (reg env)) 
(assign val (const ok)) 


5-17 ( 续 ) 
练习 5.33 ”考虑 下 面 这 个 阶乘 过 程 的 定义 ， 它 与 上 面 给 出 的 定义 略 有 不 同 : 


(define (factorial-alt n) 
(if (= n 1) 
1 
(* n (factorial-alt (- n 1))))) 


请 编译 这 个 过 程 ， 并 将 得 到 的 代码 与 factorial 的 代码 做 比较 。 请 解释 你 所 看 到 的 各 个 不 同 
之 处 。 在 这 两 个 程序 中 ， 会 不 会 有 一 个 比 另 一 个 更 高 效 ? 
练习 5.34 清 编译 下 面 的 迭代 型 阶乘 过 程 ; 


(define (factorial n) 


A20 I LO 


(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


请 在 结果 代码 里 加 上 标注 ， 说 明 在 factorial 的 友 代 型 和 递归 型 版 本 的 代码 中 ， 存 在 着 哪 纤 
本 质 性 的 差异 ， 使 得 一 个 过 程 需 要 不 断 使 用 堆栈 空间 ， 而 另 一 个 可 以 在 常量 空间 里 运行 。 
练习 5.35 编译 产生 出 图 5-18 所 示 代 码 的 表达 式 是 什么 ? 


(assign val (op make-compiled-procedure) (label entry16 ) 
(reg env) ) 
{goto {label after-lambdal5) ) 
entry16 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment) (const (x)) (reg argl) (reg env) ) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(save continue) 
(save proc) 
(save env) 
(assign proc (op lookup-variable-value) (const g) (reg env) ) 
(save proc) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(assign val (const 2)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const x) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch {label primitive-branchl9) ) 
compiled-branchl8 
(assign continue (label after-calil7)) 
(assign val (op compiled-procedure~entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchl9 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
after-calll/? 
(assign argl (op list) (reg val)) 
{restore proc) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch22) ) 
compiled-branch21 
(assign continue (label after-call20) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch22 | 
(4ssign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


图 5-18 编译 器 输出 结果 一 个 实例 。 见 练习 3.35 
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after-call20 
(assign argl (op list) (reg val)) 
(restore env) | | 
(assign val (op lookup-variable-value) (const x) (reg env)) 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) 
(restore continue) 
(test (op primitive-procedure?) (reg Proc ) ) 
(branch (label primitive-branch25)) 
compiled-branch24 
{assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) © 
primitive-branch25 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) 
after-call23 
after-lambdal5 
(perform (op define-variable!) (const f) (reg val) (reg env)) 


(assign val (const ok) ) 


图 5-18 (4%) 


练习 5.36 ”在 我 们 的 编译 器 所 产生 的 代码 里 ， 对 于 组 合式 里 的 运算 对 象 的 求 值 顺序 是 什 
么 ?是 从 去 到 右 ， 是 从 右 到 左 ， 还 是 其 他 什么 顺序 ? 这 一 编译 器 里 的 哪个 部 分 确定 了 这 一 顺 
序 ? 请 修改 编译 器 ， 使 之 能 产生 其 他 求 值 顺序 (参见 5.4.1 节 里 有 关 显 式 控 制 求 值 器 里 求 值 顺 
序 的 讨论 )。 这 样 修改 了 运算 对 象 的 求 值 顺序 ， 会 改变 构造 参数 表 的 代码 的 效率 吗 ? 

练习 5.37 ”理解 编译 器 里 为 优化 堆栈 使 用 的 preserving 机 制 的 一 种 方式 ， 是 去 看 看 如 
果 不 采 用 这 一 想法 ， 将 会 生成 出 多 少 额外 的 操作 。 请 修改 Preserving ,使 它 总 是 生成 save 
和 restore 操 作 。 请 编译 一 些 简单 的 表达 式 ， 并 标 出 这 样 生成 出 来 的 不 必要 的 堆栈 操作 。 将 
这 样 生成 出 的 代码 与 采用 原来 的 preserving 机 制 生成 的 代码 做 比较 。 

练习 5.38 ”我 们 的 编译 器 在 避免 不 必要 的 堆栈 操作 方面 很 聪明 ， 但 是 当 它 遇 到 编译 对 于 
语言 中 的 基本 过 程 的 调用 ， 将 其 编译 为 机 器 提供 的 基本 操作 时 ， 就 表现 得 一 点 也 不 聪明 了 。 
举 个 例子 ， 让 我 们 考虑 一 下 对 计算 (+a 1) 的 编译 将 产生 多 少 代码 ， 将 实 参 表 设 置 到 arg1 
的 代码 ， 将 基本 的 加 法 过 程 (是 通过 用 符号 + 在 环境 中 查找 而 得 到 的 ) 放 入 Proc ， 检 测 这 个 
过 程 是 基本 过 程 还 是 复合 过 程 。 编 译 器 总 是 要 生成 执行 这 种 检测 的 代码 ， 还 要 生成 构成 基本 
分 支 和 复合 分 支 的 代码 (只 有 其 中 之 一 会 执行 ) 。 我 们 还 没有 展示 控制 器 中 实现 基本 操作 的 那 
些 部 分 ， 但 是 可 以 假定 ， 有 关 指 令 使 用 了 机 器 的 数据 通路 里 的 一 些 基 本 算术 操作 。 请 考虑 一 
下 ， 如 果 编 译 器 可 以 将 基本 操作 做 成 开放 式 代码 一 也 就 是 说 ， 如 果 它 能 生成 出 直接 使 用 这 
些 基本 机 器 操作 的 代码 一 产生 出 的 代码 将 会 有 多 么 少 。 表 达 式 (+a 1) 有 可 能 被 编译 为 某 
种 像 下 面 这 样 简单 的 东西 23: : 


(assign val (op lookup-variable-value)}) (const a) (reg env ) ) 
(assign val (op +) (reg val) (const 1)) 





228 我 们 在 这 里 用 同一 个 符号 + 指称 在 源 语言 里 的 过 程 和 机 器 操作 。 一 般 而 言 ， 在 源 语言 的 基本 过 程 和 机 器 的 基 
本 操作 之 间 并 没有 一 一 对 应 关 系 。 
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在 这 个 练习 里 ， 我 们 要 扩充 自己 的 编译 器 ， 以 支持 对 特别 选 出 的 一 些 基本 操作 的 开放 代 
码 。 对 于 这 些 基 本 过 程 调 用 ,我们 要 生成 专门 用 途 的 代码 ， 而 不 是 生成 通用 的 过 程 应 用 代码 。 
为 了 支持 这 种 功能 ， 我 们 将 假定 所 用 的 机 器 有 两 个 特殊 的 参数 寄存 器 arg1 和 azg2 ， 机 大 
的 所 有 基本 算术 操作 都 从 arg1 和 arg2 取 得 它们 的 输入 ， 结 果 将 存 人 里 Val 、aIgl 或 者 
arg2, 

编译 器 必须 能 在 源 程序 里 识别 出 开放 代码 基本 操作 的 应 用 。 我 们 将 为 此 扩充 comp1lle 过 
程 里 的 分 派 ， 除 了 在 那里 完成 它 目 前 已 经 能 识别 的 保留 字 (特殊 形式 ) 外 ， 让 它 还 能 够 识别 
这 些 基 本 操作 的 名 字 ?? 。 对 于 每 个 特殊 形式 ， 我 们 的 编译 器 都 有 一 个 代码 生成 器 。 在 这 个 练 
习 里 ， 我 们 也 为 开放 代码 基本 操作 构造 起 一 组 代码 生成 三 。 

a) 开放 代码 基本 操作 与 特殊 形式 不 同 ， 它 们 都 要 求 自己 的 参数 被 求 值 。 请 写 出 一 个 代码 
本 成 器 spread-arguments 用 于 所 有 的 开放 代码 生成 器 。spPread-argumentSs 应 该 以 一 个 
运算 对 象 表 为 参数 ， 以 参数 寄存 器 为 目标 ， 按 顺序 编译 给 定 的 运算 对 象 。 注 意 ， 一 个 运算 对 
象 里 还 可 能 包含 对 开放 代码 基本 操作 的 另 一 个 调用 ， 因 此 在 求 值 运 算 对 象 时 ， 参 数 寄存 器 也 

b) 请 为 基本 过 程 = 、*、 一 和 十 各 写 出 一 个 代码 生成 器 ， 它 们 都 以 一 个 具有 这 个 运算 符 的 
组 合式 ， 一 个 目标 和 一 个 连接 描述 符 作 为 参数 ， 生 成 的 代码 将 实际 参数 传 到 寄存 器 里 ， 而 后 
以 指定 目标 和 给 定 连 接 执行 相应 的 操作 。 你 可 以 只 处 理 两 个 运算 对 象 的 表达 式 。 请 让 
compile ffA HX E IBE N B 

c) 对 上 面 的 Eactorial 实 例 试验 你 的 新 编译 器 ， 将 结果 代码 与 没有 开放 代码 时 生成 的 代 
码 比较 一 下 。 | 

d 扩充 你 为 十 和 * 开发 的 代码 生成 器 ， 使 它们 能 够 处 理 具 有 任意 个 运算 对 象 的 表达 式 。 
对 多 于 两 个 运算 对 象 的 表达 式 ， 应 该 编译 为 一 系列 的 运算 ， 每 次 处 理 两 个 输入 。 


5.5.6 词法 地 址 


编译 器 执行 的 最 重要 优化 之 一 是 优化 变量 查找 操作 。 对 于 我 们 编译 器 至 今 的 实现 ， 所 生 
成 的 代码 里 一 直 使 用 求 值 器 机 器 里 的 lJookup-variable-value 操 作 。 这 个 操作 查找 变量 
的 方式 就 是 在 运行 环境 里 的 一 个 个 框架 中 做 查找 ， 与 那里 当前 有 约束 的 变量 比较 。 如 果 框 架 
BERE, 或 者 存在 的 变量 很 多 ， 这 种 查找 的 代价 就 非常 高 。 举 个 例子 ， 考 虑 在 某 个 过 程 应 
用 里 对 表达 式 (* x y z) 求 值 时 查找 变量 值 的 情况 ， 该 过 程 由 下 面 的 表达 式 返 回 ; 

(let ((x 3) (y 4)) 

(lambda (a b c d e) 
(let ((y (* a b x)) 
(z (+c d x))) 
(* x y 2)))) 
因为 1et 表 达 式 不 过 是 1ambda 组 合式 的 语法 包装 ， 这 个 表达 式 等 价 于 : 


( (lambda (x y) 
(lambda (a b c d e) 


329 __ 般 而 言 ， 将 基本 操作 作为 保留 字 并 不 是 一 种 好 想法 ， 因 为 这 样 用 户 就 不 能 将 这 些 名 字 重 新 约束 到 其 他 过 程 
了 。 进 一 步 说 ， 如 果 我 们 给 一 个 已 经 在 使 用 的 编译 器 增加 新 的 保留 字 ， 一 些 现存 的 程序 里 如 果 定 义 了 来 用 这 
些 名 字 的 过 程 ， 现 在 就 不 能 工作 了 。 参 见 练习 5.44 有关 如 何 避 免 这 种 情况 的 一 些 想 法 。 


53 = 423 


((1ambda (y z) (* x y 2)) 
(* a b x) 
(+ c d x)))) 


4) 


每 次 当 L1ookup-varziable-value 去 查找 x 时 ， 它 都 需要 确定 符号 x 并 不 与 y 或 者 z 相 等 〈 用 
eq? ， 在 第 一 个 框架 里 ) ， 也 不 同 于 a、b、c、d 或 者 e (在 第 二 个 框架 里 )。 目 前 我 们 假定 这 
个 程序 里 没有 使 用 define 一 一 这 样 就 只 有 lambda 建 立 变 量 约束 。 因 为 我 们 的 语言 采用 的 龙 
词法 作用 域 规则 ， 任 何 表 达 式 的 运行 时 环境 所 具有 的 结构 ， 与 该 表达 式 出 现 所 在 的 程序 词法 
结构 是 平行 的 ”。 这 样 ， 在 编译 器 分 析 上 述 表达 式 时 ， 它 完全 可 以 弄 清 楚 ， 每 次 过 程 应 用 时 ， 
表达 式 (* x y 2) 里 的 变量 x 总 是 在 当前 框架 外 面 的 第 二 个 框架 里 找到 ， 而 且 将 出 现在 那 
个 框架 里 的 第 二 个 位 置 。 | 

我 们 可 以 利用 这 一 事实 ， 发 明 一 种 新 的 变量 查找 操作 lexical-address-lookup。 这 
一 操作 以 一 个 环境 和 一 个 词法 地 址 作为 参数 。 这 种 词法 地 址 由 两 个 数组 成 : 一 个 是 框架 号 ， 
它 描述 了 需要 跳 过 多 少 框架 ， 另 一 个 是 移 位 数 ， 它 描述 了 在 这 个 框架 里 应 该 跳 过 多 少 变量 。 
过 程 1exical-address-1ookup 将 相对 于 当前 环境 ， 产 生出 保存 在 给 定 词 法 地 址 处 的 变量 
的 值 。 如 果 把 lexical-address-lookup 操 作 加 进 前 面 开发 的 机 器 ， 我 们 就 可 以 在 编译 生 
成 的 代码 里 使 用 这 个 操作 引用 变量 ， 而 不 再 用 LIookup-variab1le-value。 与 此 类 似 , 还 
可 以 用 一 个 新 的 操作 lexical-address-set!， 而 不 用 set-variable-value!。 

为 了 生成 这 种 代码 ， 当 编译 器 需要 去 编译 一 个 变量 引用 时 ， 它 就 必须 能 确定 该 变量 的 词 
法 地 址 。 变 量 在 一 个 程序 里 的 词法 地 址 依赖 于 具体 变量 在 代码 里 出 现 的 位 置 。 举 例 说 ， 在 下 
面 的 程序 里 ， 在 表达 式 <e1> 里 变量 x 的 地 址 是 (2, 0) 向 后 第 二 个 框架 里 的 最 前 面 一 个 变 
量 。 在 这 一 点 上 Y 的 地 址 是 (0, 0)，c 的 地 址 是 (1, 2 )。 在 表达 式 <e2> 里 ， 变 量 x 的 地 址 契 
(1,0), y 的 地 址 是 (1, 1) ,，c 的 地 址 是 (0, 2 )。 


((lambda (x y) 

(lambda (abcde) 
((lambda {y z) <el>) 
<e2> 
(+ c d x)))) 





4) 


要 想 使 编译 器 能 够 生成 出 使 用 词法 地 址 的 代码 ， 一 种 方法 就 是 维持 一 个 称 为 编译 时 环境 
的 数据 结构 ， 在 这 个 结构 里 保存 各 种 变化 的 轨迹 ， 说 明 在 程序 执行 到 特定 的 变量 访问 操作 时 , 
各 个 变量 将 出 现在 运行 环境 的 哪个 框架 里 的 哪个 位 置 上 。 这 种 编译 时 环境 也 是 框架 的 一 个 表 ， 
每 个 框架 包含 了 一 个 变量 的 表 (在 这 里 当然 没有 约束 于 变量 的 值 ， 因 为 编译 时 不 可 能 计算 出 
这 种 值 )。 把 这 种 编译 时 环境 作为 compile 的 另 一 个 参数 ， 与 原 有 参数 一 起 传送 给 各 个 代码 
生成 器 。 对 于 compile 的 最 高 层 调 用 ， 我 们 应 采用 一 个 空 的 编译 时 环境 。 在 编译 1ambda 体 
时 ，compile-lambda-body 会 用 一 个 包含 着 该 过 程 的 所 有 变量 的 框架 扩充 当时 的 编译 时 环 


0 如 果 我 们 允许 内 部 定义 ， 这 一 说 法 就 不 成 立 了 ， 除 非 我 们 通过 扫描 将 它们 移出 去 ， 见 练习 5.43， 


境 ， 构 成 lambda 体 的 表达 式 序列 将 在 这 一 扩充 后 的 环境 里 编译 。 在 编译 过 程 中 的 每 一 点 ， 
compile-variable 和 compile-assignment 都 使 用 这 个 编译 时 环境 ， 生 成 出 合适 的 词 

上 面 是 这 一 词法 地 址 策略 的 概要 ， 练 习 3$.39 到 3.43 摘 述 了 如 何 完 成 这 一 策略 ， 以 便 将 词法 
查找 结合 到 我 们 的 编译 器 里 。 练 习 3. 和 4 反 述 了 编译 时 环境 的 另 一 个 用 途 。 

练习 5.39 ”请 写 出 一 个 过 程 lexical-address-lookup 实 现 这 种 新 的 查找 操作 。 这 个 
过 程 应 该 有 两 个 参数 一 一 一 个 词法 地 址 和 一 个 运行 时 环境 ， 它 返回 保存 在 特定 词法 地 址 的 变 
量 的 值 。 如 果 变 量 的 值 是 *unassigned*、lexical-address-lookup 应 该 发 出 一 个 错 
误 信号 3!。 请 再 写 一 个 过 程 lexical-address-set!， 实现 修改 位 于 特定 词法 地 址 的 变量 
值 的 操作 。 

练习 5.40 请 修改 编译 器 ， 使 之 能 维护 好 如 上 所 述 的 编译 时 环境 。 这 时 需要 给 compile 
和 各 种 代码 生成 器 增加 一 个 编译 时 环境 参数 ， 还 要 在 compile-lambda-~body 里 扩充 它 。 

练习 5.41 ”请 写 一 个 过 程 find-variable， 它 以 一 个 变量 和 一 个 编译 时 环境 为 参数 ， 
返回 该 变量 相对 于 该 运行 时 环境 的 词法 地 址 。 举 例 说 ， 在 上 面 所 示 的 程序 片段 里 ， 编 译 表 
达 式 <e1> 期 间 的 编译 时 环境 是 (( 了 z) (a b c d e) (x y)), find-variable 应 该 


产生 
(find-variable °c ‘((y z) (abcde) (x y))) l 
(1 2) 
(find-variable °x '((y z) (abcde) (x y))) 
(2 0) 
{find-variable w '((y z) (a b cde) (x y))) 


not-found 

练习 5.42 ”请 利用 练习 5.41 的 find~variable 重 写 compile-variable 和 compile- 
assignment ， 产 生出 采用 词法 地 址 的 指令 。 对 于 Eind-variable 返 回 not-tounaQ 的 情况 
(也 就 是 说 ， 该 变量 不 在 编译 时 环境 里 ) ， 你 就 应 该 让 代码 生成 器 像 以 前 一 样 使 用 求 值 茶 ， 去 
进一步 查找 它 的 约束 (在 编译 时 无 法 找到 的 变量 只 能 出 现在 全 局 环境 里 。 全 局 环境 是 运行 时 
环境 的 一 部 分 ， 但 它 不 是 编译 时 环境 的 一 部 分 ?32 。 这 也 就 是 说 ， 如 果 你 希望 的 话 ， 完 全 可 以 
让 求 值 器 操作 直接 到 侈 局 环境 里 去 查找 , 而 无 需 先 搜索 完 从 env 里 得 到 的 整个 运行 时 环境 ，。 
全 局 环境 可 以 通过 操作 (op get-global-environment) 得 到 )。 用 几 个 简单 实例 测试 
这 一 修改 后 的 编译 器 ， 例 如 用 本 节 开 始 给 出 的 做 套 lambda 组 合式 。 

练习 5.43 ”我 们 在 4.1.6 节 说 过 ， 块 结构 的 内 部 定义 不 能 认为 是 “真正 的 ”define。 相 反 ， 
在 解释 一 个 过 程 体 时 ， 应 该 将 其 中 的 内 部 变量 看 成 就 像 是 作为 常规 的 lambda 变 量 定义 ， 而 后 
又 通过 使 用 set! ， 为 它们 的 正确 初始 化 值 。4.1.6 节 和 练习 4.16 说 明了 如 何 修改 元 循环 解释 器 ， 
通过 将 内 部 定义 扫描 出 来 而 完成 这 件 事 。 请 修改 这 里 的 编译 器 ， 在 它 编译 过 程 体 之 前 执行 同 


31 如 果 我 们 实现 通过 扫描 的 方式 消除 内 部 定义 ， 变 量 查找 操作 也 需要 做 这 种 修改 〈 见 练习 5.43 )。 为 了 使 词法 作 
用 域 能 够 工作 ， 我 们 就 需要 消除 这 种 定义 。 

32 词法 地 址 不 能 用 于 访问 全 局 环境 里 的 变量 ， 因 为 这 些 变 量 可 以 在 任何 时 候 定义 或 者 重新 定义 。 有 了 如 练习 
5.43 所 说 的 内 部 定义 扫描 功能 ， 编 译 器 看 到 的 所 有 定义 都 在 顶层 ， 都 在 全 局 环境 里 活动 。 对 一 个 定义 的 编译 
并 不 会 导致 被 定义 的 名 字 进 入 编译 时 环境 。 
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练习 5.44 ”在 这 一 节 里 ， 我 们 将 注意 力 集中 在 如 何 使 用 编译 时 环境 生成 词法 地 址 的 问题 
上 。 实 际 上 ， 编 译 时 环境 还 有 其 他 用 途 。 举 例 来 说 ， 在 练习 5.38 里 ， 我 们 通过 基本 过 程 开 放 
代码 的 方式 提高 编译 后 代码 的 效率 。 在 相关 的 实现 里 ， 我 们 把 开放 代码 过 程 的 名 字 当 作 保 留 
字 看 待 。 如 果 程 序 里 对 这 一 名 字 做 了 重新 约束 ， 练 习 5.38 里 描述 的 机 制 将 仍然 会 把 它 作为 基 
本 过 程 ， 开 放 其 代码 ， 从 而 忽略 新 的 约束 。 作 为 例子 ， 请 考虑 下 面 过 程 : 

(lambda (+ * a b x y) 

(+ (* ax) (* by))) | 

它 计 算 x 和 Y 的 线性 组 合 。 我 们 可 能 用 参数 +matIix 、*matIix 以 及 4 个 和 矩阵 来 调用 这 个 国 数 ， 
但 是 开放 代码 编译 器 还 是 会 将 (+ (* a x) (* b y)) 里 的 + 和 * 当 作 基本 过 程 ， 去 开放 
+ 和 * 的 代码 。 请 修改 开放 代码 编译 器 ， 让 它 去 查询 编译 时 环境 。 使 它 在 遇 到 涉及 基 本 过 程 
名 的 表达 式 时 都 能 编译 出 正确 的 代码 。( 使 这 些 代 码 都 能 正确 工作 ， 只 要 程序 里 不 对 这 些 名 字 
define 或 者 set! 做 定义 或 赋值 ,) 


5.5.7 编译 代码 与 求 值 器 的 互 连 


我 们 至 今 还 没有 解释 如 何 将 编译 得 到 的 代码 装 入 求 值 器 ， 也 没有 讨论 怎样 去 运行 它们 。 
现在 我 们 假设 显 式 控 制 求 值 器 已 经 像 在 5.4.4 节 那样 定义 好 了 ， 其 中 还 包括 了 脚注 323 里 描述 的 
那些 操作 。 下 面 要 实现 一 个 过 程 compile-and-go ， 它 编译 一 个 Scheme 表达 式 ， 将 目标 代 
码 装 人 这 部 求 值 器 机 器 ， 并 启动 该 机 器 ， 使 之 在 求 值 器 的 全 局 环境 里 运行 这 一 代码 ， 打 印 其 
结果 ， 而 后 进入 求 值 器 的 驱动 循环 。 我 们 还 要 修改 这 一 求 值 器 ， 使 解释 性 的 表达 式 除了 能 调 
用 其 他 编译 代码 外 ， 也 能 调用 编译 后 的 过 程 。 在 此 之 后 ， 我 们 就 可 以 将 编译 后 的 过 程 放 进 机 


a, FARSI EN] T: 


(compile-and-go 
‘(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- n 1)) n)))) 
;;; EC-Eval value: 
ok 


e:: EC-Eval input: 
(factorial 5) 

ee? EC~Eval value: 
120 


为 了 使 求 值 器 能 处 理 编译 后 的 过 程 ( 例 如 ， 求 值 上 面 对 factorial 的 调用 ) ， 我 们 需要 
修改 位 Tapply-dispatch 的 代码 ( 见 5.4.1 节 )， 使 它 能 识别 编译 后 的 过 程 ( 与 基本 过 程 和 
复合 过 程 都 不 同 )， 并 将 控制 直接 传 到 编译 后 代码 的 入 口 点 ”: 


apply-dispatch 
(test (op primitive-procedure?) (reg prac)) 
(branch (label primitive-apply) ) 


33 当然 ， 编 译 性 过 程 和 解释 性 过 程 一 样 ， 都 是 复合 过 程 (不 是 基本 过 程 )。 为 了 与 显 式 控制 求 值 器 所 用 的 术语 
保持 一 致 ， 在 这 一 节 里 ， 我 们 将 用 “复合 过 程 ” 专 指 解释 性 过 程 (与 编译 性 过 程 相对 应 )。 
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(test (op compound-procedure?) (reg proc)) 
(branch (label compound-apply) ) 

(test (op compiled-procedure?) (reg proc)) 
(branch (label compiled-apply) ) 

(goto (label unknown-procedure-type) ) 


compiled-apply 
(restore continue) 
(assign val (op compiled-procedure-entry) (reg proc)) 


{goto (reg val)) 


请 注意 ， 在 compiled-apply 处 需要 恢复 continue。 请 回忆 一 下 求 值 器 里 各 方面 安排 的 情 
况 ， 在 apPply-dispatch 处 ， 继 续 点 位 于 堆栈 顶 。 而 在 另 一 边 ， 编 译 代 码 的 入 口 扣 却 期 望 继 
续 点 在 continue 里 。 因 此 ， 在 编译 代码 执行 之 前 必须 恢复 continue 。 

为 使 我 们 能 在 启动 求 值 器 机 器 时 运行 一 些 编译 代码 ， 我 们 在 求 值 器 机 器 的 开始 处 增加 一 
条 branch 指令 ， 如 果 寄 存 器 f1ag 被 设置 ， 它 就 要 求 这 一 机 器 转向 一 个 新 的 入 口 点 “。 


(branch (label external-entry)) ; branches if flag ts set 
read-eval-print-loop 


(perform (op initialize-stack) ) 


external-entry 和 日 假 定 在 这 一 机 器 启动 时 ，valL 里 包含 着 一 个 指令 序列 的 位 置 ， 该 指令 
序列 将 结果 放 在 val 里 并 以 (goto: (reg continue)) 结束 。 从 这 一 入 口 点 启动 ， 执 行 过 
程 就 会 跳 到 由 val 指 定 的 位 置 ， 但 会 首先 设置 continue 使 执行 还 能 转 回 print-result。 
这 将 使 Val 里 的 值 被 打印 出 来 ， 而 后 转 到 求 值 器 的 读 入 一 求 值 一 打印 循环 的 开始 位 置 。 


external-entry 
(perform (op initialize-stack) ) 
(assign env (op get~-global-environment) ) 
(assign continue (label print-result)) 


(goto (reg val)) 


54 现在 这 一 求 值 器 机 器 开始 处 就 是 一 条 branch 指 令 ， 我 们 在 启动 求 值 器 机 器 之 前 必须 初始 化 Elag 寄 存 器 。 为 
了 能 在 常规 的 读 入 一 求 值 一 打印 循环 中 启动 这 一 机 器 ， 我 们 可 以 用 : 


(define (start-eceval) 
(set! the-global-environment (setup-environment ) ) 
(set-register-contents! eceval ’flag false) 


{start eceval) ) 


55 因为 编译 后 的 过 程 是 一 个 对 象 ， 系 统 也 可 能 会 试 着 去 打印 它 ， 因 此 ， 我 们 还 要 修改 系统 的 打印 操作 user- 
print (参见 4.1.4 节 )， 使 它 不 企图 去 打印 编译 后 的 过 程 里 的 各 个 成 分 。 


(define (user-print object) 
(cond ((compound-procedure? object) 
(display (list ‘compound-procedure 
{procedure-parameters object) 
(procedure-body object) 
*<procedure-env>))) 
(({compiled-procedure? object) 
(display *<compiled-procedure>) ) 
(else (display object)))) 


53 R # ev 


现在 ， 我 们 已 经 可 以 用 下 面 过 程 来 编译 过 程 定 义 ， 执 行 编译 后 的 代码 ， 然 后 运行 读 和 人 -- 
求 值 一 打印 循环 ， 这 就 使 我 们 能 够 试验 这 个 过 程 。 因 为 我 们 希望 编译 后 的 代码 能 返回 到 
continue 里 的 地 址 ， 并 在 Val 里 存放 好 结果 ， 我 们 应 该 用 目标 Val 和 连接 return 去 编译 表 
达 式 。 为 了 将 编译 器 生成 的 目标 代码 转换 到 求 值 器 寄存 器 机 器 的 可 执行 指令 ， 我 们 使 用 来 自 
寄存 器 机 器 模拟 器 的 过 程 assemble ( 见 5.2.2 节 )。 而 后 我 们 设置 Val 寄 存 器 ， 使 之 指向 指令 
的 表 ， 设 置 f1ag 使 求 值 器 转向 人 口 点 external~entry， 并 启动 求 值 器 。 
(define (compile-and-go expression) | 
(let ((instructions 
(assemble (statements 
(compile expression ‘val ‘return) ) 
eceval))) 
(set! the-global-environment (setup-environment) ) 
(set-register-contents! eceval ‘val instructions) 
(set-register-contents! eceval ‘flag true) 
(start eceval))) 


如 果 我 们 设置 了 堆栈 监视 器 ( 像 5.4.4 节 最 后 所 说 的 那样 )， 那 么 就 可 以 检测 编译 代码 的 堆 
栈 使 用 情况 了 : 


(compile-and-go 
"(define (factorial n) 
(if (= n 1) 
1 
(* (fatorial (- n 1)) n)))) 


(total-pushes = 0 maximum-depth = 0) 
es: EC-Eval value: 
ok 


s> EC~Eval input: 
(factorial 5) 
(total-pushes = 31 maximum-depth = 14) 
3:2: EC-Eval value: 
120 


清 将 这 个 例子 与 对 同一 过 程 的 解释 性 版 本 的 求 值 (factorial 5) 的 情况 比较 一 下 
(5.4.4 池 的 最 后 介绍 过 )。 解 释 性 版 本 需要 144 次 压 栈 操作 ， 最 大 堆栈 深度 为 28 。 这 也 显示 出 我 
们 从 编译 策略 中 得 到 的 优化 。 


解释 和 编译 | 
有 了 这 节 开 发 的 程序 ， 我 们 现在 就 可 以 对 解释 和 编译 的 不 同 策略 做 各 种 试验 了 …“。 解 释 
器 将 所 用 的 机 器 提升 到 用 户 程 序 层 面 上 ， 而 编译 器 将 用 户 程序 降低 到 机 器 语言 的 层面 上 。 我 
们 可 以 认为 Scheme 语言 (或 者 任何 程序 设计 语言 ) 是 惠 立 在 机 器 语言 之 上 的 一 族 有 内 育 力 的 
抽象 。 解 释 器 对 于 交互 式 的 程序 开发 和 排 错 是 非常 好 的 ， 因 为 程序 执行 的 各 个 步骤 都 以 这 些 
抽象 的 方式 组 织 起 来 了 ， 因 此 更 容易 被 程序 员 理 解 。 编 译 后 的 代码 执行 得 更 快 ， 因 为 程序 执 


se 我 们 还 可 以 做 得 更 好 一 些 ， 可 以 扩充 编译 器 ， 人 允许 编译 代码 去 调用 解释 性 过 程 ， 见 练习 5.47。 


8S 字 阁 器 机 器 里 的 计划 


行 步骤 在 机 器 语言 层面 上 ， 编 译 器 也 可 以 自由 去 地 做 各 种 跨越 高 层 抽 象 的 优化 ”。 

解释 和 编译 之 间 的 相互 替代 关系 还 引出 了 将 一 种 语言 移植 到 新 计算 机 的 不 同 策略 。 假 定 
我 们 希望 在 一 种 新 机 器 上 实现 Lisp 。 一 种 策略 是 从 $.4 节 的 显 式 控 制 求 值 器 出 发 ， 将 其 中 的 指 
令 一 条 一 条 翻译 到 新 的 机 器 。 另 一 种 不 同 的 策略 是 从 编译 器 出 发 ， 修 改 其 中 的 代码 生成 器 ， 
使 它们 能 为 这 种 新 计算 机 生成 代码 。 第 二 种 策略 使 我 们 可 以 在 这 种 新 机 器 上 运行 任何 Lisp 程 
序 ， 方 式 是 先 用 我 们 原 有 的 Lisp 机 器 上 的 编译 器 去 编译 它 ， 并 将 它 与 有 关 运 行 库 的 编译 后 的 
版 本 连接 *。 事 情 还 可 以 做 得 更 好 ， 我 们 可 以 去 编译 这 个 编译 器 本 身 ， 并 在 新 机 器 上 运行 这 
一 编译 结果 ， 去 编译 其 他 的 Lisp 程 序 ””。 或 者 我 们 可 以 去 编译 4.1 布 里 的 一 个 解释 器 ， 生 成 出 
一 个 可 以 在 这 一 新 机 器 上 运行 的 解释 器 。 

练习 5.45 ”通过 比较 完成 同样 计算 的 编译 后 代码 所 用 的 堆栈 操作 ， 和 求 值 器 所 用 的 堆栈 
操作 ， 我 们 可 以 确定 编译 器 对 于 堆栈 使 用 的 优化 程度 ， 包 括 在 速度 上 的 (减少 了 堆栈 操作 的 
总 次 数 ) 和 空间 上 的 ( 减 小 了 堆栈 的 最 大 深度 )。 将 这 一 优化 后 的 堆栈 使 用 情况 与 茶 台 专用 计 
算 机 对 于 同样 计算 的 执行 情况 做 些 比较 ， 可 以 为 判断 编译 器 的 质量 提供 一 些 标准 。 

a) 练习 5$.27 要 求 你 去 确定 使 用 那里 给 出 的 阶乘 函数 计算 对 时 ， 求 值 右 所 需 的 压 栈 次 数 和 最 
大 堆栈 深度 (作为 n 的 函数 )。 练 习 5.14 要 求 你 对 于 图 5-11 所 示 的 专用 阶乘 机 器 完成 同样 的 度量 
工作 。 现 在 请 对 编译 后 的 factorial 过 程 做 同样 的 分 析 。 

算出 编译 后 过 程 版 本 的 压 栈 次 数 与 解释 版 本 的 压 栈 次 数 之 比率 ， 对 最 大 堆栈 深度 做 同样 
计算 。 因 为 计算 n! 所 用 的 操作 次 数 和 堆栈 深度 都 是 n 的 线性 函数 ， 因 此 ， 这 些 比率 在 n 变 大 的 
过 程 中 应 趋 于 常数 。 这 些 常 数 是 什么 ? 类似 地 ， 请 找 出 专用 机 器 里 的 堆栈 使 用 情况 与 解释 版 
本 中 使 用 情况 的 比率 。 

请 比较 专用 机 器 与 解释 性 代码 的 比率 和 编译 与 解释 代码 的 比率 。 你 应 该 看 到 ， 专 用 机 器 
的 工作 情况 远 远 优 于 编译 代码 ， 因 为 手工 打造 的 控制 器 代码 应 该 比 我 们 这 个 初步 的 通用 编译 
器 生成 的 代码 好 许多 。 

b) 你 能 对 编译 器 提出 一 些 修 改建 议 ， 使 它 生成 的 代码 更 接近 手工 版 本 的 性 能 吗 ? 

练习 5.46 请 像 练 习 5.45 那 样 做 一 些 分 析 ， 确 定编 译 下 面 树 型 递归 的 韭 波 那 契 过 程 的 效率 : 


337 如 果 我 们 强制 性 地 要 求 在 用 户 程序 里 遇 到 的 错误 都 需要 检查 并 报告 ， 而 不 允许 强行 终止 系统 或 者 产生 错误 的 

结果 ， 那 么 就 会 带 来 很 大 的 开销 ， 与 实际 的 执行 策略 无 关 。 举 个 例子 ， 数 组 的 越界 引用 可 以 通过 在 执行 前 检 
查 引 用 合法 性 的 方式 查 出 。 但 是 这 一 检查 的 开销 可 能 是 数组 应 用 本 身 开 销 的 许多 倍 ， 因 此 程序 员 需 要 在 速度 
与 安全 性 之 间 做 权衡 ， 确 定 是 否 进行 这 种 检查 。 一 个 好 的 编译 器 应 该 可 以 产生 出 做 这 种 检查 的 代码 ， 也 应 该 
避免 多 余 的 检查 ， 并 且 应 该 允许 程序 员 去 控制 在 编译 代码 中 错误 检查 的 范围 和 种 类 。 
我 我 流行 语言 (例如 C 和 C + +) 的 编译 器 通常 都 不 将 错误 检查 代码 放 入 运行 代码 里 ， 以 便 使 程序 尽 可 能 快 
速 。 作 为 这 样 做 的 一 个 结果 ， 它 实际 上 将 显 式 提供 错误 检查 的 问题 交 给 程序 员 处 理 。 不 幸 的 是 ， 人 们 常常 因 
为 醇 忽 而 没有 去 做 ， 其 至 在 某 些 关 键 应 用 中 ， 在 那里 速度 原本 并 不 是 问题 。 他 们 的 程序 导致 一 种 快速 和 人 危险 
的 生活 。 举 个 例子 ， 在 1988 年 使 mnternet 竣 羔 的 臭名 昭著 的 “蠕虫 ”揭示 了 UNIX 操 作 系统 里 的 一 个 错误 ， 因 
为 那里 的 探 询 守护 程序 里 没有 检查 输入 缓冲 区 溢出 (参见 Spafford 1989), 

38 当然 ， 无 论 采 用 编译 策略 还 是 解释 策略 ， 我 们 都 必须 为 新 机 器 实现 存储 分 配 、 输 入 输出 ， 以 及 我 们 在 讨论 求 
值 器 和 编译 器 时 作为 “基本 操作 ”的 那些 五 彩 缤纷 的 操作 。 减 少 这 方面 工作 量 的 一 种 策略 是 尽 可 能 多 地 在 
Lisp 里 写 出 这 些 操作 ， 而 后 针对 新 机 器 编译 它们。 最 后 ， 所 有 的 东西 都 归结 到 一 个 很 小 的 内 核 (例如 废料 收 
集 和 实际 的 基本 机 器 操作 的 应 用 )， 这 些 必须 专门 为 新 机 器 硬性 编 出 代码 。 

339 这 一 策略 产生 出 一 种 对 编译 器 本 身 的 非常 有 趣 的 测试 ， 例 如 ， 在 这 一 新 机 器 上， 用 通过 编译 产生 的 编译 器 去 
编译 一 个 程序 ， 检 查 这 样 得 到 的 结果 是 否 与 原来 的 Lisp 系统 编译 这 一 程序 的 结果 相同 。 追 踪 差 异 的 根源 常常 
RAM, HAA, AHS AMBRE RES RHA. 
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(define (fib n) 
(if (< n 2) 
(+ (fib (- n 1)) (fib (- n 2))))) 

请 将 这 一 情况 与 图 $-12 里 的 专用 斐 波 那 契机 器 的 效率 比较 (有 关 解 释 性 代码 的 性 能 度量 ， 请 
参见 练习 5.29)。 对 于 韭 波 那 执 过 程 ， 所 用 的 时 间 资 源 并 不 是 n 的 线性 函数 ， 因 此 堆栈 操作 有 的 
比率 将 不 会 趋 近 某 个 与 4 无 关 的 极限 值 。 

练习 5.47 本 节 描 述 了 如 何 修改 显 式 控制 求 值 器 ， 使 解释 性 代码 可 以 调用 编译 后 的 过 程 。 
请 说 明 如 何 修 改编 译 器 ， 使 编译 后 的 代码 不 但 能 调用 基本 过 程 和 编译 后 的 过 程 ， 还 能 调用 解 
释 性 过 程 。 为 此 我 们 就 需要 修改 compile-procedure-~call， 使 之 能 够 处 理 复合 的 (解释 ) 
过 程 。 请 设法 确保 能 像 在 compile~proc-app1l 里 那样 处 理 所 有 相同 的 target 和 linkage 
组 合式 。 在 做 实际 的 过 程 应 用 时 ， 代 码 需 要 跳 到 求 值 器 的 compounda-apP1LIyY 人 口 点 。 这 一 人 
口 点 不 能 直接 在 目标 代码 里 引用 (因为 汇编 程序 要 求 它 所 汇编 的 所 有 被 引用 标号 都 已 经 定义 
好 )， 因 此 我 们 将 为 求 值 器 机 器 增加 一 个 称 为 compapPp 的 寄存 器 ， 和 擎 握 住 这 一 人 口上 氮 ， 并 加 
入 下 面 指 令 去 初始 化 它 : 


(assign compapp (label compound-apply) ) 
(branch (label external-entry) ) ; branches if flag is set 
read-eval-print-loop 


为 了 测试 你 的 代码 ， 开 始 请 定义 一 个 过 程 E ， 它 调用 另 一 个 过 程 9。 用 compile-and-go 编 
译 好 于 的 定义 后 启动 求 值 器 。 现 在 为 求 值 器 输入 g 的 定义 ， 而 后 试 试 去 调用 。 
练习 5.48 ”本 节 中 实现 的 compile-and-go 界 面 还 是 非常 麻烦 的 ， 因 为 其 中 只 能 调用 编 
译 器 一 次 (在 求 值 器 机 器 启动 时 )。 请 扩大 这 一 编译 器 一 解释 器 界面 ， 提 供 一 个 compile- 
and-Iun 基 本 过 程 ， 使 人 可 以 采用 如 下 方式 在 显 式 控制 求 值 器 里 调用 它 : 
2: ;7 EC-Eval input: 
(compile-and-run 
‘(define (factorial n) 
(if (=n 1) 
1 
(* (factorial (- n 1)}) n)))) 
es: EC-Eval value: 
ok 
:»» EC-Eval input: 
(factorial 5) 
es: EC-Eval value: 
120 | 


练习 5.49 ey ee hie HRA BARA — 求 值 - 打印 循环 的 另 一 种 方式 ， 请 设 
计 一 部 寄存 器 机 器 ， 让 它 执行 一 个 读 入 一 编 译 一 求 值 一 打印 循环 。 也 就 是 说 ， 这 一 机 器 应 该 
运行 一 个 循环 ， 其 中 读 入 一 个 表达 式 ， 编 译 它 ， 装 配 并 执行 结果 代码 ， 最 后 打印 出 结果 。 在 
我 们 的 模拟 环境 里 很 容易 运行 它 ， 因 为 我 们 可 以 做 好 安排 ， 让 过 程 compile 和 assemble 都 
作为 “寄存 器 机 器 的 操作 。 

练习 5.50 ”使 用 编译 器 去 编译 4.1 节 的 元 循环 求 值 器 ， 并 用 寄存 器 机 器 模拟 器 运行 这 个 程 
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序 (要 一 下 子 编译 多 个 定义 ， 你 可 以 将 这 些 定义 放 进 一 个 begin 里 )。 由 于 存在 着 多 个 层次 的 
解释 ， 结 果 解 释 器 将 运行 得 非常 慢 ， 但 是 使 得 所 有 东西 都 能 工作 是 一 个 极 具 教 站 的 练习 。 
练习 5.51 请 在 C (或 者 你 所 选 定 的 另外 某 个 低级 的 语言 ) BIR TPs Scheme KA, 
采用 的 方式 是 将 $.4 节 的 显 式 控制 求 值 器 翻译 到 C。 为 了 运行 这 一 代码 ， 你 将 需要 提供 适当 的 
存储 分 配 例 程 和 其 他 运行 支持 。 : 
练习 5.52 ”作为 与 练习 5.51 相 对 应 的 工作 ， 请 修改 前 面 的 编译 器 ， 使 它 能 够 将 Scheme 程 
序 编译 为 C 指 令 序 列 。 请 编译 4.1 节 的 元 循环 求 值 器 ， 生 成 一 个 用 C 写 出 的 Scheme 解 释 器 。 
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438 #4 TOR 
3.16 178 3.30 192 3.44 215 3.58 231 3.72 238 
3.17 178 3.31 195 3.45 216 3.59 231 3,73 239 
3.18 179 3.32 197 3.46 218 3.60 232 3.74 240 
3.19 179 3.33 205 3.47 218 3.61 232 3.75 240 
3.20 179 3.34 205 3.48 219 3.62 232 3.76 240 
3.21 183 3.35 205 3.49 219 3.63 235 3.77 242 
3.22 183 3.36 205 3.50 225 3.64 235 3.78 242 
3.23 183 3.37 205 3.51 226 3.65 235 3.79 243 
3.24 187 3.38 210 3.52 226 3.66 237 3.80 243 
3.25 187 3.39 212 3,53 230 3.67 237 3.81 246 
3.26 187 3.40 212 3.54 230 3.68 237 3.82 246 
3.27 188 3.41 213 3.55 230 3.69 238 
3.28 192 3.42 213 3.56 230 3.70 238 
3.29 192 3.43 215 3.57 231 3.71 238 
41 255 4.17 270 4.33 286 449 296 465 323 
4.2 259 4.18 270 4.34 286 4.50 303 4.66 324 
4.3 259 4.19 271 4.35 290 4.51 303 4.67 324 
44 259 4.20 271 4.36 290 4.52 303 4.68 324 
4.5 259 4.21 272 4.37 290 4.53 304 4.69 324 
46 259 4.22 276 4.38 291 4.54 304 4.70 335 
4.7 260 4.23 276 4.39 291 - 4.55 309 4.71 338 
4.8 260 4.24 276 440 291 4.56 311 4.72 338 
49 260 4.25 278 441 292 4.57 - 312 4.73 339 
4.10 260 4.26 278 4.42 292 4.58 312 4.74 339 
411 263 4.27 282 4.43 292 4.59 312 4.75 339 
412 263 4.28 282 4.44 292 460 313 4.76 340 
4.13 264 4.29 282 4.45 295 (461 314 4.77 340 
4.14 266 4.30 282 446 295 462 314 4.78 340 
4.15 268 4.31 283 447 295 463 314 4.79 340 
4.16 270 4.32 286 448 296 464 323 
5.1 346 5.12 371 523 392 5.34 419 5.45 428 
5.2 348 5.13 372 5.24 392 5.35 420 5.46 428 
53 349 5.14 373 §.25 393 5.36 421 5.47 429 
54 357 5.15 373 5.26 395 5.37 421 5.48 429 
5.5 358 5.16 373 5.27 396 5.38 421 5.49 429 
5.6 358 §.17 373 5.28 396 5.39 424. 5.50 429 
5.7 360 5.18 373 5.29 396 5.40 424 5.51 430 
5.8 366 5.19 373 5.30 396 5.41. 424 5.52 430 
5.9 371 5.20 377 5.31 402 5.42 424 
5.10 371 5.21 378 5.32 402 5.43 424 
5.11 371 5.22 378 533 419 5.44 425 
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本 索引 中 的 任何 不 准确 之 处 都 可 以 用 一 个 事实 来 解释 ， 它 是 在 计算 机 的 帮助 下 完成 的 。 


Donald £. Knuth， 基 本 算法 (计算 机 程序 设计 的 艺术 ， 第 1 卷 ) 


+ 


(基本 乘法 过 程 )，4 
+ (基本 加 法 过 程 )，4 
(基本 减法 过 程 )，4 
(基本 除法 过 程 )，4 


(基本 算术 等 于 谓词 ) ,1 
=number?, /02 


=Zero? (HHW, generic), # 32.80 
for polynomials (对 多 项 式 的 )， 练 习 2.87 

< (基本 算术 比较 谓词 ),11 

> (基本 算术 比较 谓词 ),，/1 

>=, 13 

(sys), Aill 

! (名 字 里 的 ) #4130 

? 《谓词 名 里 的 ) ， 牌 注 22 


Maman, 


1 
} 


双 引 号 )， 脚 注 22 

单 引 号 ) ，97 ， 牌 注 99 

read 和 ， 和 脚注 222， 有 和 脚注 285 

”( 反 引号 ) #4321 

， GES, 与 反 引 号 一 起 使 用 )， 和 脚注 321 

#E, 脚注 17 

#t, #17 

>, WARKI, H i58 

©, theta 

入 演算 ， 见 lambda 演 算 

au, Pi 

Z 求 和 记 法 (sigma), 38 

A’h-mose , i240 

Abelson, Harold, HR ix3 

abs, 71, 12 

accelerated-sequence, 234 

accumulate, #31.32, 78 
fAlfold-right, #32.38 

accumulate-n, #32.36 

Acharya, Bhdscara, 3335 

Ackermann paw, #39 1.10 

actual-value, 279 

Ada, # 34.63 
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递归 过 程 (recursive procedures ), 23 
Adams, Norman 1., #74232 
add (H, generic), 729 
用 于 多 项 式 系数 (used for polynomial coefficients ), 140 
add-action!, 191, 194 
add-binding-to-frame!, 262 
add-complex, 118 
add-complex-to-schemenum, 733 
addend, 701 
adder (#:A#) &, primitive constraint), 20/ 
add-interval, 63 
add-lists, 285 
add-poly, /39 
add-rat, 56 
add-rule-or-assertion! , 334 
add-streams, 228 
add-terms , /40 
add-to-agenda! , 194, 196 
add-vect, #532.46 
Adelman, Leonard ， 脚 注 48 
adjoin-arg, W 4307 
adjoin-set, 103 
二 叉 树 表示 (binary-tree representation), /07 
排序 表 表 示 (ordered-list representation), # 42.61 
未 排序 的 表 表 示 (unordered-list representation ) /03 
作为 带 权 重 集 合 (for weighted sets), 773 
adjoin-term, 140, /42 
advance-pc , 368 
after-delay, 191, 194 
Algol 
块 结构 (block structure), 20 
按 名 参数 传递 (call-by-name argument passing), riz 
186, #;4240 
hy (thunks), #4186, #4238 
在 处 理 复合 数据 对 象 方面 的 弱点 (weakness in handling 
compound objects), #iz161 
Allen, John, 32300 


440 


all-regs (编译 器 compiler), #iz326 
always-true, 328 
amb , 287 
ambeval , 297 
amb 求 值 器 (evaluator ) ， 见 非 确定 性 求 值 器 (nondeter- 
ministic evaluator ) 
analyze 
元 循环 (Metacircular) , 273 
SERRE HE (nondeterministic), 297 
analyze-... 
元 循环 (metacircular) , 274~276, # 34.23 
非 确 定性 (nondeterministic), 298~300 
| analyze-amb, 302 
and (查询 语言 ，query language), 310 
的 求 值 (evaluation of), 316, 326, #34.76 
and (特殊 形式 ，special form), /3 
的 求 值 (evaluation of), 12 
为 什么 作为 特殊 形式 (why a special form), 12 
设 有 子 表 达 式 (with no subexpressions), ， 练 习 4.4 
an~element-of , 286 
angle 
数据 导向 的 (data-directed), /25 
极 坐 标 表示 (polar representation), //9 
直角 坐标 表示 (rectangular representation), 1/8 
带 标 志 数 据 (with tagged data), 727 
angle-polar, /20 
angle-rectangular, /20 
an~integer-starting-from, 288 
announce-output, 265 
APL, #iz81 
Appel, Andrew W., #72325 
append! , % 33.12 
作为 寄存 器 机 器 (as register machine), # 95.22 
append, 68, # 33.12 
作为 累积 (as accumulation), 4 3 2.33 
append! 5, %33.12 l 
带 有 任意 个 参数 (with arbitrary number of arguments ) ， 
Be iz 327 | 
作为 寄存 器 机 器 (as register machine), 4395.22 
“是 什么 ”( 规则 ) 和 “怎样 做 ”( 过程 )，305~306 
append-instruction-sequences, 401, 413 
append-to-form (规则 , rules), 3/3 
application? , 257 
apply (tt, lazy), 279 
apply (Ai #, primitive procedure), #72115 
apply (元 循环 metacircular), 253 
与 基本 的 (primitive) apply, W 4225 
apply-dispatch, 388 


% 3l 


为 编译 的 代码 而 修改 (modified for compiled code ), 
425 
apply-generic, /25 
afl] (with coercion), 734, % 32.81 
提升 强制 (With coercion by raising), # 5) 2.84 
多 参数 的 强制 (with coercion of multiple arguments ), 
# 332.82 
通过 强制 简化 (with coercion to simplify), #: 92.85 
消息 传递 (with message passing), /27 
类 型 塔 (with tower of types), 135 
apply-primitive-procedure, 253, 261, 265 
apply-rules, 330 
argl1 寄 存 器 (register), 383 
articles, 292 
ASCII 码 (code), 110 
assemble, 364, 365 
assert! (查询 解释 器，query interpreter) , 320 
assign (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating ), 367 
将 标号 存 人 寄存 器 (storing label in register) , 353 
assignment?, 256 
assignment-value, 256 
assignment-variable, 256 
assign-reg-name, 367 
assign-value-exp, 36/7 
assoc, 185 
atan (基本 过 程 ，primitive procedure), # (2110 
attach-tag, //9 
采用 Scheme 数据 类 型 (using Scheme data types), 4% 
32.78 l 
augend, 101 
average, 15 
average-damp, 48 
averager (约束 ， constraint) , & 33.33 
Backus, John, ip 74202 
Baker, Henry G., Jr., #300 
Barth, John , 249 
Basic 
对 复合 数据 的 限制 (restrictions on compound data ), 
脚注 73 
在 处 理 复合 对 象 方面 的 弱点 (weakness in handling 
”compound objects), #161 
Batali, John Dean, # jz 304 
begin (特殊 形式 ，special form), 157 
在 推论 和 过 程 体 里 隐 含 的 (implicit in consequent of 
cond and in procedure body), #ryz131 
begin?, 257 
begin-actions, 257 


Æ 4 


below, 89, #52.51 

Bertrand 假设 (Hypothesis), #iz191 

beside, 89, 95 

Bolt Beranek and Newman Inc. , fp jz2 

Borning, Alan, #72159 

Borodin, Alan, $482 

branch (寄存 器 机 器 ,in register machine), 347 
模拟 (simulating), 368 

branch-dest , 368 | 

Buridan, Jean, #;4175. 

Bit (tree )， 和 脚注 106 

ca...I， 有 和 脚注 75 

cadr, W475 

call-each, 193 

car (基本 过 程 ，Primitive procedure ), 57 
公理 (axiom for), 6I 
用 向 量 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
和 名字 的 由 来 (origin of the name), # 7z68 


的 过 程 性 实现 (procedural implementation of), 61, 


& 932.4, 179, 284 
Carmichael # (numbers), Æ i447, % 3)1.27 


car 和 cdr Aut ÆzHĦ (nested applications of car and 


cdr), Meiz75 
cd...r0, W75 
cdr (#A jt H, primitive procedure ), 57 
公理 (axiom for), 67 
用 向 量 实现 (implemented with vectors), 376 
作为 表 操 作 (as list operation), 67 
名 字 的 由 来 (origin of the name), #7268 


的 过 程 性 实现 (procedural implementation of), 61, 


t£ 32.4, 179, 284 
cdr 向 下 一 个 表 (down a list), 67 
celsius~fahrenheit-converter, 199 
面向 表达 式 的 (expression-oriented )， 练 习 3.37 
center, 64 
Ces aro, Ernesto, #32135 
cesaro-stream, 245 
cesaro-test, 155 
Chaitin, Gregory , #91134 
Chandah-sutra, Mp 7239 
Chapman, David, #7 j#251 
Charniak, Eugene ， 和 脚注 251 
Chebyshev, Pafnutii L’vovich ， 脚 注 191 
Clark, Keith L. ， 和 脚注 283 
Clinger, William, Bpiz217, Bp iz240 
coeff, 140, 142 
Colmerauer, Alain, #7262 


44] 


Common Lisp ， 和 脚注 2 

nil 的 处 理 (treatment of nil), Mpiz76 
compile, 399 
compile-and-go, #25, 427 
compile-and-run, #535.48 
compile-application, 408 
compile-assignment, 404 
compiled-apply, ¢26 
compile-definition, 404 
compiled-procedure? , W323 
compiled-procedure-entry, #iz323 
compiled-procedure-env, #3323 +. 
compile-if, 405 
compile-lambda, 406 
compile-linkage, 403 
compile-proc-appl, 4/2 
compile-procedure-call, 409 
compile-quoted, 403 
compile-self-—evaluating, 403 
compile-sequence, 406 
compile-variable, 403 
complex->complex, %3 2.81 
complex (package), 130 
compound-apply, 388 
compound-procedure?, 26/ 
cond (特殊 形式 ，special form), H 

附加 子 名 语法 (additional clause syntax), # 94.5 

74) (clause), 11 

的 求 值 (evaluation of ) 11 

Bit, Wizl9 


推论 里 陷 式 的 begin (implicit begin in consequent) , 


We iz 131 
cond? , 258 
cond->if , 258 
cond-actions, 258 
cond-clauses, 258 
cond-else-clause?, 258 
cond-predicate, 258 
cond 的 子 甸 (clause, ofacond), /2 
另外 的 语法 (additional syntax), # 34.5 
conjoin, 327 | 
connect, 200, 204 
Conniver, #32251 
cons (基本 过 程 , primitive procedure), 57 
公理 (axiom for), 61 
闭 包 性 质 (closure property of), 65 
用 变动 函数 实现 (implemented with mutators ) 175 
用 向 量 实现 (implemented with vectors), 377 
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作为 表 操作 (as list operation ) 377 
名 字 的 意义 (meaning of the name), 3468 
的 过 程 性 实现 (procedural implementation of), 6/ , 
t 52.4, 76, 179, 284 
cons-stream (Æ z, special form), 227, 222 
和 情 性 求 值 (lazy evaluation and), 284 
为 什么 作为 特殊 形式 (why a special form )， 脚 注 184 
const (寄存 器 机 器 ,1n reglster machine), 347 
模拟 (simulating ), 370 
语法 (syntax of), 359 
constant (HAF) KR, primitive constraint), 202 
constant-exp, 370 
condtant-exp-value. 370 
construct-earglist, 408 
cons 上 一 个 表 (upalist), 68 
contents, /20 


使 用 Scheme 数 据 结 构 (using Scheme data types), #% 


332.78 
continue #F# (register), 353 
显 式 控制 求 值 器 里 (in explicit-control evaluator), 
383 
和 递归 (recursion and), 355 
Cormen, Thomas H., jz 106 
corner-split, 8&9 
cos (dA EH, primitive procedure), 46 
count-change, 26 
count-leaves, 73 
作为 累积 (as accumulation), # 32.35 
作为 寄存 器 机 器 (as register machine), $ 35.21 
count-pairs, # 33.16 
Cressey, David ,和 脚注 302 
cube, #51.15, 37, 49 
cube-root, 49 
current-time, 194, 196 
Darlington, John, 脚注 202 
decode, //3 
deep-reverse, #592.27 
define (HIE x, special form), 5 
ti i z fjg (with dotted-tail notation), # 3 2.20 
的 环境 模型 (environment model of ), 164 
lambda 5, 41~42 
过 程 的 (for procedures), 7, 42 
语法 糖衣 (syntactic sugar), 256 
的 值 (value of), Wig 
为 什么 是 特殊 形式 (why a special form), 7 
内 部 (internal), L AWE X (internal definition ) 
define-variable!, 261, 263 | 
definition? , 256 


definition-value, 256 
definition-variable , 256 
deKleer, Johan, #;4251, #p:;4281 
delay (特殊 形式 ，special form) , 222 
显 式 (explicit), 242 
显 式 与 自动 (explicit vs. automatic), 285 
用 lambda 实 现 (implementation using lambda), 225 
情 性 求 值 和 (lazy evaluation and), 284 
记忆 性 (memoized) , 225, # 33.57 
为 什么 是 特殊 形式 (why a special form), Pp iz 184 
delay-it, 287 
delete-queue!, /80, 182 
denom, 56, 59 
公理 (axiom for), 60 
归 约 到 最 低 的 项 (reducing to lowest terms), 59 
deposit ， 与 外 置 串 行 化 器 (with extemal serializer), 2/5 
deposit 消 息 ， 用 于 银行 账户 (deposit message for bank 
account), 153 | 
deriv (符号 symbolic), 700 
数据 导向 (data-directed), # 32.73 
deriv (数值 numerical), 49 
Dijkstra, Edsger Wybe , #iz172 
Dinesman, Howard P., 290 
disjoin, 327 
display (Ait Æ, primitive procedure), #39 1.22, 
脚注 10 
display-line, 222 
display-stream, 222 
distinct?, #33252 
div (通用 的 generic), 128 
div-complex, 1t18 
divides?, 33 
div-interval, 63 
Ke (division by zero), # 32.10 
divisible?, 227 
div-poly, % 32.91 
div-rat, 56 
div-series, # 33.62 
div-terms, % 32.91 
DOS/Windows , #72317 
dot-product, #9 2.37 
Doyle, Jon, $ ;4251 
draw-line, 93 
driver-loop 
惰性 求 值 器 (for lazy evaluator), 280 
元 循环 求 值 器 (for metacircular evaluator), 265 
非 确定 性 求 值 器 (for nondeterministic evaluator) ,. 
302 





作为 连 分 数 (as continued fraction) ， 练 习 1.38 


作为 微分 方程 的 解 (as solution to differential equation) ， 


242 
edgel-frame, 91 
edge2-frame, 91 
EIEIO, Biz177 
Eindhoven 技术 大 学 ， 和 脚注 172 
element-of-set?, 103 
二 义 树 表示 (binary-tree representation), /06 
排序 表 表 示 (ordered-list representation ) 104 
无 序 表 表示 (unordered-list representation), /03 


else (cond 里 的 特殊 形式 ,special symbol in cond}, /2 


empty-agenda?, 194, 196 
empty-arglist ， 脚 注 307 
empty-instruction-sequence, 402 
empty-queue?, 180, 782 
empty-termlist?, 140, /42 
enclosing-environment, 262 
encode, # 32.68 
end-segment , #4 32.2, # 32.48 
end-with-linkage, 403 
entry, /06 
enumerate-~interval, 78 
enumerate-tree, 78 
env#-74# (register), 383 
eq? (Ait ff, primitive procedure ), 98 
对 任意 对 象 (for arbitrary objects), 178 
作为 指针 相等 (as equality of pointers), 178, 375 
对 符号 的 实现 (implementation for symbols ) 376 
数值 相等 和 (numerical equality and), 脚注 294 
equ? (通用 型 谓词 ，generic predicate )， % 332.79 
equal?, #392.54 
equal-rat?, 56 
error (基本 过 程 ，primitive procedure), Hy iz56 
Escher, Maurits Cornelis, My ;z88 
estimate-integral, #33.5 
estimate-pi, /55 
euler-transform, 234 
eval (4§t£, lazy), 279 
eval (基本 过 程 ，primitive procedure), 268 
MIT Scheme, #4220 
用 于 查询 解释 器 (used in query interpreter ), 328 
eval (元 循环 metacircular), 252, 253 
分 析 型 版 本 (analyzing version), 273 
数据 导向 的 (data-directed , 练习 4.3 
与 基本 eval (primitive eval vs.), #eiz225 


eval-assignment, 254 
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eval-definition, 255 
eval-dispatch, 384 
eval-if (ff, lazy), 280 


 eval-if (元 循环 ，metactrcular ), 254 


eval-sequence, 254 
ev-application, 359 
ev-assignment, 392 
ev~-begin, 389 
ev-definition, 392 
even? , 30 
even-fibs, 76, 79 
ev-if , 397 
ev-lambda , 385 
ev-quoted, 355 
ev-self-eval, 385 
ev-sequence 
带 尾 递归 (with tail recursion), 390 
不 带 尾 递归 (without tail recursion), 389 
ev-variable, 385 
e 的 震级 数 (power series for), 练习 3.39 
exchange, 2/4 
execute , 362 
execute-application 
元 循环 (metacircular) , 275 
非 确定 性 (nondeterministic), 301 
expand-clauses, 258 
expmod, 34, #391.25, #3 1.26 
expt 
ghee te Ac (linear iterative version) , 29 
线性 递归 版 本 (linear recursive version) , 29 
寄存 器 机 器 (register machine for), %7 5.4 
exp 寄 存 器 (register), 383 
extend-environment, 261, 262 
extend-if-consistent, 329 
extend-if-possibie, 332 
external-entry, 426 
extract-labels, 364, Byjz289 
factorial 
作为 抽象 机 器 (as an abstract machine), 266 
的 计算 (compilation of), 415~417, @5-17 
求 值 的 环境 结构 (environment structure in evaluating) , 
% 3 3.9 | 
epee AEE A (linear iterative version) , 22 
线性 递归 版 本 (linear recursive version) , 21 
迭代 的 寄存 器 机 器 (register machine for (iterative ))， 
% 575.1, #52 
递归 的 寄存 器 机 器 (register machine for (recursive )) , 
354~356, 5-11 
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堆栈 使 用 ， 编 译 (stack usage, compiled), # 95.45 
堆栈 使 用 ， 解 释 (stack usage, interpreted), # 35.26, 
练习 5.27 
堆栈 使 用 ,寄存 器 机 器 (stack usage, register machine ) ， 
练习 5.14 
etg (with assignment), 761 
带 高 阶 过 程 (with higher-order procedures), # 31.31 
false, #317 
false?, 261 
fast-expt, 30 
fast-prime?, 34 
Feeley, Marc, $ 74232 
Feigenbaum, Edward ， 脚 注 265 
Fenichel, Robert ， 脚 注 300 
fermat-test, 34 
fetch-assertions, 333 
fetch-rules, 333 
fib 
oh tt UE 和 代 版 本 (linear iterative version) , 26 
对 数 版 本 (logarithmic version), %3 1.19 
寄存 器 机 器 ( 树 形 递归 ) (register machine for (tree- 
recursive ) )，337 ， 图 >-12 
堆栈 使 用 ， 编 译 (stack usage, compiled), # 35.46 
堆栈 使 用 ， 解 释 (stack usage, interpreted ) ， 练习 9.29 
树 形 递 归 版 本 (tree-recursive version ) ,24， 练 习 3.29 
带 记忆 (with memoization) ， 练 习 3.27 
带 命 名 1Let (with named let), # 534.8 
fibs (无 穷 流 ，infinite stream), 227 
隐 式 定义 (implicit definition), 279 
FIFO hK (buffer), 180 
filter, 78 
filtered-accumulate, #5 1.33 
find-assertions, 328 
find-divisor, 33 
first-agenda-item, 194, 197 
first-exp, 257 
first-frame, 262 
first-operand, 257 
first-segment, /96 
first-term, 140, 742 
fixed-point, 46 
{EHk ttg (as iterative improvement), 4 3) 1.46 
fixed-point-of-transform, 50 
fl1ag 寄存 器 (register), 362 
flatmap, 83 
flatten-stream, 336 
flip-horiz, 88, 392.50 
flipped-pairs, 89, fjz90 


flip-vert, 88, 94 
Floyd, Robert, #72251 
fold-left, 练习 2.38 
fold-right， 练 习 2.38 
Forbus, Kenneth D.， 和 脚注 251 
force, 222, 225 
ih it RH (forcing a thunk vs. ) Fiz 239 
force-it, 281 
带 记 忆 版 本 (memoized version), 282 
for-each, #32.23, $% 34.30 
for-each-except, 204 | 
forget-value!, 200, 204 
Fortran ,:2, #781 
的 发 明 者 (inventor of}， 和 脚注 202 
复合 数据 上 的 限制 (restrictions on compound data), 
脚注 73 
frame-coord-map, 92 
frame-values, 262 
frame-variables, 262 
Franz Lisp， 和 脚注 2 
free 寄存 器 (register), 377, 379 
Friedman, Daniel P., Brit 186, Mrie206 
fringe, 练习 2.28 
作为 一 种 树 形 枚 举 (as a tree enumeration )， 和 脚注 80 
front-ptr, /é/ 
front-queue, 180, 787 
Gabriel, Richard P., 脚注 231 
GCD，32， 见 最 大 公约 数 (greatest common divisor ) 
的 寄存 器 机 器 (register machine for) , 343~345 , 359 
gcd-terms, /45 
generate-huffman-tree, # 32.69 
get, 123, 187 
get-contents, 367 
get-global-environment ， 和 脚注 314 
get-register, 362 
get-register-contents, 359, 362 
get-signal, 191, /93 
get-value, 200, 204 
Goguen, Joseph, ryyz71 
Gordon, Michael, #74200 
goto (在 寄存 器 机 器 里 in register machine), 346 
以 标号 为 眉 标 (label as destination), 354 
模拟 (simulating), 369 
goto-dest, 368 
Gray, Jim, #4176 
Green, Cordell, Bp ¢262 
Griss, Martin Lewis, i2 
Guttag, John Vogel, W jz71 
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Hamming, Richard Wesley, #iz108, % 33.56 
Hanson, Christopher P., #eiz217, # {#325 
Hardy, Godfrey Harold , Mpjz 191, Biz 198 
Hassle ， 和 脚注 237 
has-value? , 200, 204 
Havender, J., #riz176 
Haynes, Christopher T. ， 和 脚注 206 
Hearn, Anthony C.,， 和 脚注 2 
Henderson, Peter, #p;488, Bpiz189, Miz202 
Hendersonf (diagram) , 228 
Hewitt, Carl Eddie, Bpiz31, Beiz251, Beiz262, By iz300 
Hilfinger, Paul, #74107 
Hoare, Charles Antony Richard, #471 
Hodges, Andrew ， 和 脚注 223 
Hofstadter, Douglas R., W224 
Horner, W. G., #7482 
Horner 规 则 (rule), 9 32.34 
Huffman, David, 110 
Huffman 编 码 (code), 109~115 
的 最 优 性 (optimality of), 111 
编码 的 增长 阶 (order of growth of encoding), #3 
2.72 
Hughes, R. J. M.， 和 脚注 245 
IBM 704 ， 脚 注 68 
identity, 39 
if (特殊 形式 ，special form ) 12 
cond 与 ， 和 脚注 19 
的 求 值 (evaluation of), 12 
的 正则 序 求 值 (normal-order evaluation of ) ， 练 习 1.> 
单 支 (无 在 代 部 分 ) (one-armed (without alternative ))， 
脚注 157 | 
谓词 、 推 论 和 替代 部 分 (predicate, consequent, and 
alternative of), 12 
为 什么 作为 特殊 形式 (why a special form), # 91.6 
if?, 257 
if-alternative, 257 
if-consequent , 257 
if-predicate, 257 
if 的 替代 部 分 (alternative of if), /2 
imag-part, 125 | 
数据 导向 的 (data-directed) , 119 
极 坐 标 表 示 (polar representation), //8 
直角 坐标 表示 (rectangular representation), /20 
与 带 标 志 数 据 (with tagged data) , 120 
imag-part-polar, /20 
imag-part-rectangular, /20 
inc, 39 
inform-about-no-value, 20/ 


inform-about-value, 20] 
Ingerman, Peter, 脚注 238 
insert! 
在 一 维 表格 里 (in one-dimensional table) , 785 
在 两 维 表 格 里 (in two-dimensional table), 7/86 
insert-queue! , 780 
install-complex-package, 130 
install-polar-package, 124 
install-polynomial-package, 139 
install-rational-package, 129 
install-rectangular-package, 123 
install-scheme-number-package, 729 
instantiate, 325 
instruction-execution-proc, 366 
instruction-text, 365 
integers (7[WiK, infinite stream), 227 
隐 式 定义 (implicit definition), 278 
情 性 表 版 本 (lazy-list version), 284 
integers-starting-from, 227 
integral, 39, 239, #533.77 
蒂 有 延 时 参数 (with delayed argument), 24/ 
与 (with) lambda, 4/1 
情 性 表 版 本 (lazy-list version), 285 
延 时 求 值 的 需要 (need for delayed evaluation), 241 
integrate-series, # 33.59 
interleave, 237 
interleave-delayed, 335 
Interlisp, #iz2 
intersection-set, 103 
二 叉 树 表示 (binary-tree representation), % 3) 2.05 
排序 表 表 示 (ordered-list representation), 105 
未 排序 表 表 示 (unordered-list representation ), 104 
Jayaraman, Sundaresan ， 有 和 脚注 159 
Kaldewaij, Anne, W341 
key, 109 
Khayyam, Omar, W135 
Knuth, Donald E., #eiz35, ， 和 脚注 39 Peiz42, Wiz82, 
fie 53.135 
Kohlbecker, Eugene Edmund, Jr., yiz217 
Kolmogorov, A. N., #34134 
Konopasek, Milos, Biz 159 
Kowalski, Robert, By jz 262 
KRC, W484, W196 
label (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating ) 370 
label-exp, 370 
label-exp-label , 370 
lambda (特殊 形式 ，special form), 47 
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define 5, 41~42 历史 (history of), 1~3 
带 点 尾部 记 法 (with dotted-tail notation), Æ ¿77 内 部 类 型 系统 (internal type system), $32.78 
Lambda? , 256 在 IBM 704 上 的 初始 实现 (original implementation on 
lambda-body, 256 IBM 704), #iz68 
lambda~-parameters, 256 Pascal, Wil 
lambda 表达 式 (expression ) me SKA (suitability for writing evaluators) , 250 
作为 组 合式 的 运算 符 (as operator of combination) , 独特 的 特征 (unique features of), 2 : 
4] lisp-value (查询 解释 器 ，query interpreter), 327 
的 值 (value of), 165 lisp-value (查询 语言 ，query language), 311, 323 
lambda 演 算 (calculus (lambda calculus )) ， 脚 注 33 的 求 值 (evaluation of), 318, 327, % 34.77 
Lambert, J.H., # 31.39 . Lisp 方 言 (dialects ) 
Lamé, Gabriel ， 脚 注 43 Common Lisp ， 丢 注 2 
Lamé 定理 (Theorem), 32 E Franz Lisp ， 和 脚注 2 
Lamport, Leslie ， 脚 注 179 Interlisp, W42 | 
Lampson, Butler, #iz138 . MacLisp, i42 
Landin, Peter, W411, Breyz186 MDL, yz 302 
Lapaime Guy, $4232 | Portable Standard Lisp, Br sz2 
last-exp?, 257 Scheme, 2 
last-operand? , jz307 Zetalisp , My yz2 
last-pair, #392.17, *33.12 list (基本 过 程 ，primitive procedure), 66 
规则 (rules), # 34.62 list->tree, %32.64 
leaf?, 113 list-difference, 4/4 
left-branch, /06 list-of-arg-values , 280 
Leiserson, Charles E., f33106, i198 list-of-delayed-args, 280 
length, 68 list-of-values, 254 
作为 积累 (as accumulation), 4 32.33 list-ref, 68, 285 
迭代 版 本 (iterative version), 68 list-union, 413 
递归 版 本 (recursive version ), 68 Lives-near 规 则 (rule), 311, % 34.60 
let (13k xX, special form), 43 Locke, John, 1 | 
求 值 模型 (evaluation model), 2 33.10 log (#Axt #, primitive procedure), %# 31.36 
与 内 部 定义 (internal definition vs.), 43 logical-not, 191 
命名 的 (named), # 34.8 lookup { 
变量 的 作用 域 (scope of variables}, 43 在 一 维 表 格 里 (in one-dimensional table}, ，184 
作为 语法 糖衣 (as syntactic Sugar )，43 ， 练 习 3.10 在 记录 集合 里 (in set of records), /09 
let* (特殊 形式 ，special form)， 练习 4.7 在 两 维 表 格 里 (in two-dimensional table) , /86 
letrec (特殊 形式 ，special form), # 34.20 lookup-label, 366 
lexical-address-lookup, 423, #35.39 lookup-prim, 370 
lexical-address-set!, 423, %3 5.39 lookup-variable-value, 261, 262 
Lieberman, Henry, Æ ;4300 : 为 扫描 出 定义 (for scanned-out definitions), # 3 
LIFO hh (buffer), ise (stack) 4.16 
Liskov, Barbara Huberman, Æ i471 lower-bound, #542.7 
Lisp Macintosh, #317 
表 处 理 的 缩写 (acronym for LISt Processing), 1 MacLisp, #riz2 
Iv FARE R{A (applicative-order evaluation in), 11 magnitude 
在 DEC PDP-1 |, #300 数据 导向 的 (data-directed ) 725 
的 效率 (efficiency of )，2 ， 脚 注 6 极 坐 标 表 示 (polar representation ), 119 
一 级 的 过 程 (first-class procedures in), 51 直角 坐标 表示 (rectangular representation), 1/5 


Fortran, 2 带 标 志 数 据 (with tagged data), 727 
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magnitude-polar, /20 
magnitude-rectangular, /20 
make~account , /53 


任 环境 模型 里 (in environment model), # 33.11 


Here de (with serialization), 212, #4 393.41, #9 


3.42 
make-account-and-serializer, 2/4 
make-accumulator, #53.1 
make-agenda, 194, 796 
make-assign, 367 
make=-begin, 257 
make-branch, 368 
make-center-percent, #52.12 
make-center-width, 64 
make-code-tree, //2 
make-compiled-procedure, #4323 
make-complex-from-mag-ang, /3/ 
make-complex-from-real-imag, /3/ 
make-connector, 203 
make-cycle, # 33.13 
make-decrementer, 158 
make-execution-procedure, 366 
make-frame , 9/, #3 2.47 , 262 
make-from-mag-ang, /22, 125 

消息 传递 (message-passing), # 32.75 

极 坐 标 表 示 (polar representation), 1/9 

直角 坐标 表示 (rectangular representation), 119 
make-from-mag-ang-polar, /20 
make-~from-mag-ang-rectangular, 120 
make-~from-real-imag, 721, 125 

消息 传递 (message-passing ), 127 

极 学 标 表 示 (polar representation), 719 

直角 坐标 表示 (rectangular representation), 119 
make-from-real-imag-polar, /20 
make-from-real-imag-rectangular, 120 
make-goto, 368 
make-if, 257 
make-instruction, 365 
make-instruction-sequence, 402 
make-interval , 63, #32.7 
make-joint, #&33.7 
make-label ， 有 和 脚注 322 
make-label-entry, 366 
make-lambda, 256 
make-leaf, //2 
make-leaf-set , //4 ' 
make-machine , 359, 361 


make-monitored, # 33.2 
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make-mutex, 2/7 
make-new-machine, 5-12 
make-operation-exp, 370 
make-perform, 369 
make-point, %4 32.2 
make-poly, 139 
make-polynomial, 742 
make-primitive-exp, 370 
make-procedure, 26/ 
make-product, 700, 102 
make-queue, 180, 787 
make-rat, 56, 57, 59 
公理 (axiom for), 60 
归 约 到 最 低 形式 (reducing to lowest terms) , 58 
make-rational, /30 
make-register, 36] 
make-restore, 369 
make-save, 369 
make-scheme-number, /29 
make-segment, % 32.2, % 32.48 
make-serializer, 2/6 
make-simplified-withdraw, /58, 246 
make-stack, 36! 
带 监视 的 堆栈 (with monitored stack), 372 
make-sum, /00, 101 
make-table 
消息 传递 的 实现 (message-passing implementation) , 
185 : 
一 维 表 格 (one-dimensional table), 785 
make-tableau, 234 
make-term, /40, 142 
make-test , 368 
make-time-segment, 196 
make-tree , 106 
make-vect, % 32.46 
make-wire, 189, 792, 练习 3.31 
make-withdraw, 752 
在 环境 模型 里 (in environment model), 167~170 
用 (using) let, # 33.10 
map, 70, 285 
作为 积累 (as accumulation), # 5 2.33 
带 有 多 个 参数 (with multiple arguments), #7278 
map-over-symbols, 337 
map-successive-~pairs, 245 
matrix-*-matrix, # 32.37 
matrix-*-vector, %4 J 2.37 
max ( 基本 过 程 ，Pprimitive procedure), 63 
McAllester, David Allen, # 7#251 
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McCarthy, John, 2, Peizl, W i4247 
McDermott, Drew, W ;4251 
MDL, #32302 
member, #7252 
memo-fib, #33.27 
memoize, # 33.27 
memo-proc, 225 
memg, 98 
merge, #53.56 
merge-weighted, # 33.70 
MicroPlanner ， 脚 注 251 
Microshaft , 307 
midpoint-segment, 练习 2.2 
Miller, Gary L., #3 1.28 
Miller, James S., MA iz325 
Miller-Rabin 检查 (test for primality) , 4 31.28 
Milner, Robin, #7200 
min (基本 过 程 ，primitive procedure), 63 
Minsky, Marvin Lee ， 和 脚注 300 
Miranda, M7484 
MIT Scheme 
空 流 (the empty stream), Wiz182 
eval, W;ł226 
内 部 定义 (internal definitions), Sy jz 229 
成 员 (numbers), W23 
random, #z136 
user-initial-environment, #32226 
without-interrupts, #174 
MIT, Æ i4262 
人 工 智 能 实验 室 (Artificial Intelligence Laboratory ), 
脚注 2 
早期 历史 (early history of), #789 
mA (Project) MAC, Miz2 
电子 学 研究 实验 室 (Research Laboratory of Electronics ) , 
2, Æ 4300 
ML, #4200 
modifies-register?, 413 
monte-carlo, 156 
无 穷 流 (infinite stream), 255 
Moon, David A., W342, #iz300 
Morris, J. H., #138 
mul (通用 型 ，generic ) 729 
用 于 多 项 式 系 数 (used for polynomial coefficients) , 
14] 
mul-complex, //8 
mul-interval, 63 
更 高 效 的 版 本 (more efficient version), #5 2.11 
mul=poly, 739 
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mul-rat, 56 
mul-series, #3 3.60 
mul-streams, #393.54 
mul-terms, /4/ 
Multics 分 时 系统 (time-sharing system), Ay iz 300 
multiple-dwelling, 29/ 
multiplicand, /0/ 
multiplier, 701 
基本 约束 (primitive constraint), 202 
0c FE EA HZ (selector), /0/ 
Munro, lan, #82 
mystery, #373.14 
needs-register?, 413 
negate, 327 
new-cars## (register), 379 
new-cdrs 寄 存 器 (register), 379 
newline (基本 过 程 ，primitive procedure ) ， 练 习 1.22 ， 
脚注 70 
newtons-method, 50 
newton-transform, 49 
new-withdraw, /52 
new 寄 存 器 (register), 381 
next (连接 描述 符 ，linkage descriptor), 404 
next-to (规则 ，rules) ， 练 习 4.61 
nil 
避免 (dispensing with), 80 
作为 空 表 (as empty list), 67 
作为 表 尾 标 记 (as end-of-list marker), 66 
tE 为 Scheme 里 的 常 值 (as ordinary variable in Scheme ) ， 
脚注 76 
no-more-exps?, #72312 
no-operands?, 275 
not (查询 语言 ，query language), 311, 322 
的 求 值 (evaluation of), 318, 327, % 34.717- 
not (#2A sw Æ, primitive procedure), 12 
nouns, 292 
null? (基本 过 程 ，primitive procedure), 68 
用 带 类 型 的 指针 实现 (implemented with typed 
pointers), 377 
number? (基本 过 程 ，primitive procedure), 100 
和 数据 类 型 (datatypes and), # 32.78 
用 带 类 型 指针 实现 (implemented with typed pointers ) ， 
377 
numer, 56, 59 
公理 (axiom for), 60 
归结 到 最低 项 (reducing to lowest terms), 59 
1 次 方 根 ， 作 为 不 动 点 (nth root, as fixed point), 练习 
1.45 
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Oldcr#-# (register), 382 
Ol1d## (register), 381 
ones (无 穷 流 infinite stream), 228 
情 性 表 版 本 (lazy-list version), 285 
op (在 寄存 器 机 器 里 ，in register machiney，347 
模拟 (simulating), 370 
operands, 257 
operation-exp , 370 
operation-exp-op, 370 
operation-exp-operands, 370 
operator, 257 
or (查询 语言 ，query language), 3/0 
的 求 值 (evaluation of), 317, 327 
Or (特殊 形式 ，special form), 18 
的 求 值 (evaluation of), 18 
为 什么 作为 特殊 形式 (why a special form), 18 
aA F RIA (with no subexpressions), # 34.4 
order, 140, 142 
origin-frame, 97 
Ostrowski, A. M., #3482 
outranked-by (Mill, rule), 312, 434.64 
pair? (#Axt @, primitive procedure ) 73 
用 带 类 型 指针 实现 (implemented with typed pointers), 
378 
pairs, 237 
Pan, V. Y., Be iz82 
parallel-execute, 21] 
parallel-instruction-sequences, 4/5 
Parse, 293 
parse-..., 293~294 
partial-sums, $% 33.55 
Pascal ， 和 脚注 1] 
缺少 高 阶 过 程 (lack of higher-order procedures ) # 
注 200 
递归 过 程 (recursive procedures ) ，23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 13 
在 处 理 复 合 数据 上 的 弱点 (weakness in handling com- 
pound objects), Ariz 161 | 
pattern-match , 329 
pc 寄存 器 (register), 362 
perform ( 在 寄存 器 机 器 里 ，in register machine), 348 
模拟 (simulating), 369 
perform-action, 369 
Perlis, Alan 村， 和 脚注 73 
妙语 (quips), Beiz7, Wizil 
Phillips, Hubert, # 3 4.42 


Pi (x) 
用 拆 半 法 逼近 (approximation with half-interval method ) ， 
45 
FASS F ROIS (approximation with Monte Carlo 
integration), #593.5, % 33.82 
Cesaro 人 和 估计 (estimate for), 155, 254 
莱 布 尼 兹 级 数 (Leibniz’s series for), Biz49, 233 
Ei (stream of approximations ) 233~234 
Wallis 公式 (formula for), # 3 1.31 
Pingala, Achérya, #eiz39 
pi-stream, 233 
pi-sum, 38 
用 高 阶 过 程 (with higher-order procedures), 39 
用 (with) lambda, 4/ 
Pitman, Kent M., 脚注 2 
Planner, #5251 
polar? , /20 
polar fj (package), 139 
poly, 139 
polynomial (package), 139 
pop, 361 
Portable Standard Lisp, Miz2 
PowerPC, Meiz177 
prepositions, 294 
preserving, 40], % 35.31, 414, % 35.37 
prime? , 33, 229 
primes (7A, infinite stream), 228 
陷 式 定义 (implicit definition), 229 
prime-sum-pair, 286 
prime-sum-pairs, 83 
无 穷 流 (infinite stream), 235 
primitive-apply, 388 
primitive-implementation, 264 
primitive-procedure?, 261, 265 
primitive-procedure-names, 265 
primitive-procedure-objects, 265 
print 操作 ,寄存 器 机 器 (operation in register machine) ， 
348 
print-point, #32.2 
print-queue, $% 33.21 
print-rat, 58 
print-result, 393 
监视 堆栈 版 本 (monitored-stack version), 395 
print-stack-statistics 
probe | 
在 约束 系统 里 (in constraint system ), 203 
在 数字 电路 模拟 器 里 (in digital-circuit simulator) , 
194 


450 





proc 寄 存 器 (register), 384 
procedure-body, 26/ 
procedure-environment, 26/ 
procedure-parameters, 26] 
product, % 31.31 
作为 积累 (as accumulation), # 3 1.32 
product?, /0/ 
Prolog, $eiz251, Miz 262 
prompt-for-input, 265 
propagate, 194 
push, 36/ 
put, 123, 187 
PiE (信息 量 和 的) (P operation on semaphore), Ay 4172 
geval, 320, 326 
queens, #32.42 
query-driver-loop, 325 
quote (特殊 形式 ，special form), #riz 100 
read, #4222, W285 
quoted? , 255 
quotient (#A4 7 &, primitive procedure), #4 53.58 
Rabin, Michael O., # 3 1.28 
Ramanujan, Srinivasa, iz 198 
Ramanujan # (numbers), # 33.71 
rand, /55 
带 重 丑 (with reset) ， 练 习 3.6 
random (基本 过 程 ，primitive procedure), 34 
需要 峰值 (assignment needed for), #34129 
MIT Scheme, #4136 
random-in-range, # 33.5 
random-numbers (XJF Fil, infinite stream), 245 
Raphael, Bertram, #7262 
Raymond, Eric ， 和 脚注 235 , #3250 
RC 电 路 (circuit), #& 33.73 
read (# Ait #, primitive procedure), Siz 222 
点 尾部 记 靶 的 处 理 (dotted-tail notation handling by ), 
330 
+z (macro characters ) ， 和 脚注 285 
read-eval-print-loop, 393 
read fave, 在 寄存 器 机 器 里 (operation in register machine ) , 
348 
real-part 
数据 导向 的 (data-directed), 725 
‘haste Has (polar representation), //8 
直角 坐标 表示 (rectangular representation), 718 
带 标 志 数 据 (with tagged data), 12/ 
real-part-polar, 12l 
real-part-rectangular, 120 
rear-ptr, /&/ 


receivert# (procedure), #iz289 
rectangular?, 120 
Rees, Jonathan A., #eyz217, Miz 232 
reg {寄存 器 机 器 ，in register machine) , 347 
模 拉 (simulating), 369 
register-exp, 370 
register-exp-reg, 370 
registers-modified, 472 
registers-needed, 4/2 
remainder (HAxzt #@, primitive procedure), 30 
remainder-terms, # 32.94 
remove, 84 
remove-first-agenda-item! , 194, 197 
require, 288 
作为 特殊 形式 (as a special form), # 34.54 
rest-exps, 257 
rest-operands, 257 
restore (寄存 器 机 器 ，in register machine), 355, #4 
35.11 
实现 (implementing), 377 
模拟 (simulating), 369 
rest-segments, 196 
rest-terms, 140, /42 
return (3493474, linkage descriptor), 400 
Reuter, Andreas, 472176 
reverse, #572.18 
Vey dr a (as folding), # 32.39 
规则 (rules ) ， 练 习 4.68 
right-branch, /06 
right-split, *9 
Rivest, Ronaid L., FWiz48, Wiz106 
RLC $4 (circuit), # 33.80 
Robinson, J. A., 4262 
Rogers, William Barton , #3289 
root 寄存 器 (register) , #iz301 
rotate90, 94 
round (2A jt #2, primitive procedure), #yi¢119 
Rozas, Guillermo Juan, #7#325 
RSA 算 法 (algorithm), #3448 
Runkle, John Daniel, # jz 89 
runtime (基本 过 程 ，primitive procedure), # 31.22 
same (规则 ，rule ) 31 
same-variable?, /00, 139 
save (寄存 器 机 器 ，in register machine), 356, # 35.11 
实现 (implementing), 377 
模拟 (simulating), 369 
scale-list, 70, 71, 285 
scale-stream, 229 
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scale-tree, 75 
scale+-vect, $32.46 
scan-out-defines, # 34.16 
scan 寄 存 器 (register ) 
Scheme , 2 
的 历史 (history of), #y;z2 
scheme~number->complex, /33 
scheme-number->scheme-number, # 32.81 
scheme-number 包 (package), /29 
Scheme 的 编译 器 (compiler for Scheme), 399~402, 53 R 
代码 生成 器 (code generator) ， 编 译 时 环境 (com- 
piletime environment) ， 指 令 序 列 (instruction 
sequence) ， 连 按 描 述 符 (linkage descriptor) ， 目 
标 寄 存 器 (target register) 
与 分 析 型 求 值 器 (analyzing evaluator vs.), 399, 400 
{A (assignments )，404 
代码 生成 器 (code generators), Rcompile-... 
组 合式 (combinations), 407~412 
条 件 (conditionals )，404 
定义 (definitions), 404 
效率 (efficiency) , 399~400 
实例 的 编译 (example compilation), 415~419 
与 显 式 控制 求 值 器 (explicit-control evaluator vs.), 
399~400 , #535.32, 427 
表达 式 语 法 过 程 (expression-syntax procedures), 399 
与 求 值 器 连接 (interfacing to evaluator), 425~430 
标号 生成 (label generation) ， 脚 注 322 
lambda #jk3% (expressions), 406 
词法 地 址 (lexical addressing}, 422~424 
连接 代码 (linkage code), 403 
机 器 操作 的 使 用 (machine-operation use), Bp 7319 
编译 后 代码 (堆栈 使 用 ) 性 能 监视 (monitoring perf- 
ormance (stack use) of compiled code), 427, & 
35.45, # 95.46 | 
基本 过 程 的 开放 代码 (open coding of primitives), & 
35.38, %3 5.44 
运算 对 象 求 值 的 顺序 (order of operand evaluation), 
% 335.36 
过 程 应 用 (procedure applications ), 407~412 
引号 (quotations), 403 
寄存 器 使 用 (register use), Mpjz319, 398, ， 和 脚注 320 
运行 编译 代码 (running compiled code), 425, 430 
扫描 出 内 部 定义 (scanning out internal definitions ) ， 
脚注 331 ， 练 习 5.43 
自 求 值 表达 式 (self-evaluating expressions ) 403 
表达 式 序 列 (sequences of expressions) , 406 
堆栈 的 使 用 (stack usage), 401, # 35.31, %3 
5.37 | 


的 结构 {structure of), 399~402 
生成 尾 递 归 代 码 (tail-recursive code generated by), 
411 
变量 (variables), 403 
Scheme 芯片 (chip), 383, 5-16 
Schmidt, Eric, #4 7¢ 138 
search, 44 


segment-queue, 196 


Segments, 196 
seqments-—->painter, 93 
segment-time, /96 
self-evaluating?, 255 
sequence->exp, 257 
serialized-exchange, 2/5 
避免 死 销 (with deadlock avoidance), # 393.48 
set! (特殊 形式 special form), 151, 3 ReA (assi- 
gnment ) 
的 环境 模型 (environment model of), Miz 141 
的 值 (value of), 74130 
set-car! (基本 过 程 ，primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), /79 
的 值 (value of), #iz144 
set-cdr! (Ait @, primitive procedure), /73 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), 180 
的 值 (value of), Mriz144 
set-contents! , 367 
set-current-time! , /96 
set-front-ptr!, /&/ 
set-instruction-execution-proc! , 366 
set-rear-ptr! , /8/ 
set-register-contents! , 359, 362 
set-segments!, 196 
set-signal!, 191, /93 
setup-environment, 264 
set-value!, 200, 204 
set-variable-value!, 261, 263 
Shamir, Adi, 脚注 48 
shrink-to-upper-right, 94 
Shrobe, Howard E., #7265 
Signal-error, 394 
simple-query , 326 
sin (基本 过 程 ，primitive procedure), 46 
singleton-stream, 336 
SKETCHPAD , #yjz159 
smallest-divisor, 33 


更 有 效 的 版 本 (more efficient version), 4 3 1.23 
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Smalltalk, #riz159 
Solomonoff, Ray, #7z134 
solve 微分 方程 (differential equation), 241~242 
情 性 表 版 本 (lazy-list version), 286 
HH Æx (with scanned-out definitions), 练习 4.18 
Spafford, Eugene H., #72337 
split, #32.45 
sqrt, 16 
块 结构 (block structured), /9 
环境 模型 (in environment model), 171~172 
作为 不 动 点 (as fixed point), 46~51 
作为 迭代 改进 (as iterative improvement), %# 3 1.46 
用 牛顿 法 (with Newton’s method), 50 
寄存 器 机 器 (register machine for) ， 练 习 3.3 
作为 流 的 极限 (as stream limit), ， 练 习 3.04 
sqrt-stream, 233 
square, & 
环境 模型 (in environment model), 163~165 
square-limit, 90~91 
square-of-four, 90 
squarer (#j#, constraint), 练习 3.34 ， 练 习 3.33 
squash-inwards, 94 
stack-inst-reg-name, 369 
Stallman, Richard M., Miz159, #iz25! 
start-eceval, Miz334 
start-segment, % 92.2, #3 2.48 
start 寄存 器 机 器 (register machine), 359, 362 
statements, 4/3 
Steele, Guy Lewis Jr., Peiz2, Peiz31, Wiz 139, Wiz 
159, Meiz235, Beis 250 
Stoy, Joseph E., #eiz15, MWpiż41, Miz231 
Strachey, Christopher, My 72.64 
stream-append, 237 
stream-append-delayed, 335 
stream-car, 221, 222 
stream-cdr, 22/, 222 
stream-enumerate-interval , 223 
stream-filter, 223 
stream-flatmap, 336, $% 34.74 
stream-for-each, 222 
stream-limit, %3 3.64 
stream-map, 222 
Ht A $e (with multiple arguments), 练习 3.50 
stream-null?, 222 
在 MIT Scheme 8, iz 182 
stream-ref, 222 
stream-withdraw, 247 
sub (通用 型 ，generic ) /29 


sub-complex, //8 
sub-interval, 练习 2.8 


sub-rat, 56 
sub-vect, #52.46 
sum, 38 


作为 积累 (as accumulation) , # 31.32 

迭代 版 本 (iterative version), 537 1.30 
sum? , 101 
sum-cubes, 38 

高 阶 过 程 (with higher-order procedures) , 39 
sum—integers, 38 

高 阶 过 程 (with higher-order procedures) , 39 
sum-odd-squares, 76, 79 
sum-of—-squares, 8 

环境 模型 (in environment model), /65 
sum-primes, 22/ 

Sussman, Gerald Jay , #iz3, Beiz31, Beiz159, #4251 
Sutherland, Ivan, #3159 
symbol? (基本 过 程 ，primitive procedure), 700 
和 数据 类 型 (datatypes and) ， 练 习 2.78 
用 带 类 型 指针 实现 (implemented with typed pointers ) ， 
377 
symbol-leaf, //2 
Symbols, //2 
SYNC, Beyz177 
tack-on-instfruction-sequence, 4/4 
tagged-list?, 255 
Teitelman, Warren, 脚注 2 
term-list, /39 
test (寄存 器 机 器 ，in register machine) , 346 

模拟 (simulating), 368 
test-and-set!, 217, W172 
test-condition, 368 
text-of-quotation, 255 
Thatcher, James W., iz 71 
the-cars 

寄存 器 (register), 376, 379 

向 量 (vector), 375 
the-cdrs 

寄存 器 (register), 376, 379 

向 量 (vector), 375 
the-empty-stream, 222. 

在 MIT Scheme Œ, Miz 182 
the-empty-termlist, 140, 142 
the-global-environment , 264, #iz314 
theta of fin) (O( fin))), 28 
THE 多 道 程序 设计 系统 (THE Multiprogramming System ), 

We i= 172 
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timed-prime-test, 91.22 
TK!Solver, #4159 
transform-painter, 94 
transpose— 46 f€ (a matrix), # 92.37 
tree->list..., #392.63 

tree-map, # 92.31 

true, #ryz17 

true?, 26/ 

try-again, 289 

Turner, David ， 脚 注 84， 脚 注 196 ， 和 脚注 201 
type-tag, 119 


使 用 Scheme 数据 类 型 (using Scheme data types), 4 


532.78 
unev#4# (register), 383 
unify-match, 337 
union-set, /03 
二 又 树 表示 (binary-tree representation), 72.65 
排序 表 表 示 (ordered-list representation ) ， 练 习 2.02 
未 排序 表 表 示 (unordered-list representation), 4 5) 
2.59 
unique (查询 语言 ，duery language), # 34.75 
unique-pairs, # 32.40 
UNIX, #2317, #337 
unknown-expression-type, 393 
unknown-procedure-type, 394 
update-insts! , 365 
upper-bound, # 92.7 
up-split, #.32.44 
user-initial-environment (MIT Scheme), Miz 
226 
user-print , 266 
为 编译 代码 而 做 的 修改 (modified for compiled code), 
脚注 334 
value-proc , 367 
val 寄 存 器 (register), 383 
variable, 139 
variable?, /00, 255 
vector-ref (Aw #, primitive procedure), 374 
vector-set! (#At Æ, primitive procedure), 374 
verbs, 292 
Wadler, Philip, #74138 
Wadsworth, Christopher, #324200 
Wagner, Eric G., #;471 
Walker, Francis Amasa, #489 
Wallis, John, $452 
Wand, Mitchell, #iz206, 72308 
Waters, Richard C., -E81 , 
weight, //2 
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weight-leaf, 212 
Weyl, Hermann, 53 
wheel (规则 ，rule )，311 
width , 64 
Wilde, Oscar (Perlis fy f Xx (paraphrase of )), #77 
Wiles, Andrew, Mp iz45 
Winograd, Terry, Biz 251 
Winston, Patrick Henry, Priz251, #4257 
Wisdom, Jack, #ryiz3 
Wise, David S., Bp iz 186 
withdraw, /5/ 
并 发 系统 里 的 问题 (problems in concurrent system), 
208 
without-interrupts, ， 和 脚注 164 
Wright, E. M., #32191 
Wright, Jesse B. ， 和 脚注 71 
xcor-vect, % 32.46 
Xerox Palo Alto Research Center, Beiz2, 脚注 1S9 
ycor-vect, %4 32.46 
Yochelson, Jerome C., W300 
Yiu (operator), Æ 3231 
Zabih, Ramin, #2251 
Zetallsp ， 和 脚注 2 
Zilles, Stephen N.， 脚 入 71 
Zippel, Richard E., #7z128 
爱丁堡 大 学 (University of Edinburgh), #iz262 
按 名 调用 参数 传递 (call-by-name argument passing), # 
注 186 ， 诗 注 240 
按照 历史 图 调 (chronological backtracking), 289 
按 需 参数 传递 (call-by-need argument passing), Miz 
186, eiz240 
记忆 性 (memoization and), #74192 
A. BUG BB (eight-queens puzzle), % 32.42, #3594.44 
hee (half-adder), 189 | 
half-adder , 190 
ysl (simulation of), 194~195 
包 (package), 124 w 
复数 (complex-number), 130 
Erm (polar representation), 125 
多 项 式 (polynomial) , 139 
有 理 数 (rational-number) ，129 
直 衣 坐标 表示 (rectangular representation), 123 
Scheme 的 数 (Scheme-number) , 129 
保留 字 (reserved words }， 练 习 5.38， 练 习 5.44 
被 监视 的 过 程 (monitored procedure), 4 33.2 
被 开 方 数 (radicand ) 15 
本 机 语言 (native language of machine ) ，397 


毕 达 哥 拉 斯 三 元 组 (Pythagorean triples ) 
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用 非 确定 性 程序 (with nondeterministic programs) , 
% 94.35, % 94.36, 34.37 
Fig (with streams), 4 33.69 
闭 包 (closure ) 55 
抽象 代数 里 (in abstract algebra), W472 
cons 的 财 包 性 质 (closure property of cons), 66 
图 形 语言 棍 作 的 闭 包 性 质 (closure property of picture- 
language operations ) 86, 87 
许多 语言 里 缺少 (lack of in many languages) 
编码 (code) 
ASCII, 109 
定 长 (fixed-length) , 110 
Huffman, #8 Huffman 434% (code), 109 
黄 尔 斯 (Morse ) 110 
Aug (prefix), 110 
a+ (variable-length), 110 
编译 (compilation), ， 见 编译 器 (compiler) 
编译 器 (compiler) , 398~399 
与 解释 器 (interpreter vs.), 398~399 , 427 
BA, H4 OAC FORE Ehr (tail recursion, stack 
allocation, and garbage-collection ) M iz325 
编译 时 环境 (compile-time environment), 95.40 
和 开放 代码 (open coding and) 9S 44 
变 长 编码 (variable-length code ) , 
AS sh ey Be (mutator), 173 
变动 数据 对 象 (mutable data objects ) ， 
列 (queue) ， 表格 (table) 
变量 (variable), 5, 3 4 局 部 变量 (local variable ) 
约束 的 (bound)，18 
自由 的 (free), 18 
作用 域 (scope of), 
a variable ) 
未 约束 的 (unbound), 162 
值 (value of), 162 
变量 的 作用 域 (scope of a variable ), 
域 (lexical scoping ) 
内 部 的 (internal) define , 269 
在 (in) let #@, 43 
过 程 的 形式 参数 (procedure’s formal parameters), 19 
标记 一 清扫 废料 收集 器 (mark-sweep garbage collector ) ， 
脚注 300 
表 (list), 66 
与 反 引 县 (backquote with), 
cdr (cdring down), 67 
Sappend444 (combining with append), 68 
cons}; (consingup), 68 
将 二 又 树 变换 到 (converting a binary tree to a), 
2.63 


， 脚 注 73 


173~180, 4% ZB 


18 ， 另 见 变 量 的 作用 域 (scope of 


18 ， 另 昂 词法 作用 


脚注 321 


变换 到 二叉树 (converting to a binary tree )， 练 习 2.64 


ai (empty), LZK (empty list) 
的 相等 (equality of), # 32.54 
带头 单元 的 (headed ) ， 183 , 脚注 156 


的 最 后 序 对 (last pair of) ， 练 习 2.17 
fate (lazy), 283~286 
的 长 度 (length of), 68 
与 表 结 构 (list structure vs.), Hy iz74 


Ħcar, cdr 和 cons 操 作 (manipulation with car, 
cdr, and cons ), 66 
映射 (mapping over), 70~72 
的 第 ”个 元 素 (nth element of), 67 
上 的 操作 (operations on), 67~70 
的 打印 表示 (printed representation of) , 66 
引号 (quotation of) , 97 
Het (reversing), 4% 32.18 
操作 技术 (techniques for manipulating ), 67~70 
表达 式 (expression), 3 RAHIKA (compound exp- 
ression) ， 基 本 表达 式 (primitive expression) 
代数 (algebraic ) ， 见 代数 表达 式 (algebraic expr- 
essions ) 
自 求 值 (self-evaluating ) 252 
符号 (symbolic), 55 另 见 符号 (symbol) 
表达 式 风 格 (expression-oriented programming) ， 和 脚注 161 
表达 式 求 值 的 顺序 (order of subexpression evaluation ) ， 
见 求 值 顺序 (order of evaluation ) 
表达 式 序 列 (sequence of expressions ) 
在 cond 的 推论 部 分 (in consequent of cond), W419 
过 程 体 里 (in procedure body), #37214 
表格 (table), 183~188 
的 骨架 (backbone of), 184 
为 强制 《for coercion), 133 
用 于 数据 导向 的 程序 设计 
amming), 123 
局 部 (local ) 186~187 
n# (n-dimensional), # 33.25 
— (one-dimensional), 184~185 
操作 和 类 型 (operation-and-type) ， 见 操作 和 类 型 表格 
(operation-and-type table ) 
用 二 叉 树 表示 与 用 未 排序 表 表 示 (represented as binary 
tree vs. unordered list), # 3 3.26 
检测 键 值 相等 (testing ae of keys), 
两 维 (two-dimensional), 1 
用 于 模拟 的 待 处 理 表 (ood in simulation agenda), 
195 
用 于 保存 计算 出 的 值 (used to store computed values ), 
练习 3.27 
表 结 构 (list structure), 57 


(for data-directed progr- 


练习 3.24 


Æ% zl 
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与 表 (list vs.), Brig 136 
变动 的 (mutable), 173~176 
用 问 量 表示 (represented using vectors) , 375~378 
表 结 构 存 储 器 (list-structured memory ) 374~383 
表 尾 标记 (end-of-list marker), #p;474, Be iz76 
表 里 的 循环 (cycle in list), # 93.13 
检查 (detecting ) ， 练 习 3.18 
表 列 (tableau), 234 
表 列 法 (tabulation ) ， 牌 注 34 ， 练 习 3.27 
表 求 值 的 尾 递归 (evils tail recursion), #4308 
别名 (aliasing), W ;Ł138 
并 发 性 (concurrency ), 206~220 
并 发 程序 的 正确 性 (correctness of concurrent progr- 
ams) ，209~210 | 
死 锁 (deadlock), 218~219 
HAKA EF Zit (functional programming and), 
247 
控制 机 制 (mechanisms for controlling), 210~219 
并 行 性 (parallelism), £ (concurrency } 
捕获 了 自由 变量 (capturing a free variable), 19 
不 动 点 (fixed point), 45~48 
用 计算 器 计算 (computing with calculator), 63257 
余弦 的 (of cosine), 46 
立方 根 作为 (cube root as), 49 
四 次 方 根 作为 (fourth root as), 练习 1.45 
黄金 分 割 作 为 (golden ratio as) ， 练 习 1.35 
作为 欠 代 改进 (as iterative improvement), ， 练 习 1.46 
在 牛顿 落 里 (in Newton’s method), 49 
n 次 方 根 作为 (nth root as)， 练 习 1.45 
平方 根 作 为 (square root as), 46, 49, 50 
AR +h. 2 BBY (of transformed function), 50 
合 一 和 (unification and), #y 7284 
不 可 计算 (non-computable ), Hy ;4227 
参数 传递 (argument passing ) ， 见 按 名 参数 传递 《call- 
by-name argument passing) ; 按 需 参数 传递 (call-by- 
need argument passing ) 
操作 (operation ) 
足 类 型 (cross-type ), 132 
通用 型 (generic), 55 
在 寄存 器 机 器 里 (in register machine ), 344~345 
操作 ， 寄 存 器 机 器 (operation in register machine), 372 
操作 一 类 型 表格 (operation-and-type table }, 123 
所 需 的 赋值 (assignment needed for), #4130 
实现 (implementing) , 187 
Hy (thunk), 278~279 
按 名 调用 (call-by-name) , #32186 
按 需 调用 {call-by-need)， 有 和 脚注 186 
强迫 求 值 (forcing), 278 


实现 (implementation of), 281~282 
名 字 的 由 来 (origin of name), #iz238 
层次 性 结构 (hierarchical structures), 6, 72~75 
查询 (query), 306, 3 R 简单 查询 (simple query), # 
合 查询 (compound query ) | 
查询 解释 器 (query interpreter) , 306 
加 入 规则 或 断言 (adding rule or assertion), 320 
复合 查询 (Compound query )， 见 复合 查询 (compound 
query ) | 
数据 库 (data base), 333~335 
驱动 循环 (driver loop), 320, 325~326 
环境 结构 (environment structure in), # 34.79 
框架 (frame), 315, 338 
改进 (improvements to), #34.67, #54.76, #3 
4.77 | 
无 穷人 循环 (infinite loops), 322, # 94.67 
实例 化 (instantiation), 325 
与 Lisp 解 释 器 (Lisp interpreter vs.) , 319, 320, #43 
4.79 
概述 (overview), 315~320 
模式 匹配 (pattern matching) , 315, 328~329 
模式 变量 表示 (pattern-variable representation ) 325 , 
336~337 
Snot 和 1isp-value 有 关 的 问题 (problems with 
not and lisp-value) , 321~322, # 34.77 
查询 求 值 器 (query evaluator) , 320, 326~328 
规则 (rule)， 见 规则 (rule) 
简单 查询 (simple query), 308~309 
mee VE (stream operations), 335 _ 
框架 流 (streams of frames), 315, #4278 
查询 语言 的 语法 (syntax of query language), 336~337 
合 一 (unification), 318 
查询 语言 (query language), 306~314 
抽象 (abstraction in), 311 
复合 查询 (compound query), 310~311 
数据 库 (data base), 306~308 
相等 检 袖 (equality testing in), He iz268 
扩充 (extensions to), % 34.66, # 34.75 
逻辑 推理 (logical deductions), 313~314 
与 数理 逻辑 (mathematical logic vs.) , 321~324 
规则 (rule), 311~314 
简单 查询 (simple query), 308~309 
长 康 星 (evening star), & 4 (Venus) 
常规 的 数 (在 通用 型 算术 系统 里 ) (ordinary numbers. 
(in generic arithmetic system )), 129 
抄录 (snarf), #4235 
超 类 型 (supertype), 135 
多 个 (multiple), 135 
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成 功 继续 ( 非 确 定性 求 值 器 ) (success continuation 
(nondeterministic evaluator ) ) 296~297 
程序 (program), | 
作为 抽象 机 器 (as abstract machine), 266 
注释 (comments in), #787 
作为 数据 (as data), 266~268 
的 递增 开发 (incremental development of) , 6 
的 结构 (structure of), 6, 17, 19~20, 3 Rts He 
ft (abstraction barriers ) 
带 有 子 程序 结构 (structured with subroutines), Miz 
223 
程序 错误 (bug), 1 
捕获 了 自由 变量 (capturing a free variable), 19 
赋值 的 顺序 (order of assignments), 161 
别名 的 副作用 (side effect with aliasing), jz 138 
程序 的 递增 开发 (incremental development of programs ) ， 
5 
程序 的 正确 性 (correctness of a program), Miz 20 
程序 计数 器 (program counter), 362 
程序 设计 (programming ) 
数据 导向 的 《data-directed )， 见 数据 导向 的 程序 设计 
(data-directed programming ) 
命令 驱动 的 (demand-driven ) 224 
的 要 素 (elements of), 3 
函数 式 (functional), Beaver tit (functional 
programming ) 
命令 式 (imperative) , 160 
By A PS (odious style), #yyz187 
程序 设计 语言 (programming language), | 
的 设计 (design of), 276 
函数 式 (functional), 247 
逻辑 (logic), 306 
面向 对 象 (object-oriented), W iz118 
强 类 型 (strongly typed), #1200 
其 高 级 (very high-level), i220 
hk (abstraction), ， 另 见 抽 象 手 段 (means of abstracti- 
on) ， 数 据 抽 象 (data abstraction) ， 高 阶 过 程 (hig- 
herorder procedures ) 
公共 模式 和 (common pattern and), 38 
元 语言 (metalinguistic), 250 
过 程 性 的 (procedural), 17 
寄存 器 机 器 设计 里 (in register-machine design), 
348~351 
非 确定 性 程序 设计 里 搜索 的 (of search in nondetermi- 
nistic programming), 290 
抽象 的 方法 (means of abstraction), 3 
define, 5 
抽象 屏障 (abstraction barriers), 54, 58~60, 115 
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复数 系统 里 (in complex-number system), 116 
通用 算术 系统 里 (in generic arithmetic system), 128 
抽象 数据 (abstract data), 55, 3 L Meeps (data abs- 
traction ) 
抽象 语法 (abstract syntax ) 
元 循环 求 值 器 里 (in metacircular evaluator), 252 
查询 解释 器 里 (in query interpreter), 325 
稠密 多 项 式 (dense polynomial), 142 
A (string), SFR (character string ) 
串 行 化 器 (serializer), 211~213 
实现 (implementing), 216~218 
带 有 多 项 共享 资源 (with multiple shared resources ), 
214~216 
《创世纪 》Genesis ， 练 习 4.63 
词法 地 址 (lexical addressing ), 422~424 
词法 作用 域 (lexical scoping), 20 
环境 结构 和 (environment structure and), 422 
存储 器 (memory) 
在 (in) 1964 ， 和 脚注 249 
Ht fy AY (list-structured ), 374~383 
错误 处 理 (error handling ) 
在 编译 代码 里 (in compiled code), #74337 
在 显 式 控制 求 值 器 里 (in explicit-control evaluator), 
393, %3 5.30 
打印 ， 基 本 操作 (printing, primitives for), #;470 
AH (bignum), 376 
代码 生成 器 {code generator), 399 
的 参数 (arguments of ) ; 400 
的 值 (value of ) 400 
代数 ， 符 号 (algebra, symbolic), RASA% (symbolic 
algebra ) 
代数 表 达 式 (algebraic expression), 138 
求 导 (differentiating ), 99~103 
表示 (representing), 100~103 
化 简 (simplifying), 101~102 
带 标志 数据 (tagged data), 119~122, Meiz292 
带 点 尾部 记 法 (dotted-tail notation) 
过 程 参数 (for procedure parameters ) , 72.20, we 
113 
在 查询 模式 里 (in query pattern), 309, 329 
在 查询 语言 规则 里 (in query-language rule), 313 
read 和 (and), 329 
带 类 型 的 指针 (typed pointer), 375 
带头 表 头 单元 的 表 (headed list), 184, Siz 156 
待 处 理 表 (agenda)， 见 数字 电路 模拟 (digital-circuit 
simulation ) 
单 变 元 多项式 (univariate polynomial), 138 
单位 正方 形 (unit square), 91 
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7c, ERIRE (cell, in serializer implementa- 
tion), 217 
当前 时 间 ， 对 于 待 处 理 表 (current time, for simulation 
agenda), 196 
KHER, MEAK (Earth, measuring circumference of), 
# iz 188 
Hott (address), 374 
地 址 算术 (address arithmetic), 374 
递归 (recursion), 6 
数据 导向 的 (data-directed) , 141 
表达 复杂 的 计算 过 程 (expressing complicated process), 6 
在 规则 里 (in rules)，312 
对 树 工作 (in working with trees), 72 
递归 方程 (recursion equations), 2 
递归 过 程 (recursive procedure ) 
递归 的 过 程 定 义 (recursive procedure definition), 17 
与 递归 的 计算 过 程 recursive process vs., 23 
不 用 define 撕 述 (specifying without define), # 
4,21 | 
递归 计算 过 程 (recursive process), 23 
ALR Rit Bit HB (iterative process vs.), 20~24, %3 
3.9, 354, % 35.34 
线性 (linear), 22, 28 
与 递归 过程 (recursive procedure vs.), 23 
寄存 器 机 器 (register machine for) , 354~358 
Ht (tree), 24~27 
递归 论 (recursion theory), ， 脚注 224 
点 ， 用 序 对 表示 (point represented as a pair ) ， 练 习 2.2 
电路 (circuit ) 
数字 的 (digital), R% zi H A (digital-circuit 
simulation ) 
用 流 模拟 (modeled with streams), % 33.73, %3 
3.80 
电子 线路 ， 用 流 模 拟 (electrical circuits, modeled with 
streams ) ， 练 习 3.73 ， 练 习 3.80 
电阻 (resistance ) 
电阻 器 并 联 公 式 (formula for parallel resistors) , 62, 
64 
Hi BA BE 的 误差 (tolerance of resistors) , 62 
EAC 改进 (iterative improvement), # 31.46 
att ct FH (iterative process ) 22 
作为 流 过 程 (as a stream process), 232~235 
算法 设计 (design of algorithm), # 31.16 
通过 过 程 调 用 实现 (implemented by procedure call), 
15~16，23 ，391 ， 另 见 尾 递归 (tail recursion ) 
线性 (linear), 22, 28 
与 递归 过 程 (recursive process vs.), 21~24, 433.9, 
354, #35.34 


寄存 器 机 器 (register machine for ), 354 
迭代 计算 过 程 的 不 变量 (invariant quantity of an iterative 
process), # 31.16 
ik ugt (iteration contructs ) ， 见 循环 结构 (looping 
constructs ) 
定 长 编码 (fixed-length code), 110 
定 积 分 (definite integral) , 39 
Fig tk 罗 模 拟 估 计 (estimated with Monte Carlo 
Simulation), % 33.5, 练习 3.82 
定理 证 明 ， 自 动 (theorem proving, automatic), #ypiz 
262 
定义 (definltion) ， 见 Qefine ， 内 部 定义 (internal defi- 
nition ) 
E EBH AR (Diophantus’s Arithmetic), ROWE 
本 (Fermat’s copy of), #1245 
动作 ， 寄 存 器 机 器 里 (actions, in register machine), 
348 
逗号 , 与 反 引 号 一 起 使 用 (comma, used with backquote) , 
脚注 321 
读 入 器 宏 字 符 (reader macro character), By 72285 
读 入 一 求 值 一 打印 人 循环 (read-eval-print loop), 5, 3 A 
驱动 循环 (driver loop) 
W (breakpoint), # 95.19 
言 (assertion), 307 
隐 式 (implicit), 312 
堆栈 (stack), #1230 
框架 的 (framed), Miz 306 
在 寄存 器 机 器 里 做 递归 (for recursion in register mac- 
hine ) 354~358 
表示 (representing ), 361, 377 
H £24) MAJE (stack allocation and tail recursion) , 
Be 72 325 
队列 (queue), 180~183 
We (double-ended), 2% 33.23 
首部 (front of), 180 
FAVE (operations on), 181 
的 过 程 实 现 (procedural implementation of), 练习 
3.22 
尾部 (rear of), 180 
模 氢 待 处 理 表 (in simulation agenda) ”196 
对 Scheme 的 显 式 控制 求 值 器 (explicit-control evaluator 
for Scheme ) ，383~397 
峰值 (assignments), 392 
组 合式 (combinations), 385~388 
复合 过 程 (compound procedures ), 388 
444: (conditionals), 391 
控制 器 (controller), 384~394 


数据 通路 (data paths), 383 
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定义 (definitions), 392 
派生 表达 式 (derived expressions), #323 
驱动 循环 (driver loop), 393 
错误 处 理 (error handling ), 393, # 35.30 
没有 需要 求 值 的 子 表达 式 的 表达 式 (expressions with 
no subexpressions to evaluate) , 384~385 
作为 机 器 语言 程序 (as machine-language program), 397 
机 器 模型 (machine model), 394 
为 编译 代码 而 做 的 修改 (modified for compiled code ), 
425~426 
监视 执行 情况 (堆栈 使 用 ) (monitoring performance 
(stack use) ) 395~396 
正则 序 求 值 (normal-order evaluation), 4 35.25 
运算 对 象 求 值 (operand evaluation) , 386~387 
操作 (operations), 383 
优化 (附加) (optimizations (additional)), # 95.32 
基本 过 程 (primitive procedures ) 388 
过 程 应 用 (procedure application), 385~388 
寄存 器 (registers), 383 
运行 (running), 393~395 
表达 式 序 列 (sequences of expressions ) 388~391 
特殊 形式 (附加 ) (special forms (additional)), 练习 
5.23, #4 535.24 
堆栈 使 用 (stack usage), 385 
尾 递 归 (tail recursion), 389~391 
作为 通用 机 器 (as universal machine), 397 
对 数 型 增长 (logarithmic growth), 29, 30, Biz 104 
对 象 (object), 149 
用 对 象 模拟 的 优势 (benefits of modeling with), 154 
有 随时 间 变 化 的 状态 (with time-varying state), 150 
对 象形 (obarray ) 376 
多 项 式 (polynomial), 138~147 
规范 形式 (canonical form), 144 
MÆ (dense), 142 
用 Horner 规 则 求 值 (evaluating with Horner’s rule), 
练习 2.34 
类 型 的 层次 结构 (hierarchy of types), 143 
未 定 元 (indeterminate of), 138 
ew (sparse), 142 
单 变量 (univariate), 138 
项 表 (term list of polynomial), 139 
多 项 式 算 术 (polynomial arithmetic), 138~147 
加 法 (addition), 139 
除法 (division), 492.91 
欧 几 里 得 算法 (Euclid’s Algorithm), #72126 
最 大 公 因 子 (greatest common divisor), 145, 脚注 128 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 139 


乘法 (multiplication), 139 
GCD 的 概率 算法 (probabilistic algorithm for GCD ), $ 
注 128 
有 理沙 数 (rational functions) , 144 
减法 (subtraction), #& 32.88 
惰性 表 (lazy list), 284~286 
情 性 求 值 器 (lazy evaluator), 276~284 
ttt (lazy tree), Wp;4245 
情 性 序 对 (lazy pair) , 284~286 
俄罗斯 农民 的 乘法 方法 (Russian peasant method of 
multiplication), #7240 
后 拉 多 塞 (Eratosthenes), Miz 188 
ji & XR: (sieve of Eratosthenes), 227 
sieve, 227 
— Mew (binary tree), 105 
平衡 (balanced), 106 
HET ip 3 (converting a list to a), #52.64 
变换 到 表 (converting to a list), # 32.63 
Huffman 编码 (encoding), 109 
用 表 表 示 (represented with lists), 106 
将 集合 表示 为 (sets represented as), 105~109 
将 表格 构造 为 (table structured as), ， 练 习 3.20 
二 分 搜索 (binary search), 106 
二 进 制 数 加 法 (binary numbers, addition of), ， 见 加 法 器 
(adder ) 
二 项 式 系数 (binomial coefficients )， 脚 注 35 
反馈 循环 ， 用 流 模拟 (feedback loop, modeled with 
streams), 241 
反 门 (inverter), 189 
inverter, 19] 
fe 3] (backquote), #yjz321 
反正 切 (arctangent), #110 
返回 多 个 值 (returning multiple values) ， 脚 注 289 
方程 ， 求 解 (equation, solving )， 见 折 半 法 (half-interval 
method) ， 咎 顿 法 (Newton’s method) , solve 
方程 的 根 (roots of equation) ， 见 折 半 法 (half-interval 
method) ， 丫 顿 法 (Newton’s method ) 
非 确 定性 ， 并 发 程序 的 行为 (nondeterminism, in behavior 
of concurrent programs), #934167, #eiz203 
非 确 定性 程序 (nondeterministic programs ) 
iB Shik GH (logic puzzles), 290~291 
和 为 素数 的 数 对 (pairs with prime sums), 286 
分 析 自 然 语言 (parsing natural language) , 291~295 
毕 达 哥 拉 斯 三 元 组 (Pythagorean triples), # 94.35, 
练习 4.36 ， 练 习 4.37 
非 确定 性 计算 的 程序 设计 (nondeterministic programming ) , 
286, #394.41, #34.44, & 94.78 
非 确 定性 计算 (nondeterministic computing ) , 286~296 
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{EMRE HERA (nondeterministic evaluator) , 296~304 
运算 对 象 的 求 值 顺序 (order of operand evaluation), 
练习 4.46 
非 确 定 性 的 选择 点 (nondeterministic choice point), 288 
非 严 格 (non-strict ) 277 
4h of AB $28 (Fibonacci numbers), 24, 3 见 上 ib 
欧 几 里 得 GCD 算 法 和 (Euclid’s GCD algorithm and), 32 
的 无 穷 流 (infinite stream of )， 见 fibs 
废料 收集 (garbage collection )，378~383 
记忆 和 (memoization and), Ariz 241 
变动 和 (mutation and), #iz145 
尾 递 归 和 (tail recursion and), W325 
废料 收集 器 (garbage collector ) 
iki (compacting), # #300 
标记 清扫 (mark-sweep), #74300 
停止 并 复制 (stop-and-copy) , 378~383 
# o, (Fermat, Pierre de), Mryz45 
费 马 小 定理 (Fermat’s Little Theorem), 34 
另 一 形式 (alternate form), # 91.28 
证 明 (proof), #245 
分 层 设 计 (stratified design), 95 
分 隔 符 (separator code), 110 
分 县 (semicolon), #11 
引入 注释 (comment introduced by), #iz87 
分 号 的 癌症 (cancer of the semicolon), My ll 
分 解 ， 程 序 (decomposition of program into parts), 17 
分 派 (dispatching ) 
不 同 风 格 的 比较 (comparing different styles), %3 
2.76 
基于 类 型 (on type), ，122 ， 另 见 数据 导向 的 程序 设计 
(data-directed programming ) 
分 情况 分 析 (case analysis) 
与 数据 导向 的 程序 设计 (data-directed programming 
vs.), 253 
一 般 的 (general), 3 cond, 11 
分 两 种 情况 (with two cases, if), 12 
分 数 (fraction), LAM% (rational number) 
分 析 型 求 值 器 (analyzing evaluator), 273~276 
作为 非 确 定性 求 值 器 的 基础 (as basis for nondeterm- 
inistic evaluator), 296 
let, % 534.22 
分 析 自 然 语 言 (parsing natural language), 292~294 
真实 世界 的 自然 语言 理解 与 玩具 式 的 语法 分 析 (real 
language understanding vs. toy parser), #i#257 
封闭 世界 假设 (closed world assumption), 323 
封装 (encapsulated), $132 
符号 (symbol) , 96 
相等 (equality of), 98 


加 入 (interning), 376 
引号 (quotation of), 97 
表示 (representation of), 376. 
唯一 性 (uniqueness of), Me 72147 
符号 表达 式 (symbolic expression), 55, 3 UAB 
(symbol ) 
符号 代数 (symbolic algebra), 138~147 
符号 微分 (symbolic differentiation), 99~102 
fis, Wiel8 
复合 表达 式 (compound expression), 3-4 3 BAAR 
(combination) ， 特 殊 形式 (special form ) 
作为 组 合式 的 运算 符 (as operator of combination) , 
练习 1.4 
复合 查询 (compound query), 310~311 
处 理 (processing), 316~318, 326~328, #35 4.75, 
练习 4.76， 练 习 4.77 
复合 过 程 (compound brocedure) ，8 ， 另 见 过 程 {proce- 
dure ) 
像 基 本 过 程 一 样 用 (used like primitive procedure), 
8~9 
复合 数据 (compound data), 53 
复数 (complex numbers) 
极 坐 标 表 示 (polar representation), 116 
直角 坐标 表示 (rectangular representation), 117 
直角 坐标 与 极 坐 标 形式 (rectangular vs. polar form), 
117 | 
表示 为 带 标志 数据 (represented as tagged data), 
119~121 
复数 算术 (complex-number arithmetic) , 116 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 129~131 
系统 的 结构 (structure of system), ， 图 2-21 
副作用 错误 (side-effect bug), #iz138 
Mii (assignment), 149~154, 4% Rset! 
的 优势 (benefits of), 154~157 
与 之 有 关 的 错误 (bugs associated with), Wiz 138, 
160~161 
的 代价 (costs of), 157~162 
赋值 运算 符 (assignment operator), 150, 3 Aset! 
概率 算法 (probabilistic algorithm), 34~35, 34128, 
脚注 188 
高 级 语言 ， 与 机 器 请 言 (high-level language, machine 
language vs.), 249 
高 阶 过 程 (higher-order procedures), 37 
元 循环 求 值 器 里 (in metacircular evaluator), 209 
过 程 作为 参数 (procedure as argument) , 37~40 
过 程 作 为 通用 方法 (procedure as general method ) 
44~48 
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过 程 作 为 返回 值 (procedure as returned value), 
48~52 
强 类 型 和 (strong typing and), My j#200 
格式 化 输入 表达 式 (formatting input expressions), Miz 
6 
工程 与 数学 (engineering vs. mathematics), $iz47 
功能 块 ， 数 字 电路 里 (function box, in digital circuit), 
189 
共享 数据 (shared data), 177~178 
共享 状态 (Shared state), 209 
共享 资源 (shared resources ) 214~216 
构造 函数 (constructor), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
故障 (glitch), 1 
关系 ， 基 于 关系 的 计算 (relations, computing in terms 
of), 198, 305 
归并 无 穷 流 (merging infinite streams), LAB 
(infinite stream ) 
归结 原理 ，Horn 子 句 (resolution, Horn-clause), Miz 
262 
Ha HET (reducing to lowest terms), 58~59, 
146~147 
规范 形式 ， 多 项 式 (canonical form, for polynomials) , 
144 
规则 (查询 语言 ) (mle (query language )), 311~314 
应 用 (applying), 319~320, 329-330, 3% 34.79 
没有 体 (without body), #7#270, 313, 328 
国际 象棋 ， 八 皇后 iB (chess, eight-queens puzzle), 4 
32.42, % 34.44 
过 程 (procedure), 3 
匿名 (anonymous), 41 
任意 数目 的 参数 (arbitrary number of arguments), 4, 
练习 2.20 
作为 实际 参数 (as argument), 37~40 
作为 黑箱 (as black box), 17 
fe (body of), 8 
复合 (compound), 8 
用 deftine 构造 (creating with define), 8 
用 Lambda 构 造 (creating with lambda), 41, 162, 
164 
作为 数据 (as data), 3 
定义 (definition of), 8~9 
在 Lisp 里 为 一 级 (first-class in Lisp), 51 
形式 参数 (formal parameters of), 8 
作为 通用 方法 (as general method) 44~48 
通用 型 (generic), 113, 116 
高 阶 (higher-order), 2 petit # (higher-order proc- 
edure ) 


x šl 


体内 隐 含 的 begin (implicit begin in body of), ¥* 
14131 
与 数学 函数 (mathematical function vs.), 13~14 
记忆 性 (memoized) , % 333.27 
带 监 视 的 (monitored), # 33.2 
名 字 (name of), 8 
命名 (用 aefine) (naming (withdefine)), 8 
作为 局 部 求 值 过 程 的 模式 (as pattern for local evolu- 
tion of a process ) ，20 
作为 返回 值 (as returned value), 48~52 
返回 多 个 值 (returning multiple values), $4289 
形式 参数 的 作用 域 (scope of formal parameters), 19 
与 特殊 形式 (special form vs.), 2 54.26, 284 
过 程 抽象 (procedural abstraction ) , 17 
过 程 的 局 部 演化 (local evolution of a process), 20 
过 程 体 (body of a procedure), 8 
过 程 应 用 (procedure application ) 
组 合式 的 表示 (combination denoting), 4 
的 环境 模型 (environment model of), 165~167 
代 换 模型 (substitution model of ) ， 见 过 程 应 用 的 代 换 
模型 (substitution model of procedure application ) 
过 程 应 用 的 代 换 模型 (substitution model of procedure 
application), 9~11, 162 
不 合适 (inadequacy of), 157~158 
计算 过 程 的 形状 (shape of process), 21~23 
过 零点 ， 信 号 (zero crossings of a Signal) ， 练 习 3.74， 
练习 3.73， 练 习 3.70 
zta (filter) ， 练 习 1.33 77 


函数 (数学 的 ) (function (mathematical) ) 


> 记 法 (notation for) ， 脚 注 38 
阿 克 曼 (Ackermann’'’s)， 练 习 1.10 
复合 (composition of), 练习 1.42 
的 导数 (derivative of ) 49 
的 不 动 点 (fixed point of), 45~47 
过 程 与 (procedure vs.)，13~14 
有 有理数 (rational), 144~147 
的 反复 应 用 (repeated application of), #9 1.43 
的 平滑 (smoothing of), # 91.44 
函数 的 导数 (derivative of a function), 49 
函数 的 复合 (composition of functions), & 3 1.42 
函数 式 程 序 设 计 (functional programming) , 157, 
245~248 
并 发 和 (concurrency and) , 247 
函数 式 程序 设计 语言 (functional programming lang- 
uages), 247 
时 间 和 (time and), 246~248 
合 一 (unification), 318~319 


算法 的 发 现 (discovery of algorithm), jz 262 


žo Fl 
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实现 (implementation ) 331~332 

与 模式 匹配 (pattern matching vs.), 319, W277 
盒子 和 指针 表示 方式 (box-and-pointer notation ) 65 

表 尾 标记 (end-of-list marker) , #7474, #eiz76 
jah, 立 特 (Heraclitus), 149 
黑箱 (black box), 17 


£7 Bet (red-black tree), $106 
g (macro), W217, 3 RABE (reader macro 
character ) 


AFR (mutual exclusion), Mp yz172 
互 斥 元 (mutex), 216 
互 素 (relatively prime )， 练 习 1.33 
化 简 代 数 表 达 式 (simplification of algebraic expressions ) , 
101 
画家 (painter), 86 
高 阶 操作 (higher-order operations ), 90 
操作 (operations), 88 
表示 为 过 程 (represented as procedures), 93 
变换 和 组 合 (transforming and combining) , 94 
环境 (environment), 5, 162 
编译 时 (compile-time ) ， 见 编译 时 环境 (compile-time 
environment ) 
作为 求 值 的 上 下 文 (as context for evaluation ) 6 
Sh AY (enclosing), 162 
全 局 的 《global ) ， 见 全 局 环境 (global environment ) 
词法 作用 域 和 (lexical scoping and )， 和 脚注 27 
查询 解释 器 里 (in query interpreter), # 34.79 
重 命名 和 (renaming vs.), # 34.79 
缓存 一 致 性 规程 (cache-coherence protocols), By 7z164 
黄金 分 害 (golden ratio), 25 
作为 连 分 数 (as continued fraction), # 31.37 
作为 不 动 点 (as fixed point), # 31.35 
回潮 (backtracking), 289, 3 R4ERRE HR (nonde- 
terministic computing ) 
汇编 程序 (assembler), 360, 364~366 
活动 体 (mobile), % 32.29 
或 门 (or-gate), 189 
Or-9ate ， 练 习 3.28 ， 练 习 3.29 
获取 互 斥 元 (acquire a mutex), 216 
机 .器 语言 (machine language), 397 
与 高 级 语言 (high-level language vs.), 249 
积分 (integral), 3 R 定 积分 (definite integral) , 蒙特 
卡 罗 积 分 (Monte Carlo integration), # 33.59 
ERM A (of a power series ) 
积分 器 ERI (integrator, for signals), 239 
基本 表达 形式 (primitive expression), 3 
求 值 (evaluation of}, 6 
基本 过 程 名 (name of primitive procedure ) 3 





变量 名 (name of variable), 5 
4 (number), 3 
基本 查询 (primitive query) ， 见 简单 查询 (simple query ) 
基本 过 程 (标记 ns 的 不 属于 IEEE Scheme 标准 ) 


(primitive procedures ) 


>, Il 

apply, W113 

atan, Miz110 

car, 57 

cdr, 57 

cons, 57 

cos, 46 

display, 3270 

eq?, 98 

error (ns), 脚注 56 

eval {ns), 268 | 

list, 66 

log, #3 1.36 

max, 63 

min, 63 

newline, #37470 

not, /2 

null?, 68 

number?, 100 

pair?, 73 

quotient, # 33.58 

random (ns), 34, i136 

read, Miz222 

remainder , 30 

round, #i#119 

runtime (ns), 练习 1.22 

set-car!, 173 

set-cdr!, 173 

sin, 46 

symbol?, /00 

vector-ref , 374 

vector-set! , 374 
基本 过 程 的 开放 代码 (open coding of primitives), %3 

5.38 ， 练 习 5.44 

基本 约束 (primitive constraints ) 198 
级 联 进位 加 法 器 (ripple-carry adder), # 3 3.30 
级 数 ， 求 和 (series, summation of), 38 
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BUCA nuk AEF] (accelerating sequence of approxi- 
mations}, 234 
流 (with streams), 233 | 
集成 电路 实现 Scheme (integrated-circuit implemen- 
tation of Scheme) , 383, 5-16 
集合 (set), 103 
数据 库 作为 (data base as}, 109 
的 操作 (operations on), 103 
的 排列 (permutations of ) 83 
表示 为 二 叉 树 (represented as binary tree), 105~108 
表示 为 排序 表 (represented as ordered list), 104~105 
表示 为 无 序 表 (represented as unordered list), 
102~103 
3 (subsets of), # 32.32 
集合 的 Subsets (of a set), % 32.32 
集合 的 排列 (permutations of a set), 83 
permutations, 84 
集合 的 表示 ，103~102 
集合 作为 未 排序 的 表 (unordered-list representation of 
sets), 103~104 
集合 作为 排序 的 表 (ordered-list representation of sets ), 
104~105 | 
计算 过 程 ， 进 程 (process), 1l 
迭代 的 (iterative), 22 
线性 和 欠 代 的 (linear iterative), 22 
线性 递 妇 的 (linear recursive), 22 
的 局 部 演化 (local evolution of ) 20 
增长 的 阶 (order of growth of), 28 
递归 的 (recursive), 22 
所 需 资 源 (resources required by) , 28 
的 形状 (shape of ) 22 
树 形 递 娄 的 (tree-recurslve ) ， 24~27 
计算 机 科学 (computer science ) W 4223, 250 
与 数学 (mathematics vs.), 14, 304~305 
计算 器 ， 不 动 点 (calculator, fixed points with), 457 
记录 ， 在 数据 库 里 (record, ina data base), 109 
记忆 ，(memoization )， 和 脚注 34， 练 习 3.27 | 
和 按 需 调用 (call-by-need and), Mp 7z192 
用 delay 225 
和 废料 收集 (garbage collection and), 47241 
#49 (of thunks )，278 
继续 (continuation ) | 
非 确定 性 求 值 器 里 (in nondeterministic evaluator) , 
296~297 ， 另 见 失 败 继续 ， 成 功 继续 
寄存 器 机 器 模拟 器 里 (in register-machine simulator ) ， 
脚注 289 / 
寄存 器 (register), 343 
表示 (representing), 361 


追踪 (tracing), # 395.18 
寄存 器 (被 修改 的 ) (modified registers), A 指令 序列 
(instruction sequence ) 
寄存 器 列表 ， 模 拟 器 里 (register table, in simulator), 362 
寄存 器 机 器 (register machine), 343 
动作 (actions), 348 
控制 器 (controller) , 344 
控制 器 图 (controller diagram) , 345 
数据 通路 (data paths), 344 
数据 通路 图 (data-path diagram), 344 
设计 (design of ), 344~359 
检测 操作 ，344 
描述 语言 (language for describing ) 345~348 
监视 执行 (monitoring performance ), 372~373 
模拟 器 (simulator), 359~373 
堆栈 (stack), 354~358 
子 程序 (subroutine), 351~354 
检测 操作 (test operation), 344 
寄存 器 机 器 上 的 jnitialize-stack 柠 作 (operation in 
register machine}, 361 , 371 
寄存 器 机 器 语言 (register-machine language ) 
assign, 347, 359 
branch, 346, 359 
const, 347, 358, 359 
A Fist (entry point), 346 
goto, 346, 359- 
指令 (instructions), 346, 358 
标号 (label), 346 
label, 346, 359 
op, 347, 359 
perform, 348, 359 
reg, 347, 358 
restore, 355, 359 
save, 355, 359 
test, 346, 359 
加 法 器 (adder) 
4 (full), 190 
半 (half), 189 
级 联 进位 (ripple-carry), # 93.30 
加 入 符号 (interning symbols), 376 
加 州 大 学 伯克利 分 校 (University of California at Berkeley ) , 
脚注 2 
假 (false), #317 
假 言 推理 (modus ponens), #4279 
检测 零 (通用 型 ) (zero test (generic)), $ 32.80 
对 多 项 式 (for polynomials), # 32.87 
简单 查询 (simple query), 308~309 
处 理 (processing) , 316, 320, 326 


Æ% 4 


463 





建 模 (modeling ) 
作为 一 种 设计 策略 (as a design strategy), 149 
在 科学 与 工程 里 (in science and engineering ), 10 
键 值 (key) | 
数据 库 里 (in a data base), 109 
表格 里 (inatable), 183 
检测 相等 (testing equality of), 2% 33.24 
将 Scheme 编译 到 (compiling Scheme into), 4 35.52 
错误 处 理 (error handling), Miz317, W337 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 13 
写 出 的 Scheme 解释 器 (Scheme interpreter written in) , 
% 35.51, #35.52 
将 输入 表达 式 分 类 (typing input expressions), #piz6 
阶乘 (factorial ) ，21 ， 另 见 Eactorial | 
无 穷 流 (infinite stream), 593.54 
用 (with) letrec, # 34.20 
不 用 (without) letrecm#define, *54.21 
阶 的 记 法 (order notation), 28 
结 点 ， 树 (node of a tree), 6 
截断 误差 (truncation error)， 有 和 脚注 4 
解释 器 (interpreter), 2, 3 RRA (evaluator) 
与 编译 器 (compiler vs.), 397~398 , 428 
读 入 一 求 值 -打印 循环 (read-eval-print loop), 5 
金星 (Venus), 7298 
紧缩 型 废料 收集 器 (compacting garbage collector), W 
注 300 
局 部 变量 (local variable), 42~44 
局 部 名 (local name), 18~19 
局 部 状态 (local state), 149~162 
在 框架 里 维护 (maintained in frames), 167~171 
局 部 状 态 变 量 (local state variable), 150~154 
SEA Has (rectangle, representing )， 练 习 2.3 
上 矩阵， 用 序列 表示 (matrix, represented as sequence), 
练习 2.37 
具体 数据 表示 (concrete data representation ) 55 
绝对 值 (absolute value), 11 
卡尔 ， 阿 尔 芬 斯 (Karr, Alphonse), 149 
FF +e) (Kepler, Johannes), 343 
可 计算 性 (computability), 34223, Beiz227 
可 加 性 (additivity), 122~127, 130 
23% (empty list), 67 
FA’O 表示 (denoted as ’()) , 97 
用 nulL1? 辨 别 (recognizing with null?) , 68 
控制 结构 (control structure), 321 
跨 类 型 操作 (cross-type operations ) 132 
块 结构 (block structure ) 20 


环境 模型 里 (in environment model), 170 
查询 语言 里 (in query language )， 练 习 4.79 
框架 (查询 解释 器 ) (frame (query interpreter)), 315, 3 
见 模 式 匹 配 (pattern matching) , &— (unification ) 
表示 (representation ) 338 
框架 (环境 模型 ) (frame (environment model)), 162 
作为 局 部 状态 的 展台 (as repository of local state) , 
167~170 
全 局 (global), 162 
框架 (图 形 语 言 ) (frame (picture language)) , 86, 91 
坐标 映射 (coordinate map), 91 
框架 堆栈 方式 (framed-stack discipline), #iz306 
扩招 的 模拟 (diffusion, simulation of ), 210 
括号 (parentheses) 
界定 组 合式 (delimiting combination), 4 
界定 cond 子 句 (delimiting cond clauses), 12 
Æi €X E (in procedure definition), 8 
HRH 插值 公式 (Lagrange interpolation formula) , 
脚注 121 
Hi JER (Leibniz, Baron Gottfried Wilhelm von ) 
费 马 小 定理 的 证 明 (proof of Fermat's Little Theorem) , 
My iz. 45 
nA (series forz), W449, 233 
莱 因 德 纸 草书 (Rhind Papyrus), 7240 
类 型 (type) 
跨 类 型 操作 (cross-type operations ) 132 
基于 类 型 分 派 (dispatching on), 122 
符号 代数 的 类 型 层次 结构 (hierarchy in symbolic 
algebra), 143 
的 层次 结构 (hierarchy of), 143~144 
下 降 (lowering), 135, % 532.85 
多 个 子 类 型 和 超 类 型 (multiple subtype and supertype) , 
136 
提升 (raising ) ，133 ， 练 习 2.83 
子 类 型 (subtype), 135 
超 类 型 (Supertype ) 135 
H (tower of ) ， 图 2-25 
类 型 标志 (type tag )，116 ，119 
FA (two-level), 131 
类 型 的 上 县 次 结构 (hierarchy of types), 134~138 
在 符号 代数 里 (in symbolic algebra), 143~144 
不 合适 (inadequacy of), 135 
类 型 塔 (tower of types), W2-25 
类 型 推导 机 制 (type-inferencing mechanism), ， 脚注 200 
类 型 域 (type field), W iŁ292 
累积 器 (accumulator ) ，77 ， 练 习 3.1 
立方 根 (cube root) 
作为 不 动 点 (as fixed point), 49 
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用 牛顿 法 (by Newton’s method), 4 31.8 


HTAR (world line of a particle), #4180, Be 


72201 
连 分 式 (continued fraction), $% 31.37 
eff% (as), 431.38 
黄金 分 割 作为 (golden ratio as), %3 1.37 
正切 作为 (tangentas), # 31.39 
连接 描述 符 (linkage descriptor), 400 
连接 符 , 在 约束 系统 里 {connector , in constraint system ), 
198 
操作 (operations on), 200 
表示 (Tepresenting ) 203 
连 线 ， 在 数字 电路 里 (wire, in digital circuit), 189 
连续 求 平 方 (successive squaring), 30 
量子 力学 (quantum mechanics), W 7z204 
流 (stream), 149 
和 延 时 求 值 (delayed evaluation and), 241~244 


空 (empty), 222 


实现 为 延 时 的 表 (implemented as delayed lists), 220 


~222 | 
实现 为 情 性 表 (implemented as lazy lists} , 284~285 
AAE X (implicit definition), 228~230 
无 穷 (infinite), RICA (infinite streams ) 


用 于 查询 解释 器 (used in query interpreter), 315, # 


73278 
流水 线 (pipelining), #12162 


逻辑 程序 设计 (logic programming ) 304~306, 4% UAH 


语言 (query language) ， 查 询 解 释 器 (query inter- 
preter ) 
计算 机 (computers for), Bjz265 
的 历史 (history of), ， 牌 注 262， 有 和 脚注 265 
逻辑 程序 设计 语言 (logic programming languages), 306 
与 数理 逻辑 (mathematical logic vs.), 320~324 
wits (logical or), 189 
逻辑 谜 题 (logic puzzles), 290~291 
逻辑 与 (logical and), 189 
马赛 大 学 (University of Marseille), My iz262 
满足 一 个 复合 查询 (satisfy a compound query ) 310 
满足 一 个 模式 (简单 查询 ) (satisfy a pattern (simple 
query ) ) ， 309 
忙 等 待 (busy-waiting) , #34173 
枚 举 器 (enumerator), 77 
美观 打印 (pretty-printing), 4 
蒙特 卡 罗 积 分 (Monte Carlo integration), # 93.5 
IE, (stream formulation), 2 3 3.82 
ie SHH! (Monte Carlo simulation), 155 
流 形 式 (stream formulation), 245 


ik Gi (puzzles ) 


八 皇 后 谜 题 (eight-queens puzzle), 4 32.42, # 394.44 
jy te tk (logic puzzles}, 290~292 | 
密码 保护 的 账户 (password-protected bank account), $% 
习 3.3 
密码 学 (cryptography), Miz47 
震级 数 ， 作 为 序列 (power series, as stream), 练习 3.59 
加 (adding )， 练 习 3.60 
除 (dividing), 练习 3.62 
积分 (integrating), 9 33.59 
| ¥# (multiplying), # 33.60 
面向 对 象 的 程序 设计 语言 (object-oriented programming 
languages ) ， 脚注 118 
名 字 (name )， 另 见 局 部 名 字 (local name) ， 变 量 (var- 
iable ) ， 局 部 变量 (local variable ) 
封装 的 (encapsulated ) , Be iz 132 
形式 参数 的 (of a formal parameter), 18 
过 程 的 (of a procedure), 7 
名 字 里 的 叹 号 (exclamation point in names), #32130 
命令 式 程 序 设计 (imperative programming ), 160 
命令 式 风 格 (imperative programming style) ， 聊 注 101 
命令 式 与 说 明 式 语言 (imperative vs. declarative know- 
ledge), 14, 304 
逻辑 程序 设计 和 (logic programming and), 305~306, 
321 
非 确 定性 计算 和 (nondeterministic computing and ), 
脚注 246 
命名 (naming ) 
计算 对 象 的 (of computational objects), 4 
过 程 的 (of procedures ) 7 
命名 let (MRE RK, special form), #34.8 
命名 约定 (naming conventions ) 
! 用 于 峰值 的 修改 (for assignment and mutation), # 
注 130 
? 用 于 谓词 (for predicates)， 和 脚注 22 
Hin (modulo n), 34 
模 n 的 余数 (remainder modulo n), 34 
Kin |a]4 (congruent modulo n), 34 
模块 化 (modularity), 79, 149 
沿 着 对 象 边 界 (along object boundaries), # iz 144 
国 数 式 程 序 与 对 象 (functional programs vs. objects), 
245~248 
隐藏 原理 (hiding principle), #yjz132 
和 流 (streams and), 232 
通过 基于 类 型 的 分 派 (through dispatching on type), 
122 
通过 无 穷 流 (through infinite streams), 246 
通过 为 对 象 建 模 (through modeling with objects ), 
154 
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模拟 (simulation) 
电子 线路 (of digital circuit)， 见 数字 电路 模拟 (digital- 
circuit simulation ) 
事件 驱动 的 (event-driven), 188 
作为 机 器 设计 的 工具 (as machine-design tool), 395 
监视 寄存 器 机 器 的 执行 (for monitoring performance 
of register machine ) 372 


”蒙特 卡 罗 (Monte Cario), a ft P Hl (Monte 


Carlo simulation ) 


寄存 器 机 器 (of register machine), RA 器 机 器 模 


拟 (register-machine simulator ) 
模拟 计算 机 (analog computer ) ， 图 3-34 
模式 (pattern), 308~309 
模式 变量 (pattern variable), 308 
表示 (representation of), 325, 336~338 
模式 匹配 (pattern matching), 328 
实现 (implementation ), 328~329 
与 合 一 (unification vs.) , 319, #4277 
魔术 师 (magician ) ， 见 数值 分 析 专 家 (numerical analyst ) 
葛 尔 斯 码 (Morse code), 110 
目标 代码 (object program ) 400 
目标 寄存 器 (target register), 400 
内 部 定义 (internal definition), 19~20 
环境 模 型 里 (in environment model), 171~172 
的 自由 变量 (free variable in), 20 
let, 44 
非 确定 性 求 值 器 里 (in nondeterministic evaluator ), 
脚注 261 
的 位 置 (position of) ， 脚 注 28 
的 限制 (restrictions on), 269 
扫描 出 (scanning out), 269 
名 字 的 作用 域 (scope of name), 269~270 
牛顿 法 (Newton ethod ) 
用 于 立方 根 (for cube roots) ， 练 习 1.8 
用 于 微分 方程 (for differentiable functions), 49 
与 折 半 法 (half-interval method vs.) ， 脚 注 62 
用 于 平方 根 (for square roots), 14~16, 49, 50 
所 引号 (quasiquote )， 脚 注 321 
欧 儿 里 得 的 《几何 原理 》 (Euclid's Elements), We iz42 
欧 几 里 得 环 (Euclidean ring), #iz 126 
欧 几 里 得 算法 (Euclid’s Algorithm), 32, 344 
欧 几 里 得 有 关 素数 无 穷 多 的 证 明 (Euclid’s proof of infinite 
number of primes), ， 脚 注 191 
欧 拉 (Euler, Leonhard) ， 练 习 1.38 
有 关 费 马 小 定理 的 证 明 (proof of Fermat’s Little The- 
orem), Mpiz45 
序列 加 速 器 (series accelerator), 233 
由 白 斯 卡 (Pascal, Blaise), 脚注 33 
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帕斯卡 三 角形 (Pascal’s triangle), $31.12 
排除 错误 (debug), 1 
平方 根 (square root), 14~15, 4% sqrt 
EL% (stream of approximations ) 232 
平衡 的 活动 体 (balanced mobile), # 92.29 
平衡 二 又 树 (balanced binary tree ) ， 另 见 二 叉 树 (binary 
tree ) 
平滑 一 个 国 数 (smoothing a function ) ， 练 习 1.44 
平 清 一 个 全 县 (smoothing a signal), % 33.75, #39 
3.76 
平均 阻尼 (average damping), 47, #3 1.36 
屏障 同步 (barrier synchronization), #32177 
破碎 的 心 (broken heart), 380 
启明 星 (moring star)， 见 金星 (Venus) 
前 向 指针 (forwarding address) ，380 
前 组 表示 (prefix notation), 4 
与 中 组 表示 (infix notation vs.) , 2.58 
Hy RSS (prefix code), 110 
嵌入 的 语言 ， 语 言 设计 用 (embedded language, language 
| design using) , 276 
te Hee YZ (nested definitions), RAM X (internal 
definition ) 
EWR Ht (nested mappings), ARH (mapping) 
B£, 43434 (nested combinations), 4 
强健 (robustness), 96 
强 类 型 语言 (strongly typed language), siz 200 
强迫 (force), 278 
强制 (coercion), 133~134 
在 代数 操作 里 (in algebraic manipulation) , 144 
在 多 项 式 算术 里 (in polynomial arithmetic), 141 
过 程 (procedure ), 133 
表格 (table), 133 
EZ% (Church, Alonzo), #iz53, #9 2.6 
fea (Church numerals), #9 2.6 
丘 奇 -图 灵 论 题 (Church-Turing thesis), #4223 
求 导 (differentiation ) 
数值 的 (numerical), 49 
规则 (rules for), 99, #3 2.56 
符号 的 (symbolic), 99~102, # 92.73 
求 和 的 y 记 法 (sum (sigma) notation), 38 
求解 方程 (solving equation )， 见 折 半 法 (half-interval ` 
method) ,牛顿 法 (Newton’s method) , solve 
求 值 (evaluation ) 
应 用 序 (applicative-order), ， 见 应 用 序 求 值 (applicative- 
order evaluation ) | 
zE} (delayed), A XER{3K {A (delayed evaluation ) 
的 环境 模型 (environment model of ) ， 见 求 值 的 环境 


模型 (environment model of evaluation ) 


466 


x 3l 


一 不 9 


模型 (models of), 393 
正则 序 (normal-order ) ， 见 正则 序 求 值 (normal-order 
evaluation ) 
组 合式 的 (of a combination ) 6~7 
and 的 (ofand), 13 
cond 的 (of cond), /2 
iffy (of if), 12 
orgy (ofor), 12 
基本 表达 式 的 (of primitive expressions), 6 
”特殊 形式 的 (of special forms), 7 
子 表 达 式 的 求 值 顺序 (order of subexpression evaluation ) , 
见 求 值 闫 序 (order of evaluation ) 
的 代 换 模型 (substitution model of) ， 昂 过 程 应 用 的 代 
换 模 型 (substitution model of procedure application ) 
求 值 的 环境 模型 (environment model of evaluation) , 
149, 162~172 
环境 结构 (environment structure), 3-1 
内 部 定义 (internal definitions), 171~172 
局 部 变量 (local state), 167~170 
消息 传递 (message passing), # 33.11 
元 循环 求 值 器 和 (metacircular evaluator and) , 251 
过 程 应 用 实例 (procedure-appiication example), 164 
~167 
求 值 规则 (rules for evaluation), 163~164 
Æw Fp (tail recursion and) , #73142 
求 值 模型 (models of evaluation), 393 
KH (evaluator), 250, 5 见解 释 器 (interpreter), Je 
循环 求 值 器 (metacircular evaluator) ， 分 析 型 求 值 器 
(analyzing evaluator) ， 情 性 求 值 器 (lazy evaluator) , 
非 确 定性 求 值 器 (nondet-erministic evaluator) ;查询 
*K{B 2% (query interpreter) ， 显 式 控制 求 值 器 (explicit- 
control evaluator ) 
作为 抽象 机 器 (as abstract machine), 267 
元 循环 (metacircular) , 251 
作为 通用 机 器 (as universal machine ), 268 
派生 表达 式 (derived expressions), 258~259 
加 入 显 式 控 制 求 值 器 (adding to explicit-control evaluator } , 
% 335.23 
求 值 顺序 (order of evaluation ) 
和 赋值 (assignment and), # 323.8 
依赖 实现 ~(amplementation-dependent )， 和 脚注 140 
编译 器 里 (in compiler), 4 35.36 
显 式 控制 求 值 器 里 (in explicit-control evaluator) , 
388 
元 循环 求 值 器 里 (in metacircular evaluator ) ， 练 习 4.1 
Scheme 里 ， 练 习 3.8 
区 间 的 宽度 (width of an interval ) ， 练 习 2.9 
区 间 算 术 (interval arithmetic), 62~65 


驱动 循环 (driver loop) 
显 式 控 制 求 值 器 里 (in explicit-control evaluator ), 
392 
情 性 求 值 器 里 (in lazy evaluator ) 280 
元 循环 求 值 器 里 (in metacircular evaluator), 265 
非 确 定性 求 值 器 里 (in nondeterministic evaluator ) ， 
289, 301 
查询 解释 器 里 (in query interpreter), 302, 324 
全 加 器 (full-adder), 190 
full~adder, 190 
全 局 环境 (global environment), 6, 162 
元 循环 求 值 器 里 (in metacircular evaluator), 264 
全 局 框架 (global frame), 162 
eh (worm), #3337 
= fe F (trigonometric relations), 119 
扫描 出 内 部 定义 (scanning out internal definitions), 270 
企 编译 器 里 (in compiler), #4331, % 95.43 
& MIR & (roundoff error), Hyz4, Biz 109 
深度 优先 搜索 (depth-first search), 289 
深入 的 认识 (consciousness expransion of), #p1z210 
深 约 束 (deep binding), #34219 
其 高 级 语言 (very high-level language), #420 
生成 句子 (generating sentences), 4 374.49 
上 失败， 在 非 确 定性 计算 中 {failure, in nondeterministic 
computation) , 288 
错误 与 (bug vs. ) 298 
搜索 和 (searching and), 288 
失败 继续 ， 非 确定 性 求 值 器 (failure continuation , non- 
deterministic evaluator), 296, 297 
Hamb 构造 的 (constructed by amb), 301 
HRE #588) (constructed by assignment), 300 
由 驱动 循环 构造 的 (constructed by driver loop), 301 
时 间 (time) 
和 赋值 (assignment and), 206 
和 通信 (communication and), 219 
并 发 系统 里 (in concurrent systems ), 207~210 
FIA Bek BY iB (functional programming and ), 
246~248 
非 确 定性 计算 里 (in nondeterministic computing ), 
286~288 
的 用 途 (purpose of), Miz162 
时 间 段 ， 在 待 处 理 表 里 (time segment, in agenda), 196 
时 间 片 (time slicing ) 218 
时 序 图 (timing diagram) ， 图 3-29 
实际 参数 ， 实 参 (argument), 4 
任意 个 数 (arbitrary number of), 4, # 32.20 
延 时 的 (delayed), 242 
实例 化 一 个 模式 (instantiate a pattern), 309 


| 
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实数 (real number), Wris4 
实现 依赖 性 (implementation dependencies ) ， 
定 的 值 (unspecified values ) 
数 (numbers), M423 
子 表达 式 求 值 的 顺序 (order of subexpression evaluation ) , 
脚注 140 | 
事件 的 顺序 (order of events ) 
与 实际 出 现 松 弛 关系 (decoupling apparent from actual), 
224 
并 发 系统 里 的 不 确定 性 (indeterminacy in concurrent 
systems ), 207 
事件 驱动 的 模拟 (event-driven simulation), 188 
释放 互 斥 元 (release a mutex), 216 
树 (tree) 
Bet (tree), Mpiz106 
ZX (binary), 4 RX (binary tree) 
将 组 合式 看 作 (combination viewed as), 6 
叶 统 计 (counting leaves of ) ，72 
Hk (enumerating leaves of ) 78 
的 边缘 (fringe of )， 练 习 2.28 
Huffman, 110 
情 性 (lazy), Bpiz245 
映射 (mapping over), 75~76 
红 黑 (red-black), #eiz106 
表示 为 序 对 (represented as pairs), 72~75 
遍历 所 有 树叶 (reversing at all levels), 
树 的 终端 结 点 (terminal node of a tree), 6 
树 形 递归 计算 过 程 (tree-recursive process), 24~27 
增长 的 阶 (order of growth), 28 
HERE (tree accumulation), 6 
% (number) 
的 比较 (comparison of), 12 
小 数 点 (decimal pointin), # iz 23 
相等 (equality of), 12, #2102, #iz294 
在 通用 算术 系统 里 (in generic arithmetic system), 
129 
xH tk Witt (implementation dependencies), #7423 
整数 与 实数 (integer vs. real number), ye iz4 
整数 ， 准 确 (integer, exact), Bpiz23 
Lisp, 3 
有 理 数 (rational number), 
数据 (data), | 
抽象 (abstract), 55， 另 见 数 据 抽 象 (data abstraction ) 
的 抽象 模型 (abstract models for), ¥iz71 
的 代数 描述 (algebraic specification for), My iz 71 
复合 (compound), 53~54 
的 具体 表示 (concrete representation of) , 55 
层次 性 (hierarchical), 66, 72-74 


ARAM 


2.27 


Be iz 23 


表 结 构 (list-structured) , 57 
的 意义 (meaning of), 60~62 
变动 (mutable )， 见 变动 性 数据 对 象 (mutable data 
objects ) 
数值 (numerical), 3 | 
的 过 程 表 示 (procedural representation of), 61~62 
作为 程序 (as program), 266~268 
共享 (shared), 177~179 
符号 (symbolic), 96 
带 标 志 (tagged), 119~122, Bpiz292 
数据 抽象 (data abstraction), 54, 55, 115, 118, 255, 
另 见 元 循环 求 值 器 (metacircular evaluator ) 
队列 的 (for queue)，180 
数据 导向 的 程序 设计 (data-directed programming), 116 
122~127 
分 情况 分 析 与 (case analysis vs. ), 253 
在 元 循环 求 值 器 里 (in metacircular evaluator), 353 
在 查询 解释 器 里 (in query interpreter), ， 练 习 4.3 
数据 导向 的 递归 (data-directed recursion), 141 
数据 的 抽象 模型 (abstract models for data) ， 有 和 脚注 71 
数据 的 代数 规范 (algebraic specification for data), iż 
5 
数据 的 过 程 表 示 (procedural representation of data) , 
61~62 
变动 数据 (mutable data), 179 
数据 库 (data base ) 
数据 导向 的 程序 设计 和 (data-directed programming 
and), 4 32.74 
索引 (indexing), Æ ;ż271, 333 
Insatiable Enterprises AW (personnel), 练习 2.74 
逻辑 程序 设计 和 (logic programming and), 306 
Microshaft 人 事 (personnel), 306~308 
作为 记录 集合 (as set of records), 109 - 
数据 类 型 (data types ) 
Lisp 里 的 ， 练 习 2.78 
强 类 型 语言 里 的 (in strongly typed languages). 脚注 
220 | 
数 里 的 小数 点 (decimal point in numbers), He jz 23 
数论 (number theory), Bpyz45 
数学 (mathematics ) 
与 计算 机 科学 (computer science vs.), 14, 305 
与 工程 (engineering vs. ) ， 脚 注 47 
数学 国 数 (mathematical function), 
(function (mathematical ) ) 
数值 分 析 (numerical analysis), Mriz4 
数值 分 析 专 家 (numerical analyst), PRiz55 
数值 积分 的 辛普森 规则 (Simpson's Rule for numerical 
练习 1.29 


LA (数学 ) 


integration ) , 
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数值 数据 (numerical data), 3 
数字 电路 模拟 (digital-circuit simulation) , 188~197 
待 处 理 表 (agenda), 193~194 
待 处 理 表 实现 (agenda implementation), 195~197 
基本 国 数 框 (primitive function boxes), 191~192 
表示 连 线 (representing wires), 192~193 
样 例 模拟 (sample simulation), 194~195 
数字 信号 (digital signal), 189 
双 端 队列 (deque ) A 33.23 
说 明 性 与 行动 性 知识 (declarative vs. imperative knowledge ) ， 
14, 304 
逻辑 程序 设计 和 (logic programming and), 306 
非 确 定性 计算 和 {nondeterministic computing and) , 
Ms 14.246 
死 锁 (deadlock), 218~219 
避免 (avoidance), 218 
发 现 (recovery), #iz176 
四 次 方 根 ， 作 为 不 动 点 (fourth root, as fixed point), & 
241.45 
搜索 (search ) 
二 叉 树 (of binary tree), 105 
CF ELK 4 (depth-first), 289 
系统 化 (systematic), 288 
素数 (prime number), 33~37 
和 密码 学 (cryptography and), i248 
Ati & MVE (Eratosthenes’s sieve for), 227 
的 费 马 检 验 (Fermat test for), 34~35 
的 无 穷 序列 (infinite stream of), primes 
的 Miller-Rabin 检验 (test for)， 练 习 1.28 
的 检验 (testing for), 33~37 
素数 的 费 马 检查 (Fermat test for primality ), 33~37 
变形 (variant of ) ， 练 习 1.28 
算法 (algorithm ) 
最 优 的 (optimal), #iz82 
概率 的 (probabilistic), 34~35, My 7128 
算术 (arithmetic ) 
地 址 算术 (address arithmetic) ，374 
通用 型 (generic) ，127 ， 另 见 通用 型 算术 操作 (generic 
arithmetic operations ) 
复数 (on complex numbers ), 116 
区 间 (on intervals}, 62~65 
多 项 式 (on polynomials), LEMAA A (polynomial 
arithmetic ) | 
Ei (on power series), 93.60, $ 33.62 
有 理 数 (on rational numbers), 55~58 
基本 过 程 (primitive procedures for), 4 
随机 数 生 成 器 (random-number generator), Mfiz129, 
154 


用 于 蒙特 卡 罗 模 拟 (in Monte Carlo simulation), 155 
用 于 素数 检验 (in primality testing), W;ż45 
带 重 置 (with reset), # 33.6 
带 重 置 ， 流 版 本 (with reset, stream version), 练习 
3.81 
所 需 寄存 器 (needed registers) ， 见 指令 序列 (instruction 
Sequence ) 
特殊 形式 (special form), 7 
求 值 器 里 的 派生 表达 式 (as derived expression in eva- 
luator ) 258 
需要 (need for)， 练 习 1.6 
与 过 程 (procedure vs.), % 34.26, 284 
特殊 形式 (其 中 标 心 的 不 属于 IEEE 标 准 Scheme ) 
and, /3 
begin, /5/ 
cond, // 
cons-stream (ns), 223 
define, 5, 8 
delay (ns), 222 
if, /3 
lambda, 4/ 
let, 43 
let*, 34.7 
letrec, #34.20 
命名 的 (named) let ， 练 习 4.8 
or, 13 
quote, #100 
set! 7151 7 
提示 (prompts), 265 
显 式 控制 求 值 器 (explicit-control evaluator), 393 
惰性 求 值 器 (lazy evaluator), 280 
元 循环 求 值 器 (metacircular evaluator), 265 
非 确定 性 求 值 器 (aondeterministic evaluator), 302 
查询 解释 器 (query interpreter ) ，324 
条 件 表 达 式 (conditional expression ) 
cond, H 
if, 12 
停机 定理 (Halting Theorem ), My iz227 
停机 问题 (halting problem), % 24.15 
停止 并 复制 废料 收集 器 (Stop-and-copy garbage collector ) , 
379~383 
通用 机 器 (universal machine), 268 
BRE HRA 器 作为 (explicit-control evaluator as), 
397 
通用 计算 机 作为 (general-purpose computer as), 397 
通用 计算 机 ， 作 为 通用 机 器 (general-purpose computer, 


as universal machine), 397 
通用 型 操作 (generic operation), 55 
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通用 型 过 程 (generic procedure), 113, 116 
通用 型 选择 函数 (generic selector), 121, 122 


通用 型 算术 操作 (generic arithmetic operations) ，129~ 
132 


系统 的 结构 (structure of system ) ， 图 2-23 
同步 《Synchronization ) ， 见 并 发 (concurrency ) 
同一 和 变化 (sameness and change ) 
的 音义 (meaning of), 159~160 
和 共享 数据 (shared data and), 177 
透明 性 ， 引 用 (transparency, referential), 159 
AR (Turing, AlanM.), ， 和 脚注 223 
图 灵机 (Turing machine), 和 脚注 223 
图 形 学 (graphics ) ， 见 图 形 语言 (picture language) 
图 形 语言 (picture language), 86~96 
HERR AY ARE (inference, method of ) 321 
推迟 进行 的 操作 (deferred operations) , 22 
推论 部 分 (consequent) 
cond 子 名 的 (of cond clause), 11 
if@ay, 12 
完全 理性 的 狗 ， 牌 注 175 
外 围 环境 (enclosing environment) , 162 
微分 方程 (differential equation), 241, 3 Rsolve 
二 阶 (second-order), # 93.78, # 33.79 
伪 除 ， 多 项 式 (pseudodivision of polynomials), 146 
伪 余 ， 多 项 式 (pseudoremainder of polynomials ), 146 
伪 随 机 序列 (pseudo-random sequence ) #iz134 
尾 递归 (tail recursion), 23 
和 编译 (compiler and), 411 
和 求 值 的 环境 模型 (environment model of evaluation 
and), #7142 
和 显 式 控 制 求 值 器 (explicit-control evaluator and), 
389, % 35.26, 2% 35.28 
和 废料 收集 (garbage collection and), p325 
和 元 循环 求 值 器 (metacircular evaluator and), 390 
“Scheme 里 ， 牌 注 31 
尾 递 归 求 值 器 (tail-recursive evaluator), 390 
未 定 元 ， 多 项 式 (indeterminate of a polynomial), 138 
未 规定 的 值 (unspecified values) 
define, Mr z8 
display, W370 
if GAS M4 (without alternative), #72157 
newline, Kiz70 
set! 52130 
set-car!, Mriz144 
set-cdr!, jilt 
未 约束 变量 (unbound variable), 262, #34.77 
位 置 (location), 374 


谓词 (predicate), 11 


condqd 的 子 句 (of cond clause), 11 
iffy (of if), 12 
命名 习惯 (naming convention for), Mp ;z22 
问号 , 在 谓词 名 里 (question mark, in predicate names) , 
脚注 22 
无 穷 流 (infinite stream ), 226~232 
归并 (merging), #53.56, 237, 238, % 33.7, 248 
归并 作 为 一 种 关系 (merging as a relation), My iz203 
阶乘 的 (of factorials}, # 33.54 
SF yt AL S28 A (of Fibonacci numbers), #fibs 
整数 的 (of integers), integers 
序 对 的 (of pairs), 235~238 
素数 的 (of prime numbers), primes 
随机 数 的 (of random numbers), 245 
AmE BR (representing power series), # 33.59 
模 氢 信号 (to model signals), 238~241 
级 数 求 和 (to sum a series), 233 
无 鹤 序 列 (infinite series ), Hy iz 284 
MR g GSK (sparse polynomial}, 142 
系统 化 的 搜索 (systematic search) , 288 
线段 (line segment ) 
用 一 对 点 表示 (represented as pair of points), # 32.2 
用 一 对 向 量 表示 (represented as pair of vectors), #& 
332.48 
线性 递归 过 程 (linear recursive process), 22 
增长 的 阶 (order of growth), 28 
线性 迭代 过 程 (linear iterative process), 23 
增长 的 阶 (order of growth) , 28 
线性 增长 (linear growth), 22, 28 
相等 (equality) 
在 通用 算术 系统 里 (in generic arithmetic system), 练 
习 2.79 
表 的 (of lists ) ， 练 习 2.54 
数 的 (of numbers), 12, Meiz102, Hei 294 
引用 透明 性 和 (referential transparency and) , 160 
符号 的 (of symbols), 98 
相对 论 (relativity, theory of), 219 
向 量 (数据 结构 ) (vector (data structure )), 374 
向 量 (数学 ) (vector (mathematical ) ) 
棵 作 (0perations on), $ 32.37, %3 2.46 
在 图 形 语 言 的 框架 里 (in picture-language frame), 91 
用 序 对 表示 (represented as pair), # 92.46 
用 序列 表示 (represented as sequence), # 32.37 
向 上 兼容 性 (upward compatibility), 练习 4.31 
消息 传递 (message passing) , 62, 127~128 
和 环境 模型 (environment model and), ， 练 习 3.11 
Hkg (in bank account), 153 
数字 电路 模拟 里 (in digital-circuit simulation ), 192 
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40/238 VF (tail recursion and), #3z31 
效率 (efficiency), 3 R 4AM (order of growth ) 
编译 的 (of compilation), 398 
数据 库 访 问 的 (of data-base access), #327] 
求 值 的 (of evaluation), 272 
Lisp 的 (of Lisp), 2 
查询 处 理 的 (of query processing) , 317 
树 形 递 归 过 程 的 (of tree-recursive process ), 27 
信号 ， 数 字 (signal, digital), 189 
信和 号 处 理 (signal processing ) 
平 清 一 个 函数 (smoothing a function), 4% 3 1.44 
平 请 一 个 信号 (smoothing a signal), % 33.75, %3 
3.76 
流 模型 (stream model of), 238~240 
zB Æ (zero crossings of a signal), 练习 3.74 ， 
% 3.75, $333.76 | 
信号 处 理 和 计算 (signal-processing view of computation ) ， 
77 | 
信号 量 (semaphore), #74172 
大 小 为 有 (of sizen), #33.47 
信和 号 流 图 (signal-flow diagram), 77, W3-33 
{= (25% (information retrieval), ， 见 数据 库 (data base) 
信用 卡 账 户 ， 国 际 (credit-card accounts, international ) , 
He iz 178 : 
形 参 (parameter )， 见 形式 参数 (formal parameters) 
形式 参数 (formal parameters), 8 
的 名 字 (names of), 18 
的 作用 域 (scope of), 19 
序 对 (pair), 56 
公理 定义 (axiomatic definition of), 61 
盒子 和 指针 记 法 (box-and-pointer notation for), 65 
Awe (infinite stream of), 235~238 
ttt (lazy), 284~286 
变动 的 (mutable), 173~176 
过 程 表 示 (procedural representation of ), 61~62, 179, 
284 
Fit Ha (represented using vectors ) 302~305 
用 于 表示 序列 (used to represent sequence) , 66 
用 于 表示 树 (used to represent tree), 72~74 
序列 (sequence), 66 | 
作为 规范 的 界面 (as conventional interface), 76~85 
作为 模块 化 的 来 源 (as source of modularity), 79 
操作 (operations on), 77~82 
用 序 对 表示 (represented by pairs), 66 
序列 加 速 器 (Sequence accelerator), 233 
选择 函数 (selector), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
通用 型 (generic), 121, 122 


循环 结构 (looping constructs), 16, 23 


在 元 循环 求 值 器 里 实现 (implementing in metacircular 
evaluator ) ， 练习 4.9 


| 亚 里 十 多 德 《 论 天 》 (Aristotle’s De caelo) (Buridangy 


评述 (commentary on) ), #iz175 
亚历山大 的 Heron (Heron of Alexandria), i221 
延 时 ， 在 数字 电路 里 (delay, in digital circuit ) 
延 时 参数 (delayed argument ) ，242 | 
VERT St (delayed object), 222 \ 
延 时 求 值 (delayed evaluation ), 149 
赋值 和 (assignment and )， 练 习 3.52 
显 式 与 自动 (explicit vs..automatic), 285 
在 情 性 求 值 器 里 (in lazy evaluator), 276~285 
正则 麻 求 值 和 (normal-order evaluation and), 244~245 
打印 和 (printing and), $ 33.51 
A (streams and) , 241~244 
严格 (strict), 277 
依赖 导向 的 回溯 (dependency-directed backtracking ), 
脚注 251 
移植 一 个 语言 (porting a language), 428 
银行 账户 (bank account), 150, % 33.11 
交换 余额 (exchanging balances), 214 
共用 (joint), 160, #33.7 
共用 ， 用 流 模拟 (joint, modeled with streams), 43-38 
共用 ， 并 发 访问 (joint, with concurrent access) , 207 
用 密码 保护 (password-protected), 4 3 3.3 
Hiit (serialized), 211 
流 模 型 (stream model), 246 
转移 款项 (transferring money), 练习 3.44 
引号 (quotation) ，90~98 
字符 让 (of character strings )， 脚 注 99 
Lisp 数据 对 象 (of Lisp data objects) , 97 
自然 语言 里 (in natural language), 97 
引号 , 单 引 号 与 双 引 号 (quotation mark , single vs. double ), 
脚注 99 
引用 透明 性 (referential transparency )，159 
隐藏 原理 (hiding principle), Priz 132 
应 用 序 求 值 (applicative-order evaluation ), 10 
在 Lisp #, 11 
与 正则 序 比 较 (normal order vs. ) ， 练 习 1.3 ， 练 习 1.20 ， 
277~278 
映射 (mapping ) 
对 表 (over lists}, 70~72 
mS (nested), 82~86, 304~308 
作为 转换 器 (as a transducer), 77 
对 树 (over trees), 75~76 
MRE 实现 (implemented with assignment), 179~180 
表 结 构 (list structure), 173~176 
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序 对 (pairs), 173~176 
的 过 程 表 示 (procedural representation of), 179 
共享 数据 (shared data), 177 
A PER (rational number) 
算术 操作 (arithmetic operations on) , 55~58 
在 (in) MIT Scheme #, 3223 
打印 (printing) , 57 
归 约 到 最 低 项 (reducing to lowest terms), 58~59 
表示 为 序 对 (represented as pairs), 57 
有 理 数 函数 (rational function), 144~147 
归 约 到 最 低 项 (reducing to lowest terms), 146~147 
有 理 数 算术 (rational-number arithmetic) , 55~58 
与 通用 算术 系统 连 楼 (interfaced to generic arithmetic 
system), 129 
需要 复 合 数据 (need for compound data), 53 
余弦 (cosine) 
的 不 动 点 (fixed point of), 46 
的 需 级 数 (power series for), #: 33.59 
与 门 (and-gate), 189 
and-gate, 190 
宇宙 辐射 (cosmic radiation) ， 脚 注 47 
语法 (grammar), 292 
语法 (Syntax ) ， 另 见 特 殊 形式 (special forms ) 
抽象 (abstract ) ， 见 抽象 语法 (abstract syntax) 
表达 式 的 ， 描 述 (of expressions, describing), Hy iz 14 
程序 设计 语言 的 (of a programming language), 7 
语法 分 析 ， 与 执行 分 离 (syntactic analysis, separated 
from execution ) 
在 元 循环 求 值 器 里 (in metacircular evaluator ), 273~276 
在 寄存 器 机 器 里 (in register-machine simulator ), 364~368 
语法 糖衣 (syntactic sugar), Miz 11 
define, 256 
let E% (as), 43 
循环 结构 作为 (looping constructs as), 23 
过 程 与 数据 ， 作 为 (procedure vs. dataas), iz 155 
语句 (statements) ， 见 指令 序列 (instruction sequence ) 
语言 (language), LARZA (natural language) , Æ 
istit iB (programming language ) 
语言 的 一 级 元 素 (first-class elements in language), 51 
元 循环 求 值 器 ,Scheme (metacircular evaluator for Scheme )， 
251~268 
分 析 型 版 本 (analyzing version), 272~276 
组 合式 (过程 应 用 ) (combinations (procedure applic- 
ations)), #34.2 3 
的 编译 (compilation of), #4 35.56, # 535.52 
数据 抽象 (data abstraction in), 251, 252, % J 5.52 
数据 导向 的 (data-directed) eval, $4 34.3 
派生 表达 式 (derived expressions), 258~260 


驱动 循环 (driver loop), 265 
的 效率 (efficiency of), 272 
求 值 的 环境 模型 (environment model of evaluation in) , 
251 : 
环境 操作 (environment operations) , 261 
eval#lapply , 252~255 
eval-apply p (cycle), 251, 4-1 
表达 式 表 示 (expression representation ) 252, 255~258 
全 局 环境 (global environment), 264 
商 阶 过 程 (higher-order procedures in) ， 脚 注 209 
被 实现 语言 与 实现 语言 (implemented language vs. 
imp-lementation language ) ， 和 脚注 210 
的 工作 Uob of), #4208 
运算 对 象 的 求 值 顺序 (order of operand evaluation) , 
练习 4.1 
基本 过 程 (primitive procedures ) 264~266 
环境 的 表示 (representation of environments), 261~263 
过 程 的 表示 (representation of procedures). 261 
真 和 假 的 表示 (representation of true and false), 260 
运行 (running), 264~266 
特殊 形式 (增加 的) (special forms (additional)), & 
94.4, RI4AS, R746, R47, #438, 练 
34.9 
特殊 形式 作为 派生 表达 式 (special forms as derived 
expressions ) 257~258 
和 符号 求 导 (symbolic differentiation and) , 255 
REIS Wis (syntax of evaluated language) , 
255~258, % 34.2, #3 4.10 
ARIA JE (tail recursiveness unspecified in ) 390 
true 和 false, 364 
元 语言 抽象 (metalinguistic abstraction), 250 
原子 操作 (atomic) test-and-set!, 217 
源 程序 (source program), 397 
产 语 言 (source language), 397 
约定 的 界面 (conventional interface), 55 
序列 作为 (sequence as), 76~86 
愿望 思维 (wishful thinking), 56, 99 
约束 (bind), 18 
“ji (binding), 162 
深 (deep), Miz219 
约束 (constraint ) 
基本 的 (primitive), 198 
的 传播 (propagation of), 198~205 
约束 变量 (bound variable), 18 
约束 的 传播 (propagation of constraints), 198~205 
约束 网络 (constraint network), 198 
增长 的 阶 (order of growth), 28~29 


betik teit (linear iterative process ) 29 
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线性 递归 过 程 (linear recursive process), 29 
对 数 (logarithmic), 30 
树 递 归 过 程 (tree-recursive process), 29 
遮 贡 一 个 约束 (shadow a binding), 162 
折 半 法 (half-interval method), 44~45 
half-interval~method, 45 
5A (Newton’s method vs.), ， 和 脚注 62 
真 (true), W17 
真 值 保持 (truth maintenance), 33251 
整数 (integer), Mpiz4 
除法 (dividing), W423 
精确 的 (exact), A23 
整数 除法 (division of integers), $423 
整数 化 因子 (integerizing factor), 146 
正切 (tangent) 
作为 连 分 数 (as continued fraction), #3 1.39 
的 各 级 数 (power series for), ， 练 习 3.62 
正弦 (sine) 
EAA (approximation for small angle ) ， 练 习 1.15 
RRR (power series for), # 33.59 
正则 序 求 值 (normal-order evaluation), 10 
与 应 用 序 (applicative order vs.), % 31.5, % 31.20, 
277~278 
和 延 时 求 值 (delayed evaluation and )，244~245 
在 显 式 控制 求 值 器 里 (in explicit-control evaluator) , 
练习 3.25 
iff}, % 31.5 
正则 上 序 求 值 器 (normal-order evaluator), s, 惰性 求 值 器 
(lazy evaluator ) 
证 明 程 序 的 正确 性 (proving programs correct), W420 
执行 过 程 (execution procedure ) 
在 分 析 型 求 值 器 里 (in analyzing evaluator), 273 
在 非 确 定性 求 值 器 里 (in nondeterministic evaluator ) , 
296~298 
在 寄存 器 模拟 器 里 (in register-machine simulator) , 
362, 366~372 
{if (value) 
给 合式 的 (of a combination ), 4 
表达 式 的 (of an expression), W47, % RRR ÆN) 
值 (unspecified values ) 
指令 计数 (instruction counting), # 35.15 
指令 序列 (instruction sequence), 400~402 
指令 执行 过 程 (instruction execution procedure) ) 362 
指令 追踪 (instruction tracing), # 35.16 
指数 (exponentiation) , 29~30 
模 (modulon), 34 


指数 性 二 增长 (exponential growth), 25 
树 递 归 旨 波 那 契 计算 (of tree-recursive Fibonacci-number 


computation ) , 25 
指针 (pointer) 
合子 和 指针 记 法 (in box-and-pointer notation ) 65 
带 类 型 的 (typed), 375 
HRIC, 与 前 级 记 靶 (infix notation, prefix notation vs. ) , 
练习 2.98 
仲裁 器 (arbiter)， 牌 注 175 
朱 世 杰 (Chu Shih-chieh) , 3335 
注释 ， 在 程序 里 (comments in programs), i487 
状态 (state) 
局 部 (local), LARRA (local state ) 
共享 (shared), 208 
在 流 方式 中 消失 了 (vanishes in stream formulation ) , 
247 
状态 变量 (state variable), 22, 150 
局 部 (local), 150~154 
追踪 (tracing) 
指令 执行 (instruction execution), % 35.16 
寄存 器 赋值 (register assignment), #: 35.18 
HE WARY MEA (exact integer), #3323 
TÆ% (subtype), 135 
多 个 (multiple), 136 
字符 (character), 109 
字符 串 (character strings ) 
的 基本 过 程 (primitive procedures for), i4285 
的 引号 (quotation of), #499 
自动 存储 分 配 (automatic storage allocation), 374 
自动 魔法 般 地 (automagically), 289 
自动 搜索 (automatic search), ，286 ， 另 见 搜 索 (search) 
历史 (history of), #32251 | 
自 求 值 表达 式 (self-evaluating expression), 252 
自然 对 数 Aln 2 (logarithm, approximating ln 2), 
练习 3.65 
自然 语言 (natural language ) 
HEA (parsing), 25-4 ARIS a (parsing natural 
language ) | 
引号 (quotation in), 96 
自由 变量 (free variable), 18 
捕获 (capturing), 19 
内 部 定义 里 (in internal definition), 19 
自由 表 (free list), Mriz296 
阻塞 的 进程 (blocked process), #34173 
组 合 的 方法 (means of combination )，3， 另 见 闭 包 (closure) 
组 合式 (combination), 4~5 
以 组 合式 作为 组 合式 的 运算 符 (combination as Operator 
of), #459 
以 复合 表达 式 作为 组 合式 的 运算 符 (compound expression 
as operator of )， 练 习 1.4 
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的 求 值 (evaluation of), 6~7 
LIambda 表 达 式 作为 组 合式 的 运算 符 (expression as 
operator of) ，41 
作为 树 (asatree), 6 
组 合式 的 意义 (combination, means of), 3 见 闭 包 (closure) 
组 合式 的 运算 对 象 (operands of a combination), 4 
组 合式 的 运算 符 (operator of a combination), 4 
组 合式 作为 (combination as), M7259 
符号 表 达 式 作为 (compound expression as), #31.4 
lambda ik E3» (expression as), 42 
最 大 公约 数 (greatest common divisor), 32~33, JA 


GCD 
通用 的 (generic), 2#% 3 2.94 
多 项 式 的 (of polynomials), 145 
用 于 估计 mr (used to estimate x), 155 
用 于 有 理 数 算术 (used in rational-number arithmetic) , 
58 
最 小 允诺 原则 (principle of least commitment), 119 
最 优 (optimality ) 
Horner 规 则 (rule), #3¢82 
Hufftman 编 码 (code), 112 
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